循环结构语句(for循环语句).ppt

FOR循环语句
键盘输入一个同学的语文成绩,判断成绩是否
为80分以上,是的则在屏幕上显示“good”。
Program ex1;
Var x:real;
Begin
Read(x);
If x>=80 then writeln(‘good’);
End.
{输入语文成绩}
{判断成绩是否大于或
等于80,是的则输出
“good”}
输入语文成绩
判断是成绩是否80分以上
输出“good”
键盘输入一个同学的语文成绩,判断成绩是否
为80分以上,是的则在屏幕上显示“good”。
{输入语文成绩}
{判断成绩是否大于或
等于80,是的则输出
“good”}
某班级有40人,请输入该40人的语文成绩,并
将考试成绩中80分以上的分数在屏幕显示“good”。
Program ex1;
Var x:real;
Begin
Read(x);
If x>=80 then writeln(‘good’);
End.
键盘输入一个同学的语文成绩,判断成绩是否
为80分以上,是的则在屏幕上显示“good”。
某班级有40人,请输入该40人的语文成绩,并
将考试成绩中80分以上的分数在屏幕显示“good”。
{输入语文成绩}
{判断成绩是否大于或
等于80,是的则输出
“good”}
Program ex1;
Var x:real;
Begin
Read(x);
If x>=80 then writeln(‘good’);
End.
某班级有40人,请输入该40人的语文成绩,并
将考试成绩中80分以上的分数在屏幕显示“good”。
Program exfor1;
Var x:real;
i:integer;
begin
For i:=1 to 40 do
begin
read(x);
if x>=80 then
writeln(‘good’);
end;
end.
循环体
i是循环控制变量
开始
够40人了吗?
输入语文成绩
判断是否80分以上,是的则输出
不够40人
超过40人
退出循环
递增计数循环
递减计数循环
格式
For 循环变量:=初值 to 终值 do 循环体
For循环变量:=初值 downto 终值 do 循环体
For循环语句的格式
注意事项:
1、循环变量必须是有序类型的,且必须与初值与终值的类型相同,例如:整数,字
符,而不能是实型。
2、循环变量的初值、终值可以是表达式。
3、循环体可以是任何单个语句或由多个语句组成的复合语句(begin……end)。
4、在循环体内不要随意改变循环变量的值,否则可能会造成死程序循环。
5、循环语句中,对初、终值表达式值的改变不会影响循环次数及循环变量的取值。
特点
初值<=终值
初值>=终值
循环
次数
终值-初值+1
初值-终值+1
例子
For i:=1 to 10 do writeln(‘YES’)
For i:=10 downto 1 do writeln(‘YES’)
例一:有10块长方形的桌面木板,分别键盘输入长和宽,分别求出各块木板的面积,并显示出来。
(结果保留两位小数)
program mianji;
var i:integer;
chang