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.

相关阅读 >>

Delphi 压缩图片算法

Delphi fdquery1查询,有无返回集

Delphi判断系统是否64位

检测是否按下键盘或鼠标,如果超过5分钟没有操作则认为用户已经离开

Delphi xe5 程序中标识win max android ios程序代码分别实现

Delphi 取得txt文件编码

Delphi 启动程序隐藏主窗体

Delphi idhttp 验证码登录

Delphi ado 动态建立.mdb数据库,表

Delphi vcl 模式下和firemonkey 模式下的字符串

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...