Delphi-基礎(運算符)

1、運算符
　　一、變量
　　二、運算符**
　　三、表達式

 

一、變量

 變量解釋：編程中最小的存儲單元（空間），它的空間大小由它在聲明時的數據類型決定。

1.一、聲明 : 定義一個變量，告訴Delphi一個名字的存儲空間

1 var 變量名:數據類型;

1.二、變量初始化（給變量的第一次賦值）

1 {賦值： 變量名:=變量的值;}

1 //變量進行聲明
2 var
3   Age:Integer;

1.三、初始化一個變量

 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;

 

二、運算符

　　算數運算符: + - * /(不會整除) div(整除) mod(求模、求餘數)

　　布爾運算符:

　　關係運算符：<>(不等於)

2.一、布爾運算符示例

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

2.二、xor(異或):判斷條件中相同爲False，不一樣爲True

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

 

三、表達式

  3.一、表達式 :由運算符和合法的標識符組成的序列

　　　劃分：根據運算結果的類型 1 < 2 1 +1

  3.二、語句：主要有關鍵字和操做指令組成

　　　劃分：選擇語句

　　　　　　if

　　　　　　case

　　　　　　循環語句

 

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.四、簡寫方式：前提是隻須要執行一行代碼

1 begin
2   if 1 < 2 then
3     Writeln('hello');  //簡寫時省去寫begin end;
4 end;

3.五、若是不然

 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.六、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.七、定義各一個過程

3.7.一、學生成績判斷

 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.二、根據用於指定月份 ，打印該月份所屬的季節。

  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.三、判斷是不是高富帥

 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.

View Code