Delphi-基础(运算符)

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

1、变量

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

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

 var 变量名:数据类型;

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

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

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

1.3、初始化一个变量

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

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

   Writeln( / );
   Writeln( div );
   Writeln( mod );

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

2、运算符

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

　　布尔运算符:

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

2.1、布尔运算符示例

   Writeln( <> );
   Writeln(not( <> ));
   Writeln((<) and (<));
   Writeln((<) or (<));

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

   Writeln((<) xor (<));
   Writeln((<) xor (>));

3、表达式

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

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

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

　　　划分：选择语句

　　　　　　if

　　　　　　case

　　　　　　循环语句

3.3、语句格式

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

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

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

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

3.5、如果否则

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

3.6、case 语句

 begin
 //case 语句的标准写法
   i := ;
   case i of
     :  //标准写法
       begin
         Writeln('test1,hello');
       end;
     :  //简写
       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 >   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 > ) and (Month < )) then
   begin
     Writeln('月份无法判断');
     Exit;
   end;

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

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

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

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

 end;
 procedure  JudgmentIn2(Month:Integer);
 begin
   case Month of
     :
       begin
         Writeln('春季');
       end;
     :
       begin
         Writeln('春季');
       end;
     :
       begin
         Writeln('春季');
       end;
     :
       begin
         Writeln('夏季');
       end;
     :
       begin
         Writeln('夏季');
       end;
     :
       begin
         Writeln('夏季');
       end;
     :
       begin
         Writeln('秋季');
       end;
     :
       begin
         Writeln('春季');
       end;
     :
       begin
         Writeln('秋季');
       end;
     :
       begin
         Writeln('冬季');
       end;
     :
       begin
         Writeln('冬季');
       end;
     :
       begin
         Writeln('冬季');
       end;

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

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

3.7.3、判断是否是高富帅

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

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

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

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