《循环结构-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:=0
2、;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 begin 3.读入x
3、4.将x加到sum上 end5.计算ave6.输出sum和ave,例二：读入20个数，输出它们的和以及平均值,二级求精：1.初始化sum为0；2.for i:=1 to 20 do begin 3.读入x 4.将x加到sum上 sum:=sum+x end5.计算ave6.输出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.,
