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.