欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

Delphi-基础(运算符)

程序员文章站 2022-06-15 14:25:07
一、运算符 1、变量 2、运算符** 3、表达式 1、变量 变量解释:编程中最小的存储单元(空间),它的空间大小由它在声明时的数据类型决定。 1.1、声明 : 定义一个变量,告诉Delphi一个名字的存储空间 1 var 变量名:数据类型; 1.2、变量初始化(给变量的第一次赋值) 1 {赋值: 变 ......

一、运算符
  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.