100 likes | 266 Views
例题. 例题 1 : 1*2*3*…*10=?. 执行语句. 是否符合条件. 是. 否. 结束. 循环结构. 例题 1 : 1*2*3*…*10=?. 初始化: i:=1,sum:=1;. 步骤: ( 1 )当 i=1 时, sum:=sum*I 得 sum:=1 ( 2 )当 i=2 时, sum:=sum*i 得 sum:=2 ( 3 )当 i=3 时, sum:=sum*i 得 sum:=6 ( 4 )当 i=4 时, sum:=sum*i 得 sum:=24 …… (10) 当 i=10 时, sum:=sum*I
E N D
例题 • 例题1:1*2*3*…*10=?
执行语句 是否符合条件 是 否 结束 循环结构
例题1:1*2*3*…*10=? 初始化: i:=1,sum:=1; 步骤: (1)当i=1时,sum:=sum*I 得sum:=1 (2)当i=2时,sum:=sum*i 得sum:=2 (3)当i=3时,sum:=sum*i 得sum:=6 (4)当i=4时,sum:=sum*i 得sum:=24 …… (10)当i=10时,sum:=sum*I …… sum:=sum*i i:=i+1; i<=10 ? 是 否 结束
For循环 • 格式: • for 条件1 to 条件2 do • begin • 执行语句; • end; • 注意:条件1<=条件2
例题1:1*2*3*…*10=? • Program e1; • Var i,sum:longint; • Begin • i:=1; • sum:=1 • for i to 10 do • begin • sum:=sum*i • end; • writeln(sum) • end. For 循环
While循环 • 格式: • while 条件 do • begin • 语句; • end
例题1:1*2*3*…*10=? • Program e1; • Var i,sum:longint; • Begin • i:=1; • sum:=1 • while i<=10 do • begin • sum:=sum*I; • i:=i+1 • end; • writeln(sum) • end.
Repeat…until • 格式: • Repeat • 语句;… • Until 条件;
作业 • 编写程序计算下面式子的结果; • 1*2+2*3+3*4+…+20*21=?