第三节 循环结构的算法实现.doc

第三节循环结构的算法实现一、循环结构在程序中多次执行的结构。二、用减法代替除法 t 是商! d1 被除数, d2 是除数条件语句 FT 条件语句 FT 开始 t-----0 输入 d1,d2 d1>d2 t=t+1 d1=d1-d2 输出 t和 d1 的值结束当型循环直到型循环三、 While< 条件>do< 语句>( 当型结构) Program divandmod; Uses wincrt; Var dividen, divisor, t, d1, d2:integer; Begin Writeln( ‘ input dividen and divisor: ’); Readln(dividen,divisor); t:=0; d1:=dividen; d2:=divisor; while d1>=d2 do begin t:=t+1; d1=d1-d2 end; writeln(dividen, ’ div ’, divisor, ’=’,t); writeln(dividen, ’ mod ’, divisor, ’=’,d1) end. 四、复合型结构例题:从键盘中输入一串字母,统计 E和 e 的个数,直到# 结束。 Program countE; Uses wincrt; Var ch: char; I: integer; Begin i: =0; read(ch); while ch<> ’#’ do begin if (ch= ’e’)or(ch= ’E’) then i :=i +1; read(ch) end; writeln( ‘i=’,i) end. 学生习题: 17. 程序实现用减法运算代替除法运算的功能,结果输出两个整数相除的商和余数。则程序中 1 处应填写( )。 Program Divandmod; Var d1,d2,t:integer; Begin Write (‘ input dividen and divisor: ’); Readln(d1,d2); t:=0 while d1>=d2 do begin t:=t+1; 1; end; writeln(d1, ’ div ’,d2, ’=’,t); writeln(d1, ’ mod ’,d2, ’=’,d1); end. :=d2-d1;