pascal語(yǔ)言編程之FOR循環(huán)語(yǔ)句課件

第四章循環(huán)結(jié)構(gòu)程序設(shè)計(jì)

第一節(jié)循環(huán)語(yǔ)句（for語(yǔ)句）2016年11月在實(shí)際應(yīng)用中，會(huì)經(jīng)常遇到許多有規(guī)律性的重復(fù)運(yùn)算，這就需要掌握本章所介紹的循環(huán)結(jié)構(gòu)程序設(shè)計(jì)。在pascal語(yǔ)言中，循環(huán)結(jié)構(gòu)程序通常由三種的循環(huán)語(yǔ)句來(lái)實(shí)現(xiàn)。分別為for循環(huán)、當(dāng)循環(huán)和直到循環(huán)。將一組重復(fù)執(zhí)行的語(yǔ)句成為循環(huán)體，而控制重復(fù)執(zhí)行或終止執(zhí)行由重復(fù)終止條件決定。重復(fù)語(yǔ)句是由循環(huán)體及重復(fù)終止條件兩部分組成。例：求1+2+3+..+N的和。如何編程呢？第一節(jié)循環(huán)語(yǔ)句（for語(yǔ)句）一、for語(yǔ)句的一般格式for<控制變量>：=<表達(dá)式1>to<表達(dá)式2>do<語(yǔ)句>;for<控制變量>：=<表達(dá)式1>downto<表達(dá)式2>do<語(yǔ)句>;其中for、to、downto和do是pascal保留字。表達(dá)式1與表達(dá)式2的值稱為初值和終值。循環(huán)的語(yǔ)句格式：for變量名：=初值to終值do語(yǔ)句；例：s:=0；

fori:=1to10dos:=s+i；writeln（‘s=’，s）；二、for語(yǔ)句執(zhí)行過(guò)程1.先將初值賦給左邊的變量（稱為循環(huán)控制變量）；2.判斷循環(huán)控制變量的值是否已“超過(guò)”終值，如已超過(guò)，則跳到步驟6；3.如果未超過(guò)終值，則執(zhí)行do后面的語(yǔ)句（稱為循環(huán)體）；4.循環(huán)變量遞增（對(duì)to）或遞減（對(duì)downto）1；5.返回步驟2；（重新返回判斷循環(huán)控制變量是否超出）；6.循環(huán)結(jié)束，執(zhí)行for循環(huán)下面的一個(gè)語(yǔ)句。例：求1+2+3+..+N的和。如何編程呢？

源程序：programex;vars,i,n:integer;beginwrite(‘entern=’);read(n);s:=0;fori:=1tondos:=s+i;writeln(s:5);end.四、應(yīng)用舉例例1．輸出1－100之間的所有偶數(shù)。源程序：programex;vari:integer;beginfori:=1to100doifimod2=0thenwriteln(i:5);end.

例2．求N?。?＊2＊3＊…＊N，這里N不大于10。(n!為n的階乘運(yùn)算）分析：程序要先輸入N，然后從1累乘到N。源程序：programjiecheng;vari,n:integer;s:longint;beginwrite(‘entern=‘);read(n);s:=1;fori:=2tondos:=s*i;write(n,’！=’,s);end.數(shù)據(jù)類型的長(zhǎng)度：Integer

-32768..32767longint

-2147483648..2147483647防止因數(shù)據(jù)長(zhǎng)度不夠，而造成溢出錯(cuò)誤！

例3、一個(gè)兩位數(shù)x，將它的個(gè)位數(shù)字與十位數(shù)字對(duì)調(diào)后得到一個(gè)新數(shù)y，此時(shí)y恰好比x大36，請(qǐng)編程求出所有這樣的兩位數(shù)。分析：①用for循環(huán)列舉出所有的兩位數(shù)，x為循環(huán)變量；（兩位數(shù)，數(shù)量確定，

循環(huán)次數(shù)隨之確定fori:=10to99）②用公式a:=xdiv10分離出x的十位數(shù)字；（div取整運(yùn)算）③用公式b:=xmod10分離出x的個(gè)位數(shù)字；（mod求余運(yùn)算）④用公式y(tǒng):=b*10+a合成新數(shù)y；⑤用式子y-x=36篩選出符合條件的數(shù)x并輸出。思考：1.最小的兩位數(shù)

；最大的兩位數(shù)：

；2.如何得到十位和個(gè)位上的數(shù)？3.怎樣合成新數(shù)？4.怎樣確定符合條件的兩位數(shù)？例4：輸入一個(gè)自然數(shù)，求這個(gè)自然數(shù)的所有約數(shù)之和。知識(shí)點(diǎn)睛：

約數(shù)，又稱因數(shù)。整數(shù)a除以整數(shù)b(b≠0)除得的商正好是整數(shù)而沒(méi)有余數(shù)，我們就說(shuō)a能被b整除，或b能整除a。a稱為b的倍數(shù)，b稱為a的約數(shù)。分析：1.從鍵盤(pán)中讀入一個(gè)自然數(shù)；2.求該自然數(shù)的約數(shù)，從1到x逐個(gè)判斷，看xmody是否為0；3.將約數(shù)逐個(gè)相加（累加）；例5、把整數(shù)3025從中剪開(kāi)分為30和25兩個(gè)數(shù)，此時(shí)再將這兩數(shù)之和平方，(30+25)2=3025計(jì)算結(jié)果又等于原數(shù)。求所有符合這樣條件的四位數(shù)。分析：1.確定四位數(shù)的取值范圍1000~9999，從而確定循環(huán)次數(shù)；2.設(shè)法將四位數(shù)分開(kāi)，即千位與百位組成一個(gè)兩位數(shù)，十位與個(gè)位組成一個(gè)兩位數(shù)；3.將這兩個(gè)兩位數(shù)相加，求平方，并與原四位數(shù)比較看是否相等練習(xí)：1.計(jì)算100之內(nèi)所有的奇數(shù)之和。2.求菲波拉契數(shù)列a0,a1,a2,……a20。a0=0,a1=1,a2=a1+a0,a3=a2+a1,……,an=an-1+an-2;如0,1,1,2,3,5,8,13,21,……3.求20個(gè)數(shù)中的最大值和最小值。4.求s=1+1/2+1/3+…+1/1005.按字母表的順序，從字母A到Z順序打印輸出。6.輸入10