发布时间 : 星期日 文章第三节 循环结构的算法实现更新完毕开始阅读14a8efee172ded630b1cb670
第三节 循环结构的算法实现
一、循环结构
在程序中多次执行的结构。 当型循环 F 条件 T 语句 二、用减法代替除法 t 是商！d1被除数，d2是除数 直到型循环 语句 F 条件 T 开始 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.
A.d2:=d2-d1; B.d2:=d1-d2; C.d1:=d2-d1; D.d1:=d1-d2; 18.下列程序段中，循环体执行的次数为（N：=0； I：=1； While N
A.1 B.2 C.3 D.4
） 19.下列FOR的语句构成的循环，能执行且有输出的是（ ） A.for I:=1 downto 5 do write(i) B.for I:=5 to 1 dowrite(i) C.for I:=5 to 5do write(i) D.for I:=0.5 to 5.5 do write(i) 20.有程序段 fori:=1 to 10 do begin j:=i mod 4; write (j:1) end writeln; 输出应为（ ）
A、1230123012 B
、1231231231 C、0123012312 D、1234123412