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.
 24 ```
 25 ```
 26 {输出所有的水仙花数，所谓水仙花数指一个3位数，其个位上数字立方和等于其本身}
 27
 28 procedure Narcissistic_number();
 29 var
 30   Ones : Integer;   //个位
 31   Tens : Integer;   //十位
 32   Hundreds : Integer;  //百位
 33   Narcissistic_number :Integer; //水仙花数
 34 begin
 35   for Narcissistic_number := 100 to 999 do
 36   begin
 37     //  Narcissistic_number := 153;
 38     Hundreds := Narcissistic_number div 100;
 39     Tens := (Narcissistic_number mod 100) div 10;
 40     Ones := (Narcissistic_number mod 100) mod 10;
 41 //    Writeln(Hundreds, ',', Tens, ',', Ones);
 42
 43     if (Hundreds*Hundreds*Hundreds+Tens*Tens*Tens+Ones*Ones*Ones) = Narcissistic_number then
 44     begin
 45       Writeln(Narcissistic_number)
 46     end;
 47
 48   end;
 49
 50 end;
 51
 52 begin
 53 //  Counter();
 54   Narcissistic_number();
 55   Readln;
 56 end.
 57 ```
 58
 59 ```
 60 {9*9乘法表}
 61 procedure Multiplication_Table();
 62 var
 63   Height,Width : Integer;
 64 begin
 65   for Height := 1 to 9 do
 66   begin
 67     for Width := 1 to Height do
 68       begin
 69         //  #$09  制表符
 70         Write(Height,'x',Width,'=',(Height*Width), #$09);
 71       end;
 72       Writeln('');
 73   end;
 74
 75 end;
 76 begin
 77 Multiplication_Table();
 78   Readln;
 79 end.
 80 ```
 81
 82 ```
 83 {*在控制台上打印输出一个三角形的图案（参考9*9乘法表）*}
 84
 85 procedure Triangular_pattern();
 86 var
 87   num1,num2 : Integer;
 88 begin
 89   for num1 := 1 to 9 do
 90   begin
 91   for num2 := 1 to num1 do
 92     begin
 93       Write('*');
 94     end;
 95     Writeln('');
 96   end;
 97 end;
 98 begin
 99   Triangular_pattern();
100   Readln;
101 end.

View Code