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

第三节 循环结构的算法实现 循环结构 在程序中多次执行的结构。 用减法代替除法 t 是商！d1被除数，d2是除数 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 NI do Begin N:=I*I I:=I+1 End; 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 条件 语句 F T 语句 条件 F T 开始 t-----0 输入d1,d2 d1d2 t=t+1 d1=d1-d2 输出t和d1的值 结束 当型循环 直到型循环