Delphi-基础(运算符)

原作者: [db:作者] 来自: [db:来源] 收藏邀请

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

1、变量

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

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

1 var 变量名:数据类型;

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

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

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

1.3、初始化一个变量

 1 var
 2   Name:string='小黑';
 3   Age := 0;
 4 
 5   //写出(写出的控制台)指定的内容
 6 
 7   Writeln(6 / 4);
 8   Writeln(6 div 2);
 9   Writeln(6 mod 4);
10 
11 //从控制台读入一行内容，它现在的主要的就是暂停，等我们按下回车键。
12   Readln;

2、运算符

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

　　布尔运算符:

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

2.1、布尔运算符示例

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

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

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

3、表达式

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

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

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

　　　划分：选择语句

　　　　　　case

　　　　　　循环语句

3.3、语句格式

 1 begin
 2   if 1<2 then
 3   begin
 4     //当判断条件成立时，执行的代码
 5     //向控制台写出一段内容
 6     Writeln('hello Delphi');
 7   end;
 8 
 9   //从控制台读入一行文本，止到遇到回车（换行符）
10   Readln;
11 end.

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

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

3.5、如果否则

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

3.6、case 语句

 1 begin
 2 //case 语句的标准写法
 3   i := 3;
 4   case i of
 5     1:  //标准写法
 6       begin
 7         Writeln('test1,hello');
 8       end;
 9     2:  //简写
10       Writeln('林心如');
11   else
12     begin
13       Writeln('林志玲');
14     end;
15   end;
16   Readln;
17 end.

3.7、定义各一个过程

3.7.1、学生成绩判断

 1 //声明一个过程
 2 procedure ComparingScore();
 3 //过程的具体实现
 4 var
 5    Score:Integer;
 6 begin
 7   //对学生成绩大于60分的，输出合格，低于60分，输出不合格。
 8   Writeln('请输入分数：');
 9   Readln(Score); //Readln可以接受一个变量，将接受Writeln('请输入分数：')中数字传给变量Score
10   if Score > 60  then
11     begin
12       Writeln('合格');
13     end
14   else
15     begin
16       Writeln('不合格');
17     end;
18 end;
19 begin
20   //调用
21   ComparingScore();
22   Readln;
23 end.

View Code

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

  1 {*------------------------------------------------------------------------------
  2 根据用于指定月份 ，打印该月份所属的季节。
  3 3,4,5 春季 6,7,8 夏季  9,10,11 秋季 12,1,2 冬季
  4   @param Month    需要判断月份
  5 -------------------------------------------------------------------------------}
  6 procedure  JudgmentIn(Month:Integer);
  7 begin
  8   if not ((Month > 0) and (Month < 13)) then
  9   begin
 10     Writeln('月份无法判断');
 11     Exit;
 12   end;
 13 
 14   if ((Month >= 3) and (Month <= 5 )) then
 15   begin
 16     Writeln('春季');
 17     Exit;
 18   end;
 19 
 20   if (Month >= 6) and (Month <= 8) then
 21   begin
 22     Writeln('夏季');
 23     Exit;
 24   end;
 25 
 26   if (Month >= 9) and (Month <= 11) then
 27   begin
 28     Writeln('秋季');
 29     Exit;
 30   end;
 31 
 32   if (Month = 12) or ((Month > 0) and (Month < 3)) then
 33   begin
 34     Writeln('冬季');
 35   end;
 36 
 37 end;
 38 procedure  JudgmentIn2(Month:Integer);
 39 begin
 40   case Month of
 41     3:
 42       begin
 43         Writeln('春季');
 44       end;
 45     4:
 46       begin
 47         Writeln('春季');
 48       end;
 49     5:
 50       begin
 51         Writeln('春季');
 52       end;
 53     6:
 54       begin
 55         Writeln('夏季');
 56       end;
 57     7:
 58       begin
 59         Writeln('夏季');
 60       end;
 61     8:
 62       begin
 63         Writeln('夏季');
 64       end;
 65     9:
 66       begin
 67         Writeln('秋季');
 68       end;
 69     10:
 70       begin
 71         Writeln('春季');
 72       end;
 73     11:
 74       begin
 75         Writeln('秋季');
 76       end;
 77     12:
 78       begin
 79         Writeln('冬季');
 80       end;
 81     1:
 82       begin
 83         Writeln('冬季');
 84       end;
 85     2:
 86       begin
 87         Writeln('冬季');
 88       end;
 89 
 90 
 91 else
 92   begin
 93     Writeln('月份无法判断');
 94   end;
 95 
 96 end;
 97 end;
 98 begin
 99   //调用
100   //ComparingScore();
101 //  JudgmentIn(13);
102   JudgmentIn2(12);
103   Readln;
104 end.

View Code

3.7.3、判断是否是高富帅

 1 {*------------------------------------------------------------------------------
 2   @param Height   身高
 3   @param Money     钱
 4   @param Handsome  帅
 5 -------------------------------------------------------------------------------}
 6 procedure MaleFemaleMarriage(Height: Integer;Money:Integer;Handsome:Boolean);
 7 begin
 8   if (Height>180) and (Money >= 10000000) and Handsome then
 9   begin
10     Writeln('我一定要嫁给她');
11     Exit;
12   end;
13 
14   if (Height>180) and (Money>= 10000000) or Handsome then
15   begin
16     Writeln('嫁吧，比上不足比下有余');
17     Exit;
18   end;
19 
20   if not((Height>180) and (Money>= 10000000) and Handsome) then
21   begin
22     Writeln('不嫁');
23     Exit;
24   end;
25 
26 end;
27 begin
28   //调用
29   MaleFemaleMarriage(170,1000000,True);
30   Readln;
31 end.