循环结构语句(当型循环语句)

Read(x); If x<min then min:=x; until n=5; Writeln(min) End.
使用while循环
Program ex1; Var x,n,min:integer; Begin min:=5000; n:=0; While n<=5 do begin n:=n+1;
2、循环体中要有能够影响<条件>改变为false值的语句，否则循环将无法结束；
从键盘连续输入5个不大于3000的数，找 出最小的一个数。(利用当型循环语句编程)
输入5个数 判断并找出最小的数 输出最小的数
Program ex1;
Var x,n,min:integer;
Begin
min:=5000;
出最小的一个数。
开始
分别给min和n变量 赋初值
Program ex1; Var x,n,min:integer; Begin min:=5000; n:=0; While n<=5 do begin n:=n+1;
Read(x); If x<min then min:=x; end; Writeln(min) End.
开始
直到循环、当型循环的流程图比较
分别给min和n变量 赋初值
n增加1
开始
分别给min和n变量 赋初值
输入x
TBaidu Nhomakorabea
X是否小
F
于min
把x的值赋给min
F 直到型
n=5
T 退出循环
N<=5
F
T
n增加1
输入x
T
X是否小
F
于min
把x的值赋给min
输出min
结束
当型
退出循环
输出min
结束
直到型循环语句的格式
循环语句
格式
while <条件> do <循环体>；
例子
N:=1;while n<=10 do begin n:=n+1；read(a);sum:=sum+a;end；
检查<条件>，当条件成立时执行do后的语句，而条件不再成 特点 立时，退出循环。
注意事项：
1、当循环体多于1个语句时，要用复合语句括起来。
n:=0; While n<=5 do是否够5个数
begin
n:=n+1; Read(x); ｛连续输入5个数｝
If x<min then min:=x; ｛判断输入的数是否小于min，
end;
是的则把它的值赋给min｝
Writeln(min) 输出最小的数
End.
从键盘连续输入5个不大于3000的数，找
Read(x); If x<min then min:=x; end; Writeln(min) End.
使用for循环
Program ex1; Var x,n,min:integer; Begin min:=5000; for n:=1 to 5 do begin
Read(x); If x<min then min:=x; End; Writeln(min) End.
N<=5
F
T
n增加1
输入x
T
X是否小
F
于min
把x的值赋给min
退出循环
输出min
结束
直到循环、当型和计数循环的程序段比较
从键盘连续输入5个不大于3000的数，找 出最小的一个数。
使用repeat循环
Program ex1; Var x,n,min:integer; Begin min:=5000; n:=0; Repeat n:=n+1;