Delphi基本之pascal语法（第四章.循环结构程序设计）

第四章、循环结构程序设计

一、FOR语句
格式：1、FOR <循环变量>：=<初值> TO <终值> DO <语句>；
2、FOR<循环变量>：=<终值> DOWNTO <初值> DO <语句>。
[例1]：输入10个数，求最大值、最小值、和、及平均值。

PROGRAM ten(input,output);
VAR
a,s,max,min,avg:real;
i:integer;
BEGIN
write('please input:');
read(a);
s:=a;
max:=a;
min:=a;
FOR i:=2 TO 10 DO
BEGIN
read(a);
s:=s+a;
IF a>max THEN
max:=a
ELSE
IF a<min THEN min:=a
END;
avg:=s/i;
writeln(……);
END.

[例2]：求s=1!+2!+3!+……+10!
program sum_fac(input,output);
var
i,j,s,m:integer;
begin
s:=0:
for j:=1 to 10 do
begin
m:=1;
for j:=1 to i do
m:=m*j;
s:=s+m;
end;
write(……);
end;

二、while语句
格式：WHILE <条件> DO
<循环体>
[例1]：输入一串字符串，求第一个“，”前的大小写字母个数和其它字符个数。
program string(input,output);
var
ch:char;
c,s,o:integer;
begin
write(……);
read(ch);
c:=0;
s:=0;
o:=0;
while ch<>',' do
begin
if (ch>='A')and(ch<='Z') then
c:=c+1
else if (ch>='a')and(ch<='z') then
s:=s+1
else
o:=o+1;
read(ch);
end;
write(……)；
end.

三、REPEAT语句
格式：REPEAT
<循环体>
UNTIL

[例]：以字符(char)的形式读入一实数，以实形(real)输出该数。

转载于:https://www.cnblogs.com/lijunno1/p/4957190.html