Delphi-基础(运算符)

一、运算符
　　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、语句：主要有关键字和操作指令组成

　　　划分：选择语句

　　　　　　if

　　　　　　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.

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.

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.