當(dāng)型循環(huán)和直到型循環(huán)

1、當(dāng)型循環(huán)當(dāng)型循環(huán)(while)while 布爾表達(dá)式布爾表達(dá)式 do begin 語句語句1; 語句語句2； end;格式：格式：循環(huán)體循環(huán)體當(dāng)布爾表達(dá)式為真當(dāng)布爾表達(dá)式為真執(zhí)行循環(huán)體執(zhí)行循環(huán)體，為假則，為假則退出循環(huán)體退出循環(huán)體。例：例： while a4 do begin a:=a+1; end;當(dāng)型循環(huán)當(dāng)型循環(huán)(while)例例1：求：求s=2+6+10+14+18+94+98的值的值program li1;vars,x:integer;beginx:=2;s:=0;while x2 do begin a:=a-b; end;write(a=,a);readln;end.例例3：看程序，

2、寫結(jié)果：看程序，寫結(jié)果program li2;vari,k:integer;begin i:=10; k:=0; while (i=10) and (i=30) do begin k:=k+i; i:=i+2; end;writeln(k=,k);readln;end.實例4：求輸入一個整數(shù)的各位數(shù)字之和。實例5：求兩個自然數(shù)m,n的最小公倍數(shù)。var x,t,s:integer;begin readln(x); s:=0; while x0 do begin t:=x mod 10; s:=s+t; x:=x div 10; end; writeln(s);end.var m,n,i,s:l

3、ongint;begin writeln( input two number:); readln(m,n); i:=1; s:=m*i; while s mod n0 do begin i:=i+1; s:=m*i; end; writeln(m and n zui xiao gong bei shu shi:,s);end. 直到型循環(huán)直到型循環(huán)(repeat)格式：格式：repeat語句語句1；語句語句2；語句語句n;until 布爾表達(dá)式；布爾表達(dá)式； 當(dāng)布爾表達(dá)式是假，執(zhí)行循環(huán)體，直到布爾表達(dá)式當(dāng)布爾表達(dá)式是假，執(zhí)行循環(huán)體，直到布爾表達(dá)式是真時，退出循環(huán)。是真時，退出循環(huán)。循環(huán)體循環(huán)體

4、例：例： var a,b:integer; begin a:=0;b:=0; repeat a:=a+3; b:=b+2; until a+b20; writeln(a,b); readln; end. 直到型循環(huán)直到型循環(huán)(repeat)看程序，寫結(jié)果看程序，寫結(jié)果 program lianxi2;varn,k:integer;beginread(n);k:=n;repeat k:=k-1;until n mod k=0; write(k); readln;end.求求300300以內(nèi)能被以內(nèi)能被1717整除的最大的數(shù)。整除的最大的數(shù)。找到滿足條件的最找到滿足條件的最大數(shù)，結(jié)束循環(huán)大數(shù)，結(jié)束

5、循環(huán)var i:integer;begin for i:=300 downto 1 do begin if (i mod 17) then begin writeln(i); break; end; end;end.實例練習(xí)：輸入若干個字符，它的終止符號是#,計算輸入的字符中字母a及其大寫字母的出現(xiàn)次數(shù)。(用repeat until 語句實現(xiàn)）編寫程序提示用戶輸入一系列整數(shù)，用編寫程序提示用戶輸入一系列整數(shù)，用0作結(jié)束標(biāo)志，統(tǒng)計其中有多少個正數(shù)。作結(jié)束標(biāo)志，統(tǒng)計其中有多少個正數(shù)。program e;var count,x:integer;begin writeln(input integer

6、number(0-end):); count:=0; repeat read(x); if x0 then inc(count); until(x=0); writeln(count=,count);end. 轉(zhuǎn)向語句轉(zhuǎn)向語句(goto)goto語句使用的標(biāo)號必須在程序說明部分的最前面進行說明。語句使用的標(biāo)號必須在程序說明部分的最前面進行說明。說明的格式：說明的格式：label 標(biāo)號標(biāo)號1,標(biāo)號標(biāo)號2,；轉(zhuǎn)向的格式：轉(zhuǎn)向的格式：goto 標(biāo)號標(biāo)號 轉(zhuǎn)向語句轉(zhuǎn)向語句(goto)練習(xí)練習(xí)2：program lx3; label 1; var i,t:integer;begin i:=1; 1:if i=10 then begin t:=t+i; i:=i+1; goto 1 end; write(t=,t); readln;end.編寫程序：編寫程序：輸入輸入n個整數(shù)，計算它們之和。個整數(shù)，計算它們之和。program lx3;var