蘇科版初中信息技術(shù)選修循環(huán)結(jié)構(gòu)ppt課件1-wenkub
2022-11-30 09:56:37 本頁面
【正文】 小兔經(jīng)過一個(gè)月生長(zhǎng)后也可每月生一對(duì)小兔。也就是說，從 1！可以推出 2！，從 2！可以推出 3！，從 3！可以推出 4！，以此類推。 //輸出 n!的值 end. 雖然 s定義成 longint，但輸入 12以上的數(shù)時(shí)，還是會(huì)出現(xiàn)錯(cuò)誤的結(jié)果，說明結(jié)果超出了 longint能夠儲(chǔ)存的范圍，這時(shí)需要定義更大的類型，如 int64，或干脆定義成實(shí)型變量用科學(xué)計(jì)數(shù)法來近似表示這個(gè)數(shù)，如 real、extended。 //s存放階乘的結(jié)果，類型為長(zhǎng)整 型，防止結(jié)果太大 begin readln(n)。 do write(k)。 for k : =39。a39。 例 將順序打印出 26個(gè)小寫英文字母 : abc…zz…cba 。 begin s := 0。 end. 例 編程計(jì)算 1到 100的累加和： s=1+2+3+…+100 。 應(yīng)用舉例 例 輸出 1－ 100之間的所有偶數(shù)。 //禁止類似的修改， Free Pascal中會(huì)提示語法錯(cuò)誤 writeln(i)。 ④ 循環(huán)變量的初值和終值一經(jīng)確定，循環(huán)次數(shù)就確定了。 說明 ① 循環(huán)變量必須是順序類型。 //遞減型循環(huán) 其中 for、 to、 downto和 do是 Pascal保留字。通常將一組重復(fù)執(zhí)行的語句稱為循環(huán)體，而控制重復(fù)執(zhí)行或終止執(zhí)行由重復(fù)終止條件決定。第四章 循環(huán)結(jié)構(gòu) 第一節(jié) 循環(huán)語句（ FOR語句） 第二節(jié) 當(dāng)語句（ WHILE語句） 第三節(jié) 直到循環(huán)（ REPEAT語句） 第四節(jié) 多重循環(huán)結(jié)構(gòu) 在實(shí)際應(yīng)用中，會(huì)經(jīng)常遇到許多有規(guī)律性的重復(fù)運(yùn)算，這就需要掌握本章所介紹的循環(huán)結(jié)構(gòu)程序設(shè)計(jì)。重復(fù)語句是由循環(huán)體及重復(fù)終止條件兩部分組成。表達(dá)式 1 與表達(dá)式 2的值稱為初值和終值?？梢允钦?、字符型、枚舉型等，但不能為實(shí)型。但是在循環(huán)體內(nèi)對(duì)循環(huán)變量的值進(jìn)行修改，常常會(huì)使得循環(huán)提前結(jié)束或進(jìn)入死環(huán)。 end。 程序如下： Program ex4_1。 【 分析 】 設(shè) i為循環(huán)控制變量，累加和放在 s中，利用循環(huán)變量 i的值從 1變化到 100的規(guī)律，不需要另外引進(jìn)從 1變化到 100的其它變量，程序的流程圖如 42所示。 for i := 1 to 100 do s := s+i。 程序如下： Program ex4_3。 to 39。z39。 writeln。 s := 1。 上例中用到了“遞推”算法。求 n!的遞推公式為： a1=1 (n=1) an=n*an1 (n1) a1=1是“初始條件”或“邊界條件”。即兔子的對(duì)數(shù)是：第一個(gè)月 1對(duì)，第二個(gè)月 2對(duì)，第三個(gè)月 3對(duì)，第四個(gè)月 5對(duì)， … ，假設(shè)兔子的生育期是 12個(gè)月，并且不死，問一年后，這對(duì)兔子有多少對(duì)活著的后代？ 【 分析 】 根據(jù)題目給出的條件，得到算法：設(shè)當(dāng)前月兔子有 x對(duì)，它的前一個(gè)月有 lastx對(duì)，前二個(gè)月有 prevx對(duì)，明顯存在一個(gè)遞推關(guān)系，即 x=lastx+prevx。 lastx : =2。 end。 Program ex4_6。 y := b*10+a。 end. 例 把整數(shù) 3025從中剪開分為 30和 25兩個(gè)數(shù)，此時(shí)再將這兩數(shù)之和平方， (30+25)2=3025計(jì)算結(jié)果又等于原數(shù)。 Program ex4_8； Var n,a, x,n1,n2: integer； begin for a:=32 to 99 do begin n:=a*a； n1:= n div 100； //拆取四位數(shù)的前兩位數(shù) n2:= nn1*100； //拆取四位數(shù)的后兩位數(shù) x:=n1+n2； if x*x=N then writeln (N)； end； readln end. 例 根據(jù)公式 π2/6=1+1/22+1/32+…+1/n 2，計(jì)算圓周率的 pai值。 var i,n : integer。 for i : =1 to n do s : =s+1/(i*i) pai : =sqrt(6*s)。 求 10個(gè)數(shù)中的最大值和最小值。 while語句的形式為： while 布爾表達(dá)式 do 語句 ； 其意義為：當(dāng)布爾表達(dá)式的值為 true時(shí)，執(zhí)行 do后面的語句。 ④ 結(jié)束循環(huán) ,執(zhí)行 while的下一個(gè)語句。 例 求恰好使 s=1+1/2+1/3+…+1/n 的值大于 10時(shí) n的值。當(dāng) s的值超過 10時(shí)，最后一項(xiàng)的項(xiàng)數(shù)即為要求的 n。 n : =0。 writlen(39。 【 分析 】 求兩個(gè)正整數(shù)的最大公約數(shù)采用的 輾轉(zhuǎn)相除法 求解。 Var m,n,a,b,r:integer。 readln(m,n)。 while r0 do begin a:=b。 writeln(39。 π/4=11/3+1/51/7+… ，直到最后一項(xiàng)的值小于106為止。 t,pai : real。 f : =1。 t : =f/n。 end. 運(yùn)行程序會(huì)發(fā)現(xiàn)沒有結(jié)果，為什么？因?yàn)椴紶柋磉_(dá)式 abs(t)=1e6，即 1/n=1e6，而程序的說明部分 n是整型數(shù)，它的范圍是 32768～ 32767，條件永遠(yuǎn)成立，所以形成死循環(huán)，從而沒有運(yùn)行結(jié)果。 小球從 100高處自由落下 ,著地后又彈回高度的一 半再落下。 repeatuntil語句的含義是：“重復(fù)執(zhí)行循環(huán)，直到指定的條件為真時(shí)為止”。 其中 Repeat、 until是 Pascal保留字， repeat與until之間的所有語句稱為循環(huán)體。 while循環(huán)和 repeat循環(huán)是可以相互轉(zhuǎn)化的。 var m,n,r : integer。 n: =r。排成每行 3人 ,也多出 1人 。 Program ex4_14。 repeat yes :=true。 if x mod 4 1 then yes:=false。 //直到 yes的值為真 writeln(39。 例 利用格里高公式求 π。 n,t,pai : real。 f : =1。 t : =f/n。 end
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1