1、.1，循環(huán)結(jié)構(gòu)和排列，2，循環(huán)結(jié)構(gòu)，循環(huán)控制結(jié)構(gòu)為計(jì)算機(jī)程序描述的反復(fù)計(jì)算提供了控制手段。 一個(gè)環(huán)控制結(jié)構(gòu)必須指定以下三種中的兩種。 詳細(xì)表示循環(huán)執(zhí)行的語句循環(huán)的條件循環(huán)方式。 在PASCAL語言中，用while、repeat和for三個(gè)語句記述循環(huán)控制結(jié)構(gòu)，求出3，例如S=1 2 3 100的值，分析：用s合計(jì)所有的和，一次加上一個(gè)值，就需要100次代入。 從以上的句子可以看出，上述100個(gè)代入句子有共同的特征，可以抽象化為S:=S i的形式。 在這里，I從1變化到100。 為了簡化程序設(shè)計(jì)，必須采用可重復(fù)執(zhí)行特定語句段的程序結(jié)構(gòu)。 這就是循環(huán)結(jié)構(gòu)。 (1)增加循環(huán)： For控制變量：=to

2、do(2)減少循環(huán)： For控制變量：=downtodo，5，F(xiàn)or循環(huán)語句，說明：(1)一般對式1進(jìn)行計(jì)數(shù)(2)for語句的初始值、結(jié)束值、控制變量的數(shù)據(jù)都是順序型，并且型代入兼容。 (3)初始值和結(jié)束值確定后，循環(huán)的次數(shù)不變，不能在重復(fù)語句內(nèi)對控制變量施加代入操作。 (4)Do之后的句子可以是任何句子，我們一般稱為循環(huán)體。 求出、6、例如S=1 2 3 100的值，程序代碼段： Vari、s:integer； beginS:=0； Fori:=1to100dos:=s i； writeln (，s )； End .分析：用s合計(jì)所有的和，一次加上一個(gè)數(shù)值，就需要100次代入。 從以上的句子

3、可以看出，上述100個(gè)代入句子有共同的特征，可以抽象化為S:=S i的形式。 在這里，I從1變化到100。 為了簡化程序設(shè)計(jì)，必須采用可重復(fù)執(zhí)行特定語句段的程序結(jié)構(gòu)。 這就是循環(huán)結(jié)構(gòu)。7、例：按正、反兩個(gè)順序輸出26個(gè)字符的大寫字母，varch:char； beginforsch :=“a”到“z”寫入(ch )； writeln； forch :=zdown toado write (ch )； end .8，例： Nocomachns定理，任何n3都可以表示為n個(gè)連續(xù)的奇數(shù)和。 輸入n(n100 )，并輸出與n3對應(yīng)的公式。 vari、n、a:longint； 循環(huán)變量、連續(xù)奇數(shù)的個(gè)數(shù)、當(dāng)

4、前項(xiàng)目、類型為長整數(shù)beginreadln(n) 輸入連續(xù)奇數(shù)的個(gè)數(shù)a:=(n*(n-1) 1； 計(jì)算最小奇數(shù)fori:=1ton-1do輸出公式的前n-1項(xiàng)beginwrite(a，)； a:=a 2； 結(jié)束； writeln(a) 輸出n項(xiàng)readln； end.main，9，例：百雞問題，一只公雞買五分錢，一只母雞買三分錢，小雞買三分錢。 現(xiàn)在是一百元，我想買一百只雞。 公雞、母雞、小雞各能買幾只？我們通過雙重for循環(huán)數(shù)出了公雞和母雞的所有可能數(shù)量。 現(xiàn)在的公雞數(shù)為I，母雞數(shù)為j的情況下，計(jì)算小雞數(shù)k=100-i-j。 其次，根據(jù)下面的布爾式i*5 j*3 k/3=100，判斷現(xiàn)在的雞

5、100只的合計(jì)價(jià)值是否為100美元。 如果是，則輸出I、j和k。 vari、j、k :整數(shù)； begin fori:=1to 20 doforj:=1to 33 dobegink:=100-I-j； ifi * 5j * 3k/3=100 then writeln (I :5、j:5、j:5 )結(jié)束； readln； 求end.main，10，F(xiàn)OR循環(huán)練習(xí)題，1.n！=1*2*3*N。(n0dobegin if (ymod4=0)和(ymod 1000 ) )或(ymod 400=0) then begin writeln (y，year)； n:=n-1； s:=4； 結(jié)束； y:=ys；

6、 結(jié)束.n:=n-1； 間隔閏年-1、y:=y s； s年轉(zhuǎn)移后，n=0； 計(jì)算n (直到輸出n個(gè)閏年為止)、16、例如sum=135、n(n為大于1的奇數(shù))，在Sum10000時(shí)，計(jì)算n的最大值、Varn、sum、integer； begin write (inputaoddata :； sum:=0； n:=1； writeln (sum )結(jié)束.whilesum=10000、擴(kuò)展： sum=a)和(ch=0)和(ch=9) thenn 2:=n21； 讀取(ch )結(jié)束； writeln (letter :號，n1 )； writeln (數(shù)字：，n2)結(jié)束，Varn，I，j:integ

7、er； 標(biāo)志：藍(lán)牙：=2； i:=1； whilei=50 dobegin flag :=false； j:=2； whilej=trunc (sqrt (n ) ) dobegin end； ifnmodj=0then begin標(biāo)志：=true； break； j:=j 1； 結(jié)束； if標(biāo)志=失效寫入(n :4 ) if (IMO d 10=0)寫入； i:=i 1； 結(jié)束； n:=n 1； 結(jié)束； End .vare、p:real； I :整合器； begine:=1； p:=1； i:=1； 重復(fù)：=p/I； e:=e p； i:=i 1untilp1e-7； writeln (e=

8、，e)end . 19利用循環(huán)輸出，任意輸入大寫字母，并以菱形輸出。 圖為輸入d時(shí)的顯示結(jié)果，包括AABAABCBAABCDCBAABCBAABAA、varpos:integer； ch、chi、chj:char； begin writeln (pleaseinputalerttter :)讀(ch ) pos :=26； for chi :=atotchdobeginwrite (: pos )； for chj :=atochidowrite (chj )； for chj :=預(yù)先下載到寫入(chj )； pos:=pos-1； writeln； 結(jié)束； pos:=pos 1； for

9、chi :=預(yù)先下載到adobegin pos :=pos 1； 寫( 3360 pos )； for chj :=atochidowrite (chj )； for chj :=預(yù)先下載到寫入(chj )； writeln； endend . 20、利用環(huán)路輸出各種規(guī)則模式，對于平面規(guī)則模式的輸出，一般用雙重環(huán)路實(shí)現(xiàn)，現(xiàn)在主要從幾個(gè)方面來考慮：有幾行，一般用外環(huán)路控制1 .各行的起始位置與行有什么樣的關(guān)系，通常是wri 控制以的形式輸出的空白數(shù)的2 .每行有幾個(gè)輸出項(xiàng)目(列)，控制內(nèi)循環(huán)中的輸出3 .一個(gè)具體的輸出項(xiàng)目與行、列有什么關(guān)系，直接輸出與相關(guān)的輸出項(xiàng)目的行和列有關(guān)的公式。 從數(shù)組、21、數(shù)組、代數(shù)上來說，a1、a 2. ai. a 100 (0Pascal、25、字符串函數(shù)、26、字符串過程、27，例：以統(tǒng)計(jì)單詞、任意輸入語句“.”結(jié)尾、長度在255以內(nèi))和單詞(長度在8以下)在語