《循环结构for语句.ppt》由会员分享,可在线阅读,更多相关《循环结构for语句.ppt(9页珍藏版)》请在三一文库上搜索。
1、循环结构for语句,Pascal暑假微课系列,第05课,通过计数来控制重复语句的运行次数。,(计数循环)for语句,for循环,for语句,循环体(需要重复执行的子程序),递增型for循环,(计数循环)for语句,for 控制变量:=初值 to 终值 do 循环体语句,递增型for循环,(计数循环)for语句,for 控制变量:=初值 to 终值 do 循环体语句,递增型for循环,for 控制变量:=初值 downto 终值 do 循环体语句,例一:,编程计算1+2+3+100=?,Program he(input,output); var i,sum:integer; begin sum:
2、=0; for i:=1 to 100 do sum:=sum+i; writeln(sum); end.,递增型for循环,例一:,编程计算1+2+3+100=?,Program he(input,output); var i,sum:integer; begin sum:=0; for i:=100 downto 1 do sum:=sum+i; writeln(sum); end.,递增型for循环,例二:读入20个数,输出它们的和以及平均值,讨论:设每次读入的数为x,和sum,平均值ave,它们都是实数类型。,一级算法: 1.初始化sum为0; 2.for i:=1 to 20 do
3、begin 3.读入x 4.将x加到sum上 end 5.计算ave 6.输出sum和ave,例二:读入20个数,输出它们的和以及平均值,二级求精: 1.初始化sum为0; 2.for i:=1 to 20 do begin 3.读入x 4.将x加到sum上 sum:=sum+x end 5.计算ave 6.输出sum和ave,例二:读入20个数,输出它们的和以及平均值,Program aa(input,output); var i:integer; x,sum,ave:real; begin sum:=0; for i:=1 to 20 do begin read(x); sum:=sum+x; end; ave:=sum/20; writeln(sum,ave); end.,