Delphi-基础(运算符)

一、运算符
　　1、变量
　　2、运算符**
　　3、表达式

1、变量

 变量解释：编程中最小的存储单元（空间），它的空间大小由它在声明时的数据类型决定。

1.1、声明 : 定义一个变量，告诉Delphi一个名字的存储空间

var 变量名:数据类型;

1.2、变量初始化（给变量的第一次赋值）

{赋值： 变量名:=变量的值;}

//变量进行声明
var
  Age:Integer;

1.3、初始化一个变量

var
  Name:string='小黑';
  Age := 0;

  //写出(写出的控制台)指定的内容

  Writeln(6 / 4);
  Writeln(6 div 2);
  Writeln(6 mod 4);

//从控制台读入一行内容，它现在的主要的就是暂停，等我们按下回车键。
  Readln;

2、运算符

　　算数运算符: + - * /(不会整除) div(整除) mod(求模、求余数)

　　布尔运算符:

　　关系运算符：<>(不等于)

2.1、布尔运算符示例

  Writeln(1 <> 2);
  Writeln(not(1 <> 2));
  Writeln((1<2) and (2<3));
  Writeln((1<2) or (2<3));

2.2、xor(异或):判断条件中相同为False，不同为True

  Writeln((1<2) xor (2<3));
  Writeln((1<2) xor (2>3));

3、表达式

  3.1、表达式 :由运算符和合法的标识符组成的序列

　　　划分：根据运算结果的类型 1 < 2 1 +1

  3.2、语句：主要有关键字和操作指令组成

　　　划分：选择语句

　　　　　　if

　　　　　　case

　　　　　　循环语句

3.3、语句格式

begin
  if 1<2 then
  begin
    //当判断条件成立时，执行的代码
    //向控制台写出一段内容
    Writeln('hello Delphi');
  end;

  //从控制台读入一行文本，止到遇到回车（换行符）
  Readln;
end.

3.4、简写方式：前提是只需要执行一行代码

begin
  if 1 < 2 then
    Writeln('hello');  //简写时省去写begin end;
end;

3.5、如果否则

if 1<2 then
  begin
    Writeln('hello Delphi');
  end
  else
  begin
    Writeln('hello,test');
  end;
  //从控制台读入一行文本，止到遇到回车（换行符）
  Readln;
end.

3.6、case 语句

begin
//case 语句的标准写法
  i := 3;
  case i of
    1:  //标准写法
      begin
        Writeln('test1,hello');
      end;
    2:  //简写
      Writeln('林心如');
  else
    begin
      Writeln('林志玲');
    end;
  end;
  Readln;
end.

 3.7、定义各一个过程

3.7.1、学生成绩判断

//声明一个过程
procedure ComparingScore();
//过程的具体实现
var
   Score:Integer;
begin
  //对学生成绩大于60分的，输出合格，低于60分，输出不合格。
  Writeln('请输入分数：');
  Readln(Score); //Readln可以接受一个变量，将接受Writeln('请输入分数：')中数字传给变量Score
  if Score > 60  then
    begin
      Writeln('合格');
    end
  else
    begin
      Writeln('不合格');
    end;
end;
begin
  //调用
  ComparingScore();
  Readln;
end.

3.7.2、根据用于指定月份 ，打印该月份所属的季节。

{*------------------------------------------------------------------------------
根据用于指定月份 ，打印该月份所属的季节。
3,4,5 春季 6,7,8 夏季  9,10,11 秋季 12,1,2 冬季
  @param Month    需要判断月份
-------------------------------------------------------------------------------}
procedure  JudgmentIn(Month:Integer);
begin
  if not ((Month > 0) and (Month < 13)) then
  begin
    Writeln('月份无法判断');
    Exit;
  end;

  if ((Month >= 3) and (Month <= 5 )) then
  begin
    Writeln('春季');
    Exit;
  end;

  if (Month >= 6) and (Month <= 8) then
  begin
    Writeln('夏季');
    Exit;
  end;

  if (Month >= 9) and (Month <= 11) then
  begin
    Writeln('秋季');
    Exit;
  end;

  if (Month = 12) or ((Month > 0) and (Month < 3)) then
  begin
    Writeln('冬季');
  end;

end;
procedure  JudgmentIn2(Month:Integer);
begin
  case Month of
    3:
      begin
        Writeln('春季');
      end;
    4:
      begin
        Writeln('春季');
      end;
    5:
      begin
        Writeln('春季');
      end;
    6:
      begin
        Writeln('夏季');
      end;
    7:
      begin
        Writeln('夏季');
      end;
    8:
      begin
        Writeln('夏季');
      end;
    9:
      begin
        Writeln('秋季');
      end;
    10:
      begin
        Writeln('春季');
      end;
    11:
      begin
        Writeln('秋季');
      end;
    12:
      begin
        Writeln('冬季');
      end;
    1:
      begin
        Writeln('冬季');
      end;
    2:
      begin
        Writeln('冬季');
      end;


else
  begin
    Writeln('月份无法判断');
  end;

end;
end;
begin
  //调用
  //ComparingScore();
//  JudgmentIn(13);
  JudgmentIn2(12);
  Readln;
end.

3.7.3、判断是否是高富帅

{*------------------------------------------------------------------------------
  @param Height   身高
  @param Money     钱
  @param Handsome  帅
-------------------------------------------------------------------------------}
procedure MaleFemaleMarriage(Height: Integer;Money:Integer;Handsome:Boolean);
begin
  if (Height>180) and (Money >= 10000000) and Handsome then
  begin
    Writeln('我一定要嫁给她');
    Exit;
  end;

  if (Height>180) and (Money>= 10000000) or Handsome then
  begin
    Writeln('嫁吧，比上不足比下有余');
    Exit;
  end;

  if not((Height>180) and (Money>= 10000000) and Handsome) then
  begin
    Writeln('不嫁');
    Exit;
  end;

end;
begin
  //调用
  MaleFemaleMarriage(170,1000000,True);
  Readln;
end.