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

第四章循環(huán)結構程序設計

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

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

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

例2．求N！＝1＊2＊3＊…＊N，這里N不大于10。(n!為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ù)類型的長度：Integer

-32768..32767longint

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

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

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

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

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

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