pascal語(yǔ)言編程之while循環(huán)

1、2016年11月一、while循環(huán) 對(duì)于for循環(huán)有時(shí)也稱為計(jì)數(shù)循環(huán)，當(dāng)循環(huán)次數(shù)未知，只能根據(jù)某一條件來(lái)決定是否進(jìn)行循環(huán)時(shí)，用while語(yǔ)句或repeat語(yǔ)句實(shí)現(xiàn)循環(huán)更方便。While語(yǔ)句的形式為： while do ；其意義為：當(dāng)布爾表達(dá)式的值為true時(shí)，執(zhí)行do后面的語(yǔ)句。While語(yǔ)句的執(zhí)行過(guò)程為： 1.判斷布爾表達(dá)式的值，如果其值為真，執(zhí)行步驟2，否則執(zhí)行步驟4； 2.執(zhí)行循環(huán)體語(yǔ)句（do后面的語(yǔ)句）； 3.返回步驟1； 4.結(jié)束循環(huán)，執(zhí)行while的下一個(gè)語(yǔ)句。 說(shuō)明：這里while和do為保留字，while語(yǔ)句的特點(diǎn)是先判斷，后執(zhí)行。當(dāng)布爾表達(dá)式成立時(shí)，重復(fù)執(zhí)行do后面的語(yǔ)句（循

2、環(huán)體）。總結(jié)：while的執(zhí)行過(guò)程：判斷、執(zhí)行、返回、結(jié)束。例6、求恰好使s=1+1/2+1/3+1/n的值大于10時(shí)n的值。 分析：“恰好使s的值大于10”意思是當(dāng)表達(dá)式s的前n-1項(xiàng)的和小于或等于10，而加上了第n項(xiàng)后s 的值大于10。從數(shù)學(xué)角度，我們很難計(jì)算這個(gè)n 的值。故從第一項(xiàng)開始，當(dāng)s 的值小于或等于10 時(shí)，就繼續(xù)將下一項(xiàng)值累加起來(lái)。當(dāng)s的值超過(guò)10時(shí)，最后一項(xiàng)的項(xiàng)數(shù)即為要求的n。程序如下：var s:real; n:integer; n表示項(xiàng)數(shù)begin s:=0.0;n:=0; while s=10 do 當(dāng)s的值還未超過(guò)10時(shí) begin n:=n+1; 項(xiàng)數(shù)加1 s:=s

3、+1/n; 將下一項(xiàng)值累加到s end; writlen(n=,n); 輸出結(jié)果end.例7、求兩個(gè)正整數(shù)m和n的最大公約數(shù)。分析：求兩個(gè)正整數(shù)的最大公約數(shù)采用的輾轉(zhuǎn)相除法求解。以下是輾轉(zhuǎn)的算法：分別用m,n,r表示被除數(shù)、除數(shù)、余數(shù)。 求m/n的余數(shù)r. 若r=0,則n為最大公約數(shù).若r0,執(zhí)行第步. 將n的值放在m中,將r的值放在n中. 返回重新執(zhí)行第步。 程序如下:program ex4_4;var m,n,a,b,r:integer;beginwrite(Input m,n:);readln(m,n);a:=m;b:=n;r:=a mod b;while r0 do begin a:=b;b:=r; r:=a mod b; end;writeln(The greatest common divideis:,b:8);end.練習(xí)：1、用WHILE循環(huán)完成如下3題：求s=1+2+3+4+10求s=1+1/2+1/3+1/100求的值。已知/4=1 1/3 +1/5 1/7 + 1/9 - ，要求最后一項(xiàng)小于10-6為止。2、輸入任一的自然數(shù)A, B, 求A , B的最小公倍數(shù)。3、Faibonacci數(shù)列前幾項(xiàng)為: 0,1,1,2,3,5,8,其規(guī)律是從第三項(xiàng)起, 每項(xiàng)均等于前兩項(xiàng)之和。求前30項(xiàng),并以每行5個(gè)數(shù)的格式輸出。4、小球從100高處自