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.
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.039369106292725 seconds