Delphi-基础(运算符)

我在唐朝你在汉 發表於 2019-11-25 15:55:00

一、运算符 　　1、变量 　　2、运算符** 　　3、表达式
 
1、变量
 变量解释：编程中最小的存储单元（空间），它的空间大小由它在声明时的数据类型决定。
1.1、声明 : 定义一个变量，告诉Delphi一个名字的存储空间
<div class="cnblogs_code">
<pre>1 var 变量名:数据类型;</pre>
</div>
1.2、变量初始化（给变量的第一次赋值）
<div class="cnblogs_code">
<pre>1 {赋值：变量名:=变量的值;}</pre>
</div>
<div class="cnblogs_code">
<pre>1 //变量进行声明
2 var
3 Age:Integer;</pre>
</div>
1.3、初始化一个变量
<div class="cnblogs_code">
<pre> 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;</pre>
</div>
 
2、运算符
　　算数运算符: + - * /(不会整除) div(整除) mod(求模、求余数)
　　布尔运算符:
　　关系运算符：<>(不等于)
2.1、布尔运算符示例
<div class="cnblogs_code">
<pre>1 Writeln(1 <> 2);
2 Writeln(not(1 <> 2));
3 Writeln((1<2) and (2<3));
4 Writeln((1<2) or (2<3));</pre>
</div>
2.2、xor(异或):判断条件中相同为False，不同为True
<div class="cnblogs_code">
<pre>1 Writeln((1<2) xor (2<3));
2 Writeln((1<2) xor (2>3));</pre>
</div>
 
3、表达式
  3.1、表达式 :由运算符和合法的标识符组成的序列
　　　划分：根据运算结果的类型 1 < 2 1 +1
  3.2、语句：主要有关键字和操作指令组成
　　　划分：选择语句
　　　　　　if
　　　　　　case
　　　　　　循环语句
 
3.3、语句格式
<div class="cnblogs_code">
<pre> 1 begin
 2 if 1<2 then
 3 begin
 4 //当判断条件成立时，执行的代码
 5 //向控制台写出一段内容
 6 Writeln('hello Delphi');
 7 end;
 8
 9 //从控制台读入一行文本，止到遇到回车（换行符）
10 Readln;
11 end.</pre>
</div>
3.4、简写方式：前提是只需要执行一行代码
<div class="cnblogs_code">
<pre>1 begin
2 if 1 < 2 then
3 Writeln('hello');//简写时省去写begin end;
4 end;</pre>
</div>
3.5、如果否则
<div class="cnblogs_code">
<pre> 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.</pre>
</div>
3.6、case 语句
<div class="cnblogs_code">
<pre> 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.</pre>
</div>
 3.7、定义各一个过程
3.7.1、学生成绩判断
<div class="cnblogs_code"><img id="code_img_closed_9c954431-aa87-414b-a372-237f7a284966" class="code_img_closed lazyload" alt="" data-src="http://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif"><img id="code_img_opened_9c954431-aa87-414b-a372-237f7a284966" class="code_img_opened lazyload" style="display: none" alt="" data-src="http://images.cnblogs.com/OutliningIndicators/ExpandedBlockStart.gif">
<div id="cnblogs_code_open_9c954431-aa87-414b-a372-237f7a284966" class="cnblogs_code_hide">
<pre> 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 > 60then
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.</pre>
</div>
View Code</div>
3.7.2、根据用于指定月份，打印该月份所属的季节。
<div class="cnblogs_code"><img id="code_img_closed_6f3d6709-7d3e-4ee0-8111-f44f0c401c0a" class="code_img_closed lazyload" alt="" data-src="http://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif"><img id="code_img_opened_6f3d6709-7d3e-4ee0-8111-f44f0c401c0a" class="code_img_opened lazyload" style="display: none" alt="" data-src="http://images.cnblogs.com/OutliningIndicators/ExpandedBlockStart.gif">
<div id="cnblogs_code_open_6f3d6709-7d3e-4ee0-8111-f44f0c401c0a" class="cnblogs_code_hide">
<pre>1 {*------------------------------------------------------------------------------
2 根据用于指定月份，打印该月份所属的季节。
3 3,4,5 春季 6,7,8 夏季9,10,11 秋季 12,1,2 冬季
4 @param Month 需要判断月份
5 -------------------------------------------------------------------------------}
6 procedureJudgmentIn(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 procedureJudgmentIn2(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.</pre>
</div>
View Code</div>
3.7.3、判断是否是高富帅
<div class="cnblogs_code"><img id="code_img_closed_748ce35c-9162-4f9a-8244-891eef72b0e8" class="code_img_closed lazyload" alt="" data-src="http://images.cnblogs.com/OutliningIndicators/ContractedBlock.gif"><img id="code_img_opened_748ce35c-9162-4f9a-8244-891eef72b0e8" class="code_img_opened lazyload" style="display: none" alt="" data-src="http://images.cnblogs.com/OutliningIndicators/ExpandedBlockStart.gif">
<div id="cnblogs_code_open_748ce35c-9162-4f9a-8244-891eef72b0e8" class="cnblogs_code_hide">
<pre> 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.</pre>
</div>
View Code</div>
 
  
来源：https://www.cnblogs.com/rise-home/p/11928322.html

頁: [1]

琼殿技术论坛's Archiver

Delphi-基础(运算符)