Delphi-基础（for循环）

新能源李陈更 發表於 2019-12-2 14:21:00

1、判断0~10之间，当循环I=3时候跳出当前循环，当I等于8时候，退出当前循环。
<div class="cnblogs_code">
<pre> 1 procedureCountand();
 2 var
 3 I: Integer;
 4 begin
 5 for I := 0 to 10 do
 6 begin
 7 Writeln(I);
 8 if I = 3 then
 9 begin
10 Writeln('跳过当前');
11 Continue;
12 end;
13 if I = 8 then
14 begin
15 Writeln('跳出循环');
16 Break;
17 end;
18 end;
19
20 end;
21
22 begin
23 Countand();
24 Readln;
25 end.</pre>
</div>
 
2、1~100 数字相加
<div class="cnblogs_code">
<pre> 1 procedure Sum1();
 2 var
 3 num1,sumnums : Integer;
 4 begin
 5 sumnums := 0;
 6 for num1 := 1 to 100 do// for 循环
 7 begin
 8 sumnums := num1 + sumnums; //将1-100数字进行相加
 9 end;
10 Writeln(sumnums);//屏幕输出计算结果
11 end;
12
13 procedure Sum2();
14 var
15 num2,sumnum2 : Integer;
16 begin
17 num2 := 0;
18 sumnum2 := 0;
19 while num2 < 100 do//while 循环
20 begin
21 num2 := num2 + 1;
22 Writeln('num2_value:',num2);
23 sumnum2 := num2 + sumnum2;//将1-100数字进行相加
24 end;
25 Writeln('eventuate:',sumnum2); //屏幕输出计算结果
26 end;
27
28 procedure Sum3();
29 var
30 num3,sumnum3 : Integer;
31 begin
32 num3 := 0;
33 sumnum3 := 0;
34 repeat //repeat 循环
35 num3 := num3+1;
36 Writeln(num3);//屏幕输出num3 1-100的数字
37 sumnum3 := num3 + sumnum3; //将1-100数字进行相加
38
39 until (num3 > 99);
40 Writeln(sumnum3); //屏幕输出计算结果
41 end;
42
43 begin
44 //Sum1();
45 //Sum2();
46 Sum3();
47 Readln;
48 end.</pre>
</div>
 
3、打印1-100 之间所有7的倍数的证书的个数及总和（体会设置计算器的思想）
<div class="cnblogs_code">
<pre> 1 procedure Counter();
 2 var
 3 i : Integer;
 4 Sumnum1 : Integer; //求和
 5 Amont : Integer; //统计个数
 6 begin
 7 Sumnum1 := 0;
 8 Amont := 0;
 9 for i := 1 to 100 do
10 begin
11 if (i mod 7) = 0 then
12 begin
13 // Writeln(i);
14 Sumnum1 := Sumnum1 + i;
15 Amont := Amont + 1;
16 end;
17 end;
18 Writeln(Sumnum1,' ',Amont);
19 end;
20 begin
21 Counter();
22 Readln;
23 end.</pre>
</div>
 
4、输出所有的水仙花数，所谓水仙花数指一个3位数，其个位上数字立方和等于其本身
<div class="cnblogs_code">
<pre> 1 procedure Narcissistic_number();
 2 var
 3 Ones : Integer; //个位
 4 Tens : Integer; //十位
 5 Hundreds : Integer;//百位
 6 Narcissistic_number :Integer; //水仙花数
 7 begin
 8 for Narcissistic_number := 100 to 999 do
 9 begin
10 //Narcissistic_number := 153;
11 Hundreds := Narcissistic_number div 100;
12 Tens := (Narcissistic_number mod 100) div 10;
13 Ones := (Narcissistic_number mod 100) mod 10;
14 // Writeln(Hundreds, ',', Tens, ',', Ones);
15
16 if (Hundreds*Hundreds*Hundreds+Tens*Tens*Tens+Ones*Ones*Ones) = Narcissistic_number then
17 begin
18 Writeln(Narcissistic_number)
19 end;
20
21 end;
22
23 end;
24
25 begin
26 //Counter();
27 Narcissistic_number();
28 Readln;
29 end.</pre>
</div>
 
5、9*9乘法表
<div class="cnblogs_code">
<pre> 1 procedure Multiplication_Table();
 2 var
 3 Height,Width : Integer;
 4 begin
 5 for Height := 1 to 9 do
 6 begin
 7 for Width := 1 to Height do
 8 begin
 9 //#$09制表符
10 Write(Height,'x',Width,'=',(Height*Width), #$09);
11 end;
12 Writeln('');
13 end;
14
15 end;
16 begin
17 Multiplication_Table();
18 Readln;
19 end.</pre>
</div>
 
6、在控制台上打印输出一个三角形的图案（参考9*9乘法表）
<div class="cnblogs_code">
<pre> 1 procedure Triangular_pattern();
 2 var
 3 num1,num2 : Integer;
 4 begin
 5 for num1 := 1 to 9 do
 6 begin
 7 for num2 := 1 to num1 do
 8 begin
 9 Write('*');
10 end;
11 Writeln('');
12 end;
13 end;
14 begin
15 Triangular_pattern();
16 Readln;
17 end.</pre>
</div>
 
 
  
来源：https://www.cnblogs.com/rise-home/p/11970380.html

頁: [1]

琼殿技术论坛's Archiver

Delphi-基础（for循环）