循环结构语句(for循环语句)
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
开始 够10次ቤተ መጻሕፍቲ ባይዱ吗？ 输入长和宽
计算面积（mianji）
输出面积
结 束
练习一：选择题。
1、For i:=5 （ B ） 1 do writeln(‘school’); A、on B、downto C、to D、of 2、For j:=5 to 12 do write (‘a’); 这个循环的循环次数是（C）次。 A、12 B、7 C、 8 D、5 3、以下列FOR 循环循中合法的是( B ). A)for r：=1.5 to 4.5 do Write(r) B)for c：='e' downto 'b' to Write(C) C)for i：=45 to 5 do write(i) D)for i:=5 to ‘k’ do write(i)
For循环语句的格式
递增计数循环
格式 例子 特点 循环 次数 For 循环变量:=初值 to 终值 do 循环体 For i:=1 to 10 do writeln(‘YES’) 初值<=终值 终值－初值＋1
递减计数循环
For循环变量:=初值 downto 终值 do 循环体 For i:=10 downto 1 do writeln(‘YES’) 初值>=终值 初值－终值＋1
｛输入语文成绩｝ ｛判断成绩是否大于或 等于80，是的则输出 “good” ｝
键盘输入一个同学的语文成绩，判断成绩是否 为80分以上，是的则在屏幕上显示“good” 。 某班级有40人，请输入该40人的语文成绩，并 将考试成绩中80分以上的分数在屏幕显示“good” 。 Program ex1; Var x:real; Begin Read(x); If x>=80 then writeln(‘good’); End.
练习二：写出下列程序的运行结果。
(1) Var k:integer; Begin For k:=1 to 5 do If k>3 then writeln(k*2); End. (2) Var k:integer; Begin For k:=6 to 10 do Writeln(‘*’:k); End.
键盘输入一个同学的语文成绩，判断成绩是否 为80分以上，是的则在屏幕上显示“good”。
输入语文成绩 判断是成绩是否80分以上 输出“good”
Program ex1; Var x:real; Begin Read(x); If x>=80 then writeln(‘good’); End.
｛输入语文成绩｝ ｛判断成绩是否大于或 等于80，是的则输出 “good”｝
例一：有10块长方形的桌面木板，分别键盘输入长 和宽，分别求出各块木板的面积，并显示出来。 （结果保留两位小数）
program mianji; var i:integer; chang,kuan,mianji:real; begin for i:=1 to 10 do begin readln(chang,kuan); mianji:=chang*kuan; writeln(mianji:0:2); end; end.
键盘输入一个同学的语文成绩，判断成绩是否 为80分以上，是的则在屏幕上显示“good” 。 某班级有40人，请输入该40人的语文成绩，并 将考试成绩中80分以上的分数在屏幕显示“good” 。 Program ex1; Var x:real; Begin Read(x); If x>=80 then writeln(‘good’); End.
注意事项：
1、循环变量必须是有序类型的，且必须与初值与终值的类型相同，例如：整数，字 符，而不能是实型。 2、循环变量的初值、终值可以是表达式。
3、循环体可以是任何单个语句或由多个语句组成的复合语句（ begin……end）。 4、在循环体内不要随意改变循环变量的值，否则可能会造成死程序循环。
5、循环语句中，对初、终值表达式值的改变不会影响循环次数及循环变量的取值。
｛输入语文成绩｝ ｛判断成绩是否大于或 等于80，是的则输出 “good” ｝
某班级有40人，请输入该40人的语文成绩，并 将考试成绩中80分以上的分数在屏幕显示“good” 。 Program exfor1; 开始 Var x:real; i:integer; i是循环控制变量 超过40人 够 40 人 begin 了吗？ For i:=1 to 40 do 不够40人 begin read(x); 输入语文成绩 退 if x>=80 then 出 判断是否80分 writeln(‘good’); 循 以上，是的则 end; 环 输出 end. 循环体
8 10
ㄩㄩㄩㄩㄩ* ㄩㄩㄩㄩㄩㄩ* ㄩㄩㄩㄩㄩㄩㄩ* ㄩㄩㄩㄩㄩㄩㄩㄩ* ㄩㄩㄩㄩㄩㄩㄩㄩㄩ*
练习三：编写程序。
在1～100中，找出所有的偶数并输出，最后统 计所有偶数的个数，并输出。
计算面积（mianji）
输出面积
结 束
练习一：选择题。
1、For i:=5 （ B ） 1 do writeln(‘school’); A、on B、downto C、to D、of 2、For j:=5 to 12 do write (‘a’); 这个循环的循环次数是（C）次。 A、12 B、7 C、 8 D、5 3、以下列FOR 循环循中合法的是( B ). A)for r：=1.5 to 4.5 do Write(r) B)for c：='e' downto 'b' to Write(C) C)for i：=45 to 5 do write(i) D)for i:=5 to ‘k’ do write(i)
For循环语句的格式
递增计数循环
格式 例子 特点 循环 次数 For 循环变量:=初值 to 终值 do 循环体 For i:=1 to 10 do writeln(‘YES’) 初值<=终值 终值－初值＋1
递减计数循环
For循环变量:=初值 downto 终值 do 循环体 For i:=10 downto 1 do writeln(‘YES’) 初值>=终值 初值－终值＋1
｛输入语文成绩｝ ｛判断成绩是否大于或 等于80，是的则输出 “good” ｝
键盘输入一个同学的语文成绩，判断成绩是否 为80分以上，是的则在屏幕上显示“good” 。 某班级有40人，请输入该40人的语文成绩，并 将考试成绩中80分以上的分数在屏幕显示“good” 。 Program ex1; Var x:real; Begin Read(x); If x>=80 then writeln(‘good’); End.
练习二：写出下列程序的运行结果。
(1) Var k:integer; Begin For k:=1 to 5 do If k>3 then writeln(k*2); End. (2) Var k:integer; Begin For k:=6 to 10 do Writeln(‘*’:k); End.
键盘输入一个同学的语文成绩，判断成绩是否 为80分以上，是的则在屏幕上显示“good”。
输入语文成绩 判断是成绩是否80分以上 输出“good”
Program ex1; Var x:real; Begin Read(x); If x>=80 then writeln(‘good’); End.
｛输入语文成绩｝ ｛判断成绩是否大于或 等于80，是的则输出 “good”｝
例一：有10块长方形的桌面木板，分别键盘输入长 和宽，分别求出各块木板的面积，并显示出来。 （结果保留两位小数）
program mianji; var i:integer; chang,kuan,mianji:real; begin for i:=1 to 10 do begin readln(chang,kuan); mianji:=chang*kuan; writeln(mianji:0:2); end; end.
键盘输入一个同学的语文成绩，判断成绩是否 为80分以上，是的则在屏幕上显示“good” 。 某班级有40人，请输入该40人的语文成绩，并 将考试成绩中80分以上的分数在屏幕显示“good” 。 Program ex1; Var x:real; Begin Read(x); If x>=80 then writeln(‘good’); End.
注意事项：
1、循环变量必须是有序类型的，且必须与初值与终值的类型相同，例如：整数，字 符，而不能是实型。 2、循环变量的初值、终值可以是表达式。
3、循环体可以是任何单个语句或由多个语句组成的复合语句（ begin……end）。 4、在循环体内不要随意改变循环变量的值，否则可能会造成死程序循环。
5、循环语句中，对初、终值表达式值的改变不会影响循环次数及循环变量的取值。
｛输入语文成绩｝ ｛判断成绩是否大于或 等于80，是的则输出 “good” ｝
某班级有40人，请输入该40人的语文成绩，并 将考试成绩中80分以上的分数在屏幕显示“good” 。 Program exfor1; 开始 Var x:real; i:integer; i是循环控制变量 超过40人 够 40 人 begin 了吗？ For i:=1 to 40 do 不够40人 begin read(x); 输入语文成绩 退 if x>=80 then 出 判断是否80分 writeln(‘good’); 循 以上，是的则 end; 环 输出 end. 循环体
8 10
ㄩㄩㄩㄩㄩ* ㄩㄩㄩㄩㄩㄩ* ㄩㄩㄩㄩㄩㄩㄩ* ㄩㄩㄩㄩㄩㄩㄩㄩ* ㄩㄩㄩㄩㄩㄩㄩㄩㄩ*
练习三：编写程序。
在1～100中，找出所有的偶数并输出，最后统 计所有偶数的个数，并输出。