第四章 循环结构程序设计2.pptVIP

* 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 本资料来自于资源最齐全的２１世纪教育网 第四章 循环结构程序设计 FOR语句（计数循环） 形式 FOR〈循环变量〉:=〈初值〉TO〈终值〉DO 〈循环体〉 FOR〈循环变量〉:=〈初值〉DOWNTO〈终值〉DO 〈循环体〉 循环体 真 假 循环变量 := 初值 循环变量:=succ(循环变量) 循环变量=终值 FOR〈循环变量〉:=〈初值〉TO〈终值〉DO 〈循环体〉 例1：输出1~20的自然数 PROGRAM for1(input,output) ; VAR i : integer ; BEGIN FOR i :=1 TO 20 DO write( i :5 ) END. 例1：输出1~20的自然数 （每行显示5个） PROGRAM for1(input,output) ; VAR i : integer ; BEGIN FOR i :=1 TO 20 DO BEGIN write( i :5 ) ; IF i MOD 5 = 0 THEN writeln END END. 思考： 1、输出20 ~ 1的自然数 2、输出1 ~ 100的偶数（每行显示10个） PROGRAM for2(input,output) ; VAR i : integer ; BEGIN writeln; FOR i :=1 TO 50 DO BEGIN write( 2*i ) ; IF (2*i) MOD 20 = 0 THEN writeln END END. 例2：输出1 ~ 100的偶数（每行显示10个） 例3：编一个程序，求从1至100的自然数的和 PROGRAM for3(input,output) ; VAR i , sum : integer ; BEGIN sum:=0 ; FOR i :=1 TO 100 DO sum:=sum+i ; writeln( ‘ 1+2+3+…+100= ’, sum) END. 例4：编一个程序，求从1至10的自然数的积 PROGRAM for4(input,output) ; VAR i : integer ; mul :real ; BEGIN mul:=1 ; FOR i :=1 TO 10 DO mul:=mul*i ; writeln( ‘ 1× 2 × 3 × … ×10= ’, mul:10:0 ) END. 程序4.3 计算n！ PROGRAM for4(input,output) ; VAR i , n : integer ; mul :real ; BEGIN read(n) ; mul:=1 ; FOR i :=1 TO n DO mul:=mul*i ; writeln( ‘1× 2 × 3 × … ×n= ’, mul:10:0 ) END. 读下列程序 s:=0 ; for i :=1 to 5 do s:=s+2 ; write(s) s:=0 ;