本文整理自网络,侵删。
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;beginMultiplication_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.
相关阅读 >>
检测是否按下键盘或鼠标,如果超过5分钟没有操作则认为用户已经离开
Delphi xe5 程序中标识win max android ios程序代码分别实现
Delphi vcl 模式下和firemonkey 模式下的字符串
更多相关阅读请进入《Delphi》频道 >>