Delphi-基础（for循环）

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

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

end;

begin
  Countand();
  Readln;
end.

2、1~100 数字相加

procedure Sum1();
var
  num1,sumnums : Integer;
begin
  sumnums := 0;
  for num1 := 1 to 100 do  // for 循环
    begin
      sumnums := num1 + sumnums; //将1-100数字进行相加
    end;
    Writeln(sumnums);  //屏幕输出计算结果
end;

procedure Sum2();
var
  num2,sumnum2 : Integer;
begin
  num2 := 0;
  sumnum2 := 0;
  while num2 < 100 do  //while 循环
    begin
      num2 := num2 + 1;
      Writeln('num2_value:',num2);
      sumnum2 := num2 + sumnum2;  //将1-100数字进行相加
    end;
    Writeln('eventuate:',sumnum2); //屏幕输出计算结果
end;

procedure Sum3();
var
  num3,sumnum3 : Integer;
begin
  num3 := 0;
  sumnum3 := 0;
  repeat   //repeat 循环
    num3 := num3+1;
    Writeln(num3);//屏幕输出num3 1-100的数字
    sumnum3 := num3 + sumnum3; //将1-100数字进行相加

  until (num3 > 99);
  Writeln(sumnum3); //屏幕输出计算结果
end;

begin
//  Sum1();
//  Sum2();
  Sum3();
  Readln;
end.

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

procedure Counter();
var
  i : Integer;
  Sumnum1 : Integer; //求和
  Amont : Integer; //统计个数
begin
  Sumnum1 := 0;
  Amont := 0;
  for i := 1 to 100 do
    begin
      if (i mod 7) = 0 then
      begin
//        Writeln(i);
        Sumnum1 := Sumnum1 + i;
        Amont := Amont + 1;
      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 := 100 to 999 do
  begin
    //  Narcissistic_number := 153;
    Hundreds := Narcissistic_number div 100;
    Tens := (Narcissistic_number mod 100) div 10;
    Ones := (Narcissistic_number mod 100) mod 10;
//    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 := 1 to 9 do
  begin
    for Width := 1 to Height do
      begin
        //  #$09  制表符
        Write(Height,'x',Width,'=',(Height*Width), #$09);
      end;
      Writeln('');
  end;

end;
begin
Multiplication_Table();
  Readln;
end.

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

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