《循环结构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.,