Delphi-基础（for循环）
2024-10-15 13:23:37
1、判断0~10之间，当循环I=3时候跳出当前循环，当I等于8时候，退出当前循环。
procedure Countand();
var
I: Integer;
begin
for I := to do
begin
Writeln(I);
if I = then
begin
Writeln('跳过当前');
Continue;
end;
if I = then
begin
Writeln('跳出循环');
Break;
end;
end; end; begin
Countand();
Readln;
end.
2、1~100 数字相加
procedure Sum1();
var
num1,sumnums : Integer;
begin
sumnums := ;
for num1 := to do // for 循环
begin
sumnums := num1 + sumnums; //将1-100数字进行相加
end;
Writeln(sumnums); //屏幕输出计算结果
end; procedure Sum2();
var
num2,sumnum2 : Integer;
begin
num2 := ;
sumnum2 := ;
while num2 < do //while 循环
begin
num2 := num2 + ;
Writeln('num2_value:',num2);
sumnum2 := num2 + sumnum2; //将1-100数字进行相加
end;
Writeln('eventuate:',sumnum2); //屏幕输出计算结果
end; procedure Sum3();
var
num3,sumnum3 : Integer;
begin
num3 := ;
sumnum3 := ;
repeat //repeat 循环
num3 := num3+;
Writeln(num3);//屏幕输出num3 1-100的数字
sumnum3 := num3 + sumnum3; //将1-100数字进行相加 until (num3 > );
Writeln(sumnum3); //屏幕输出计算结果
end; begin
// Sum1();
// Sum2();
Sum3();
Readln;
end.
3、打印1-100 之间所有7的倍数的证书的个数及总和（体会设置计算器的思想）
procedure Counter();
var
i : Integer;
Sumnum1 : Integer; //求和
Amont : Integer; //统计个数
begin
Sumnum1 := ;
Amont := ;
for i := to do
begin
if (i mod ) = then
begin
// Writeln(i);
Sumnum1 := Sumnum1 + i;
Amont := Amont + ;
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 := to do
begin
// Narcissistic_number := 153;
Hundreds := Narcissistic_number div ;
Tens := (Narcissistic_number mod ) div ;
Ones := (Narcissistic_number mod ) mod ;
// 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 := to do
begin
for Width := to Height do
begin
// #$09 制表符
Write(Height,'x',Width,'=',(Height*Width), #$);
end;
Writeln('');
end; end;
begin
Multiplication_Table();
Readln;
end.
6、在控制台上打印输出一个三角形的图案（参考9*9乘法表）
procedure Triangular_pattern();
var
num1,num2 : Integer;
begin
for num1 := to do
begin
for num2 := to num1 do
begin
Write('*');
end;
Writeln('');
end;
end;
begin
Triangular_pattern();
Readln;
end.
最新文章
- Grunt学习使用
- FactoryMethodPattern（工厂方法）
- jQuery文件上传插件jQuery Upload File 有上传进度条
- ORACLE迁移votedisk，spfile以及OCRfile的方法
- mysql保留关键字 BigDecimal Double 四舍五入
- 你可以做一个更好的Coder为了自己的将来
- 在XE5中 VCL空窗体的3个线程
- 点的双联通+二分图的判定（poj2942）
- IFE 百度前端技术学院 2016年春季班作业 第一阶段任务（1-4）的总结
- C# & SQL Server大数据量插入方式对比
- 关于SWT/JFace中其他常用的事件
- 初来咋到先试试windows live writer
- [LeetCode]题解（python）：018-4Sum
- ASP.NET MVC基于标注特性的Model验证：将ValidationAttribute应用到参数上
- iOS 协议
- Android中使用开源框架citypickerview实现省市区三级联动选择
- 在ZABBIX平台上通过SNMP协议监控网络设备
- 在mac os10.12上安装mysql5.7.18
- 从React组件划分的纠结到总结
- ILBC 规范 2