请选择 进入手机版 | 继续访问电脑版
搜索
房产
装修
汽车
婚嫁
健康
理财
旅游
美食
跳蚤
二手房
租房
招聘
二手车
教育
茶座
我要买房
买东西
装修家居
交友
职场
生活
网购
亲子
情感
龙城车友
找美食
谈婚论嫁
美女
兴趣
八卦
宠物
手机

Delphi-基础(for循环)

[复制链接]
查看: 19|回复: 0

8157

主题

8157

帖子

2万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
24481
发表于 2019-12-2 17:44 | 显示全部楼层 |阅读模式
1、判定0~10之间,当循环I=3时候跳出当前循环,当I即是8时候,退出当前循环。
  1. 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       begin10         Writeln('跳过当前');11         Continue;12       end;13       if I = 8 then14       begin15         Writeln('跳出循环');16         Break;17       end;18     end;19 20 end;21 22 begin23   Countand();24   Readln;25 end.
复制代码

2、1~100 数字相加
  1. 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 var15   num2,sumnum2 : Integer;16 begin17   num2 := 0;18   sumnum2 := 0;19   while num2 < 100 do  //while 循环20     begin21       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 var30   num3,sumnum3 : Integer;31 begin32   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 begin44 //  Sum1();45 //  Sum2();46   Sum3();47   Readln;48 end.
复制代码

3、打印1-100 之间全数7的倍数的证书的个数及总和(领会设备计较器的脑筋)
  1. 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 do10     begin11       if (i mod 7) = 0 then12       begin13 //        Writeln(i);14         Sumnum1 := Sumnum1 + i;15         Amont := Amont + 1;16       end;17     end;18     Writeln(Sumnum1,' ',Amont);19 end;20 begin21   Counter();22   Readln;23 end.
复制代码

4、输出全数的水仙花数,所谓水仙花数指一个3位数,其个位上数字立方和即是其自己
  1. 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   begin10     //  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 then17     begin18       Writeln(Narcissistic_number)19     end;20 21   end;22 23 end;24 25 begin26 //  Counter();27   Narcissistic_number();28   Readln;29 end.
复制代码

5、9*9乘法表
  1. 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 begin17 Multiplication_Table();18   Readln;19 end.
复制代码

6、在控制台上打印输出一个三角形的图案(参考9*9乘法表)
  1. 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 begin15   Triangular_pattern();16   Readln;17 end.
复制代码




免责声明:假如加害了您的权益,请联系站长,我们会实时删除侵权内容,感谢合作!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Copyright © 2006-2014 淄博新闻网-淄博日报 淄博晚报 淄博财经新报 掌中淄博 淄博专业新闻资讯发布网站 版权所有 法律顾问:高律师 客服电话:0791-88289918
技术支持:迪恩网络科技公司  Powered by Discuz! X3.2
快速回复 返回顶部 返回列表