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

1、當(dāng)型循環(huán)當(dāng)型循環(huán)(while)while 布爾表達(dá)式布爾表達(dá)式 do begin 語(yǔ)句語(yǔ)句1; 語(yǔ)句語(yǔ)句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.實(shí)例4：求輸入一個(gè)整數(shù)的各位數(shù)字之和。實(shí)例5：求兩個(gè)自然數(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語(yǔ)句語(yǔ)句1；語(yǔ)句語(yǔ)句2；語(yǔ)句語(yǔ)句n;until 布爾表達(dá)式；布爾表達(dá)式； 當(dāng)布爾表達(dá)式是假，執(zhí)行循環(huán)體，直到布爾表達(dá)式當(dāng)布爾表達(dá)式是假，執(zhí)行循環(huán)體，直到布爾表達(dá)式是真時(shí)，退出循環(huán)。是真時(shí)，退出循環(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.實(shí)例練習(xí)：輸入若干個(gè)字符，它的終止符號(hào)是#,計(jì)算輸入的字符中字母a及其大寫字母的出現(xiàn)次數(shù)。(用repeat until 語(yǔ)句實(shí)現(xiàn)）編寫程序提示用戶輸入一系列整數(shù)，用編寫程序提示用戶輸入一系列整數(shù)，用0作結(jié)束標(biāo)志，統(tǒng)計(jì)其中有多少個(gè)正數(shù)。作結(jié)束標(biāo)志，統(tǒng)計(jì)其中有多少個(gè)正數(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)向語(yǔ)句轉(zhuǎn)向語(yǔ)句(goto)goto語(yǔ)句使用的標(biāo)號(hào)必須在程序說(shuō)明部分的最前面進(jìn)行說(shuō)明。語(yǔ)句使用的標(biāo)號(hào)必須在程序說(shuō)明部分的最前面進(jìn)行說(shuō)明。說(shuō)明的格式：說(shuō)明的格式：label 標(biāo)號(hào)標(biāo)號(hào)1,標(biāo)號(hào)標(biāo)號(hào)2,；轉(zhuǎn)向的格式：轉(zhuǎn)向的格式：goto 標(biāo)號(hào)標(biāo)號(hào) 轉(zhuǎn)向語(yǔ)句轉(zhuǎn)向語(yǔ)句(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個(gè)整數(shù)，計(jì)算它們之和。個(gè)整數(shù)，計(jì)算它們之和。program lx3;var