高中信息技術(shù) 奧林匹克信息學(xué)競(jìng)賽班進(jìn)階篇 pascal-02 循環(huán)語(yǔ)句課件.ppt

PASCAL基本語(yǔ)句,For 語(yǔ)句,循環(huán)語(yǔ)句,（1)for 語(yǔ)句,s := 0； s置初值0 for i := 1 to 100 do s := s + i ； writeln（s=，s）； 輸出累加和s,For 語(yǔ)句,for 語(yǔ)句,s := 0； for i := 100 downto 1 do s := s + i ； writeln（s=，s）；,For 語(yǔ)句,for 語(yǔ)句注意事項(xiàng),控制變量不能為real型,for語(yǔ)句的步長(zhǎng)是一定的，不要在循環(huán)體內(nèi)改 變循環(huán)控制變量,如： for k := 1 to 100 do begin k := 3； 循環(huán)體中改變了循環(huán)變量k的值 end,For 語(yǔ)句,for 語(yǔ)句注意事項(xiàng),for語(yǔ)句執(zhí)行完，控制變量無(wú)定義， 因此for語(yǔ)句的后續(xù)語(yǔ)句不能認(rèn)為控制變量的值是終值而加以利用。,當(dāng)初值超過(guò)終值時(shí)，不執(zhí)行循環(huán)，循環(huán)次數(shù)為0。,例1：換零錢,例：換零錢 把一張一元鈔票換成一分、二分和五分的硬幣(每種至少一枚)，問(wèn)有哪幾種換法？,分析 采用窮舉法解決： 令五分錢硬幣的個(gè)數(shù)為k，k的取值范圍為119 ； 二分錢硬幣的個(gè)數(shù)為j，j的取值范圍為149 ； 一分錢硬幣的個(gè)數(shù)則為100k5j2 ； n為計(jì)數(shù)器，累計(jì)兌換方案的總數(shù)。 這樣利用二重循環(huán)就可以得到每一種組合。,例1：換零錢,program s100； var i , j , k , n : integer； begin n := 0； 計(jì)數(shù)器n清0 for k := 1 to 19 do 五分硬幣的個(gè)數(shù) for j := 1 to 49 do begin 二分硬幣的個(gè)數(shù) i := 100k * 5j * 2 ； 一分硬幣的個(gè)數(shù) if i 1 then begin 想想：為什么要加這一判斷 writeln ( 1 fen： , i , 2 fen：, j , 5 fen： , k )； n := n + 1； 計(jì)數(shù)器加1 end； if end； writeln ( total = , n )； end.,For 語(yǔ)句,for 語(yǔ)句嵌套,打印 * 陣,while 語(yǔ)句,While語(yǔ)句,var i : longint; begin i:=1; while i50 do begin writeln ( i ); i:=i+3; end; end.,輸出： 1 4 7 10 13 16 ,while 語(yǔ)句,不小心出現(xiàn)死循環(huán)怎么辦？ 按Ctrl+Break強(qiáng)制中斷程序運(yùn)行。,var i : longint; begin i:=1; while i50 do begin writeln ( i ); i:=i+3; end; end.,注意防止死循環(huán),循環(huán)體中必須有修改WHILE后面的循環(huán)終止條件操作,while 語(yǔ)句,例：求最大公約數(shù),輾轉(zhuǎn)相除法,如果 x可以被 y 整除（即 x mod y=0），則 y 為 x 和y 的最大公約數(shù); 否則，設(shè) z為x除以y的余數(shù)（ z:=x mod y），再設(shè) x:=y; y:=z; 看x可以被 y 整除，若能整除，則y為x 和y 的最大公約數(shù); 否則，繼續(xù)輾轉(zhuǎn)相除下去,while 語(yǔ)句,例：求最大公約數(shù),輾轉(zhuǎn)相除法,例如： x=24 y=15 x y z,24 15 = 1 9,15 9 = 1 6, 6 = 1 3,6 3 = 2 0,while 語(yǔ)句,例：求最大公約數(shù),輾轉(zhuǎn)相除法,var a, b, c : longint ； begin readln(a,b); while a mod b0 do begin c:=a mod b; a:=b; b:=c; end; writeln(b); end.,repeat 語(yǔ)句,repeatuntil語(yǔ)句,repeat 語(yǔ)句,repeatuntil語(yǔ)句,var i : longint; begin i:=1; while i50 do begin writeln ( i ); i:=i+3; end; end.,var i : longint; begin i:=1; repeat writeln ( i ); i:=i+3; until i=50; end.,repeat 語(yǔ)句,試商法判斷質(zhì)數(shù),輸入一個(gè)大于1的整數(shù)N，若為質(zhì)數(shù)，輸出T，否則輸出F。,var x,i: integer; f : boolean; begin readln(x); f:=true; i:=2; if x2 then repeat if x mod i=0 then f:=false; i:=i+1; until (isqrt(x) or (f=false); if f=true then writeln(T) else writeln(F); end.,i能否被x整除,沒(méi)必要從2檢測(cè)到n-1,x=a*b (a=b),24=2*12 =3*8 =4*6,