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.
