pascal 教程 第七课 for循环.pptVIP

Pascal程序设计(小学版)循环结构程序设计 * * 计数循环 计数循环也叫for循环，是通过书数来控制重复语句的 运行次数，它由循环开始 (for)语句和循环体两部份组 成。 for i:=1 to 4 do begin readln(a,b,c,d,k); t:=a+b+c+d; writeln(k,’ ‘,t); end; 循环开始 (for)语句→ 循环体 for i:=5 to 10 do begin a:=a+i; b:=a+b; writeln(‘a=‘,a,’ ‘,’b=‘,b); end; 循环开始 (for)语句→ 循环体 控制变量 初值 终值 先把初值赋给控制变量，然后将控制变量的值与终值进行比较，如果控制变量的 值小于或等于终值时执行循环体，然后把控制变量在原值基础上 加1；继续将控制 变量的值与终值进行比较，如果控制变量的值还是小于或等于终值则继续执行循环 体，然后再把控制变量加1；……如果控制变量的值大于终值则退出for循环，程序 往下运行。 例1：递增for循环 练习1：编程计算1 +2+3+4+5+6的值 program diqikelx1; var i,s:integer; begin s:=0; for i:=1 to 6 do s:=s+i; writeln(s); readln; end. 循环体 练习2： 写出下列程序运行的结果 program diqikelx2; var i:integer; begin for i:=1 to 100 do write(‘*’); readln; end. 循环体 for i:=10 downto 5 do begin a:=a+i; b:=a+b; writeln(‘a=‘,a,’ ‘,’b=‘,b); end; 循环开始 (for)语句→ 循环体 控制变量 初值 终值 先把初值赋给控制变量，然后将控制变量的值与终值进行比较，如果控制变量的 值大于或等于终值时执行循环体，然后把控制变量在原值基础上 减1；继续将控制 变量的值与终值进行比较，如果控制变量的值还是大于或等于终值则继续执行循环 体，然后再把控制变量减1；……如果控制变量的值小于终值则退出for循环，程序 往下运行。 例2：递减for循环 练习3： 写出下列程序运行的结果 program diqikelx3; var i:integer; begin for i:=90 downto 85 do write(‘*’); readln; end. 循环体 练习4： 写出下列程序运行的结果 program diqikelx4; var a,b,i:integer; begin a:=1; b:=2; for i:=1 to 5 do begin a:=a+b; b:=a+b; end; write(‘a=‘,a,’ b=‘,b,’ i=‘,i); readln; end. 练习5： 写出下列程序运行的结果 program diqikelx5; var i:integer; begin for i:=4 downto 2 do write(i+10); readln; end. program jia; 　　var a,b:integer; begin 　　b:=0; 　　for a:=1 to 100 do 　　　b:=a+b; writeln(b); readln end. 计算1+2+3+……+99+100=? for循环 多重循环 二重循环 program diqikeli2; var a,b:integer; begin for a:=1 to 4 do begin for b:=1 to 3 do write(‘*’); writeln; end; readln; end. 例3： for循环 多重循环 二重循环 program diqikeli2; var a,b:integer; begin for a:=1 to 4 do begin for b:=1 to a do write(b); writeln; end; readln; end. 例3： for循环 多重循环 二重循环 program diqikelx6; var a,b,c:integer; begin c:=1; for a:=1 to 10 do begin write(‘ ‘:40