Delphi-基础（for循环）

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

 procedure  Countand();
 var
   I: Integer;
 begin
     for I :=  to  do
     begin
       Writeln(I);
       if I =  then
       begin
         Writeln('跳过当前');
         Continue;
       end;
       if I =  then
       begin
         Writeln('跳出循环');
         Break;
       end;
     end; end; begin
   Countand();
   Readln;
 end.

2、1~100 数字相加

 procedure Sum1();
 var
   num1,sumnums : Integer;
 begin
   sumnums := ;
   for num1 :=  to  do  // for 循环
     begin
       sumnums := num1 + sumnums; //将1-100数字进行相加
     end;
     Writeln(sumnums);  //屏幕输出计算结果
 end; procedure Sum2();
 var
   num2,sumnum2 : Integer;
 begin
   num2 := ;
   sumnum2 := ;
   while num2 <  do  //while 循环
     begin
       num2 := num2 + ;
       Writeln('num2_value:',num2);
       sumnum2 := num2 + sumnum2;  //将1-100数字进行相加
     end;
     Writeln('eventuate:',sumnum2); //屏幕输出计算结果
 end; procedure Sum3();
 var
   num3,sumnum3 : Integer;
 begin
   num3 := ;
   sumnum3 := ;
   repeat   //repeat 循环
     num3 := num3+;
     Writeln(num3);//屏幕输出num3 1-100的数字
     sumnum3 := num3 + sumnum3; //将1-100数字进行相加   until (num3 > );
   Writeln(sumnum3); //屏幕输出计算结果
 end; begin
 //  Sum1();
 //  Sum2();
   Sum3();
   Readln;
 end.

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

 procedure Counter();
 var
   i : Integer;
   Sumnum1 : Integer; //求和
   Amont : Integer; //统计个数
 begin
   Sumnum1 := ;
   Amont := ;
   for i :=  to  do
     begin
       if (i mod ) =  then
       begin
 //        Writeln(i);
         Sumnum1 := Sumnum1 + i;
         Amont := Amont + ;
       end;
     end;
     Writeln(Sumnum1,' ',Amont);
 end;
 begin
   Counter();
   Readln;
 end.

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

 procedure Narcissistic_number();
 var
   Ones : Integer;   //个位
   Tens : Integer;   //十位
   Hundreds : Integer;  //百位
   Narcissistic_number :Integer; //水仙花数
 begin
   for Narcissistic_number :=  to  do
   begin
     //  Narcissistic_number := 153;
     Hundreds := Narcissistic_number div ;
     Tens := (Narcissistic_number mod ) div ;
     Ones := (Narcissistic_number mod ) mod ;
 //    Writeln(Hundreds, ',', Tens, ',', Ones);     if (Hundreds*Hundreds*Hundreds+Tens*Tens*Tens+Ones*Ones*Ones) = Narcissistic_number then
     begin
       Writeln(Narcissistic_number)
     end;   end; end; begin
 //  Counter();
   Narcissistic_number();
   Readln;
 end.

5、9*9乘法表

 procedure Multiplication_Table();
 var
   Height,Width : Integer;
 begin
   for Height :=  to  do
   begin
     for Width :=  to Height do
       begin
         //  #$09  制表符
         Write(Height,'x',Width,'=',(Height*Width), #$);
       end;
       Writeln('');
   end; end;
 begin
 Multiplication_Table();
   Readln;
 end.

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

 procedure Triangular_pattern();
 var
   num1,num2 : Integer;
 begin
   for num1 :=  to  do
   begin
   for num2 :=  to num1 do
     begin
       Write('*');
     end;
     Writeln('');
   end;
 end;
 begin
   Triangular_pattern();
   Readln;
 end.