蘇科版初中信息技術(shù)選修循環(huán)結(jié)構(gòu)ppt課件1(編輯修改稿)
2024-12-25 09:56 本頁面
【文章內(nèi)容簡介】 //輸出結(jié)果 end. 例 求兩個正整數(shù) m和 n的最大公約數(shù)。 【 分析 】 求兩個正整數(shù)的最大公約數(shù)采用的 輾轉(zhuǎn)相除法 求解。以下是輾轉(zhuǎn)的算法： 分別用 m,n,r表示被除數(shù)、除數(shù)、余數(shù)。 ①求 m/n的余數(shù) r. ② 若 r=0,則 n為最大公約數(shù) .若 r≠0,執(zhí)行第③步 . ③ 將 n的值放在 m中 ,將 r的值放在 n中 . ④ 返回重新執(zhí)行第①步。 程序如下 : program ex4_11。 Var m,n,a,b,r:integer。 begin write(39。Input m,n:39。)。 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(39。The greatest mon divide is:39。,b:8)。 end. 例 利用格里高公式求 π。 π/4=11/3+1/51/7+… ，直到最后一項(xiàng)的值小于106為止。 【 分析 】 解本題的關(guān)鍵就是求右邊數(shù)值序列的和，序列有明顯的特點(diǎn)：分母是從 1開始的奇數(shù)，加、減號輪流出現(xiàn)，因此，我們可以用 n=n+2表示序列數(shù)值的變化，用 f=f來設(shè)置它們知項(xiàng)的符號位。 程序如下 ： Program ex4_12。 Var n,f : integer。 t,pai : real。 begin pai : =0。 t : =1。 n : =1。 f : =1。 while abs(t)=1e6 do begin pai : =pai+t。 n : =n+2。 f : =f。 t : =f/n。 end。 pai : =pai*4。 writeln(pai : 10 : 8)。 end. 運(yùn)行程序會發(fā)現(xiàn)沒有結(jié)果，為什么？因?yàn)椴紶柋磉_(dá)式 abs(t)=1e6，即 1/n=1e6，而程序的說明部分 n是整型數(shù)，它的范圍是 32768～ 32767，條件永遠(yuǎn)成立，所以形成死循環(huán)，從而沒有運(yùn)行結(jié)果。 while循環(huán)不需要用順序型數(shù)據(jù)來控制循環(huán)的次數(shù)，改程序的說明部分中的 n為實(shí)型數(shù)或說明為長整型即可， 請同學(xué)們自己修正 ，以后要對變量的取值范圍引起重視。 【 上機(jī)練習(xí) 】 用 WHILE循環(huán)完成如下 3題： ①求 s=1+2+3+4+…+10 ② 求 s=1+1/2+1/3+…+1/100 ③ 計(jì)算 n！，其中 n由鍵盤輸入。 輸入任一的自然數(shù) A, B, 求 A , B的最小公倍數(shù)。 小球從 100高處自由落下 ,著地后又彈回高度的一 半再落下。求第 20次著地時 , 小球共通過多少路程 ? Faibonacci數(shù)列前幾項(xiàng)為 : 0,1,1,2,3,5,8,…, 其規(guī) 律是從第三項(xiàng)起 , 每項(xiàng)均等于前兩項(xiàng)之和。求前 30 項(xiàng) ,并以每行 5個數(shù)的格式輸出。 雞兔同籠 ,頭 30,腳 90, 求雞兔各幾只？ 第三節(jié) 直到循環(huán)（ REPEAT語句） 用 while語句可以實(shí)現(xiàn)“當(dāng)型循環(huán)”，用 repeatuntil 語句可以實(shí)現(xiàn)“直到型循環(huán)”。 repeatuntil語句的含義是：“重復(fù)執(zhí)行循環(huán)，直到指定的條件為真時為止”。 直到循環(huán)語句的一般形式 : Repeat 語句 1。 : 語句 n。 until 布爾表達(dá)式 。 其中 Repeat、 until是 Pascal保留字， repeat與until之間的所有語句稱為循環(huán)體。 說明： ① repeat語句的特點(diǎn)是：先執(zhí)行循環(huán)，后判斷結(jié)束條件，因而至少要執(zhí)行一次循環(huán)體。 ② repeatuntil是一個整體，它是一個（構(gòu)造型）語句，不要誤認(rèn)為 repeat是一個語句， until是另一個語句。 ③ repeat語句在布爾表達(dá)式的值為真時不再執(zhí)行循環(huán)體，且循環(huán)體可以是若干個語句，不需用begin和 end把它們包起來， repeat 和 until已經(jīng)起了 begin和 end的作用。 while循環(huán)和 repeat循環(huán)是可以相互轉(zhuǎn)化的。 例 求兩個正整數(shù) m和 n的最大公約數(shù)。程序采用 repeatuntil循環(huán)實(shí)現(xiàn)。 Program ex4_13。 var m,n,r : integer。 begin readln(m,n)。 repeat //輾轉(zhuǎn)相除法 r : =m mod n。 m: =n。 n: =r。 until r=0。 writeln(m)。 end. 例 校體操隊(duì)到操場集合 ,排成每行 2人 ,最后多出 1人 。排成每行 3人 ,也多出 1人 。分別按每行排 4,5,6人 ,都多出 1人 。當(dāng)排成每行 7人時 ,正好不多。求校體操隊(duì)至少是多少人 ? 【 分析 】 ① 設(shè)校體操隊(duì)為 X人 ,根據(jù)題意 X應(yīng)是 7的倍數(shù) ,因此 X的初值為 7,以后用inc(x,7)改變 X值； ②為了控制循環(huán) , 用邏輯變量 yes為真 (True) 使循環(huán)結(jié)束； ③如果諸條件中有一個不滿足 , yes 的值就會為假 (false)，就繼續(xù)循環(huán)。 Program ex4_14。 var x: integer。 yes : boolean。 begin x:=0。 repeat yes :=true。 inc(x,7)。 if x mod 2 1 then yes:=false。 if x mod 3 1 then yes:=false。 if x mod 4 1 then yes:=false。 if x mod 5 1 then yes:=false。 if x mod 6 1 then yes:=false。 until yes。 //直到 yes的值為真 writeln(39。All =39。, x) 。 readln end. 程序中對每個 X值，都先給 Yes 賦真值，只有在循環(huán)體各句對 X進(jìn)行判斷時，都得到“通過”（此處不賦假值）才能保持真值。 例 利用格里高公式求 π。 π/4=11/3+1/51/7+… ，直到最后一項(xiàng)的值小于 106為止 . 【 分析 】 解本題的關(guān)鍵就是求右邊數(shù)值序列的和，序列有明顯的特點(diǎn)：分母是從 1開始的奇數(shù)，加、減號輪流出現(xiàn)，因此，我們可以用 n=n+2表示序列數(shù)值的變化，用 f=f來設(shè)置它們知項(xiàng)的符號位。 Program ex4_16。 var f :
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1