首页 > > 程序设计 > delphi >

Delphi-基础（for循环）

2019-12-02 16:01:36来源：博客园阅读 ()

Delphi-基础（for循环）

1、判断0~10之间，当循环I=3时候跳出当前循环，当I等于8时候，退出当前循环。

 1 procedure  Countand();
 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.

2、1~100 数字相加

 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.

3、打印1-100 之间所有7的倍数的证书的个数及总和（体会设置计算器的思想）

 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.

4、输出所有的水仙花数，所谓水仙花数指一个3位数，其个位上数字立方和等于其本身

 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.

5、9*9乘法表

 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.

6、在控制台上打印输出一个三角形的图案（参考9*9乘法表）

 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.