【文章內(nèi)容簡(jiǎn)介】 = 0) then writeln。用于控制換行，每行寫5個(gè)字符的對(duì)應(yīng)關(guān)系。語句write(i: 5, chr(i): 2)。用于格式化輸出結(jié)果。編程完成下列計(jì)算： 把數(shù)碼1，2，3，4，…，9分成3組，每組構(gòu)成一個(gè)3位數(shù)，使這3個(gè)3位數(shù)恰好成1：2：3，該怎樣分？求出所有的解答來。（如：192，384，576就是一組解答） 求出所有的三位數(shù) ，它除以11所得余數(shù)等于它的三個(gè)數(shù)字的平方和。第五節(jié) while、repeat循環(huán)結(jié)構(gòu)While語句是另外一種實(shí)現(xiàn)循環(huán)的語句，一般形式如下：While 條件 do 語句While循環(huán)的執(zhí)行過程如下：1. 判斷條件是否成立，條件成立時(shí)執(zhí)行步驟2,否則執(zhí)行步驟42. 執(zhí)行do后面的語句（循環(huán)體)3. 返回步驟14. 結(jié)束循環(huán)，執(zhí)行下一語句注意：一定要有使條件取假(False)的時(shí)候，否則會(huì)出現(xiàn)死循環(huán)。例題：從鍵盤輸入一批學(xué)生考試數(shù)據(jù)，統(tǒng)計(jì)這些數(shù)據(jù)中大于80的數(shù)的個(gè)數(shù)。分析：因?yàn)閷W(xué)生的人數(shù)沒有確定，因此不方便用for循環(huán)來完成此項(xiàng)工作，但是用while循環(huán)比較容易實(shí)現(xiàn)。(example4_3)while score=0 do 輸入一個(gè)學(xué)生成績(jī)→score。計(jì)算總分；Pascal代碼： while score = 0 do begin readln(score)。 total := total + score。 end。完整的程序代碼：program example4_3。var score: integer。 total: integer。 c: char。begin writeln(39。輸入學(xué)生分?jǐn)?shù)：39。)。 readln(score)。 total:=0。 while score = 0 do begin readln(score)。 total := total + score。 end。 writeln(39。總分為：39。,total)。 read(c)。end.Repeat語句與while語句基本類類似，只是while先判斷條件，reapeat語句先執(zhí)行循環(huán)體然后再判斷。Repeat 語句。{循環(huán)體部分}Until 條件。{循環(huán)結(jié)束條件}執(zhí)行過程如下：1. 執(zhí)行循環(huán)體2. 判斷條件，如果布滿足重復(fù)1,否則 執(zhí)行步驟33. 結(jié)束循環(huán)，執(zhí)行下一語句例題：改寫Example4_3程序使用Repeat循環(huán)語句實(shí)現(xiàn)。(Example4_4)program example4_4。var score: integer。 total: integer。 c: char。begin writeln(39。輸入學(xué)生分?jǐn)?shù)：39。)。 total := 0。 repeat readln(score)。 total := total + score。 until score 0。 writeln(39。總分為：39。, total)。 read(c)。end.練習(xí)： 計(jì)算下列式子的值：（1） 1+3+5+…+99（2） 1+2+4+8+…+128+256+512+1024（3） 1+(1+2)+(1+2+3)+…+(1+2+3+4+…+N) 有一分?jǐn)?shù)序列：求出這個(gè)數(shù)列的前20項(xiàng)的和。 求水仙花數(shù)。所謂水仙花數(shù)，是指一個(gè)三位數(shù)，如果滿足，則abc是水仙花數(shù)。 輸入一個(gè)整數(shù)，計(jì)算它各位上數(shù)字的和。（注意：是任意位的整數(shù)） 輸入一整數(shù)A，判斷它是否質(zhì)數(shù)。（提示：若從2到A的平方根的范圍內(nèi)，沒有一個(gè)數(shù)能整除A，則A是質(zhì)數(shù)。） 求兩個(gè)數(shù)的最小公倍數(shù)和最大公約數(shù)。（提示：公約數(shù)一定小于等于兩數(shù)中的小數(shù)，且能整除兩數(shù)中的大數(shù)。公倍數(shù)一定大于等于兩數(shù)中的大數(shù)，且是大數(shù)的倍數(shù)，又能給兩數(shù)中的小數(shù)整除。） 編寫一個(gè)譯碼程序，把一個(gè)英語句子譯成數(shù)字代碼。譯碼規(guī)則是以數(shù)字1代替字母A，數(shù)字2代替字母B，……，26代替字母Z，如遇空格則打印一個(gè)星號(hào)‘*’，英文句子以‘.‘結(jié)束。 “百錢買百雞”是我國(guó)古代的著名數(shù)學(xué)題。題目這樣描述：3文錢可以買1只公雞，2文錢可以買一只母雞，1文錢可以買3只小雞。用100文錢買100只雞，那么各有公雞、母雞、小雞多少只？與之相似，有雞兔同籠問題。 輸入一個(gè)正整數(shù)N，把它分解成質(zhì)因子相乘的形式。如：36=12233； 19=119（提示：設(shè)因子為I，從2開始到N，讓N重復(fù)被I除，如果能整除，則用商取代N，I為一個(gè)因子；如果不能整除，再將I增大，繼續(xù)以上操作，直到I等于N。） 編程實(shí)現(xiàn)：求之值，其中a是一個(gè)數(shù)字。例如：（當(dāng)n=5時(shí)），n由鍵盤輸入。1 一個(gè)數(shù)如果恰好等于它的因子之和，這個(gè)數(shù)就稱為“完數(shù)”。例如：6的因子為3，而6＝1＋2＋3，因此6是“完數(shù)”。編程序找出1000以內(nèi)的所有完數(shù)。1 編一程序，輸入a，b，c，d，e，f，然后解出方程組的解。第六節(jié) 數(shù)據(jù)類型簡(jiǎn)單數(shù)據(jù)類型Pascal語言基本數(shù)據(jù)類型由：integer(longint,shortint,byte),real,char,。自定義數(shù)據(jù)類型：我們可以 在基本數(shù)據(jù)類型的基礎(chǔ)上定義新的數(shù)據(jù)類型，類型定義的保留字為“Type”,格式為：TYPE 類型標(biāo)識(shí)符=數(shù)據(jù)類型如：Type MyLong=Longint。枚舉類型： “枚舉”的意思就是把所需要的對(duì)象都一個(gè)一個(gè)的列舉出來。比方說星期是一個(gè)只有7個(gè)元素的數(shù)據(jù)，因此我們可以定義一種數(shù)據(jù)類型TWeekDay代表星期，如果一個(gè)變量定義為TWeekDay類型，那么他的取值范圍就是Sunday..Saturday，另外顏色TColor也一樣。習(xí)慣上我們?cè)?自定義類型名稱前加上“T”，如TColor,TWeekDay，而且單詞以大寫字母開始。Type TWeekDay=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday)。 TColor=(Red,Yellow,Blue,White,Black)。枚舉變量的第一個(gè)代表0，第二個(gè) 代表1，以此類推，如上面定義的TweekDay類型，Sunday=0，Monday=1，…，Saturday=6。例題：輸入今天的日期數(shù)字：0＝Sunday，1＝Monday，…6＝Saturday，輸出明天的日期，用英文單詞表示?！尽縫rogram xoi00_02。Type TWeekDay=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday)。var today,tomorrow:TWeekDay。 number,i:integer。begin write(39。Enter today number:39。)。readln(number)。 if (number0) or (number6) then writeln(39。Error number39。) else begin today:=Sunday。 for i:=0 to number1 do today:=succ(today)。 if today=Saturday then tomorrow:=Saturday else tomorrow:=succ(today)。 write(39。Tomorrow is:39。)。 case tomorrow of Sunday:writeln(39。Sunday39。)。 Monday:writeln(39。Monday39。)。 Thursday:writeln(39。Thusday39。)。 Wednesday:writeln(39。Wednesday39。)。 Thursday:writeln(39。Thursday39。)。 Friday:writeln(39。Friday39。)。 Saturday:writeln(39。Saturday39。)。 end。{if today=saturday then} end。{if (number0) or (number 6)}end.子界類型：子界類型是在其它的離散類型的值域中取出一部分構(gòu)成獨(dú)立的類型。子界類型的一般定義形式如下：TYPE 子界類型標(biāo)識(shí)符=下界常量..上界常量。如： TYPE Tmonth=1..12。TYPE Tscore=0..100。例　按月、日、年順序讀入一日期，輸出該日期是這一年中的第幾天。　program date?！　ar year:0..2010?！　　　onth,i:1..12?！　　　ay:1..31?！　　　ayth:integer?！egin　　read(month,day,year)。　　dyath:=0?！　or i:=1 to month1 do　　　case i of　　　　1,3,5,7,8,10,12:dayth:=dayth+31?！　　　?:if ((year mod 4=0)and(year mod 1000)or(year mod 400 =0)　　　　　then dayth:=dayth+29　　　　　else dayth=:=dayth+28。　　　　4,6,9,11:dayth:=dayth+30。　　　end。　　dayth:=dayth+day?！　riteln(dayth)　end.數(shù)組類型：定義數(shù)組：Type 數(shù)組類型標(biāo)識(shí)符=Array[下標(biāo)類型] OF 數(shù)組元素類型數(shù)組元素類型本身也可以是復(fù)雜的自定義類型，如子界類型，數(shù)組類型，記錄等。例如：定義存放學(xué)生姓名的字符數(shù)組：TYPE TName=Array[1..20] of Char。定義一個(gè)存放班級(jí)學(xué)生(50人)名單的數(shù)組：TYPE TStudents=Array[1..50] of TName也可以這么定義：TYPE TStudents=Array[1..50] of Array[1..20] of Char。例1：輸入5個(gè)考分?jǐn)?shù)，計(jì)算它們的總分?！尽縫rogram xoi00_03。Type TScore=Array[1..5] of integer。var score:TScore。 i:integer。sum:integer。begin for i:=1 to 5 do begin write(39。Enter Number 39。,i)。 readln(score[i])。 end。 sum:=0。 for i:=1 to 5 do begin sum:=sum+score[i]。 end。 writeln(39。Total Score is:39。,sum)。end.例2：從鍵盤輸入10個(gè)數(shù)，將這10個(gè)數(shù)逆序輸入，并求這10個(gè)數(shù)的和，輸出這個(gè)和。program p1。var a: array[1..10] of integer。 i, s: integer。begin for i := 1 to 10 do read(a[i])。 for i := 10 downto 1 do write(a[i], 39。 39。)。 writeln。 s := 0。 for i := 1 to 10 do s := s + a[i]。 writeln(39。s=39。, s)。end.例3：用篩法求100以內(nèi)的素?cái)?shù)（質(zhì)數(shù)）。分析：素?cái)?shù)是除了1和它本身以外沒有其它約數(shù)的數(shù)。用篩法求素?cái)?shù)的方法是：用質(zhì)數(shù)篩去合數(shù)：從第一個(gè)素?cái)?shù)2開始，把它的倍數(shù)去掉；這樣2以后的第一個(gè)非0數(shù)就一定也是素?cái)?shù)，把它的倍數(shù)也刪了……重復(fù)這個(gè)刪數(shù)過程，直到在所找到的素?cái)?shù)后再也找不到一個(gè)非0數(shù)。把所有非0數(shù)輸出。program p2。var a: array[1..100] of integer。 i, j, k: integer。begin for i := 1 to 100 do a[i] := i。 a[1] := 0。 i := 2。 while i = 100 do begin k := i。 while k = 100 do begin k := k + i。 a[k] := 0。 end。 {上面將所有a[i]的倍數(shù)清0} i := i + 1。 while a[i] = 0 do i := i + 1。 {查找接下來的第一個(gè)非0數(shù)} end。 for i := 1 to 100 do if a[i] 0 then write(a[i], 39。 39。)。end. 字符串類型：如果數(shù)組存放的是字符，則成為字符數(shù)組。例如前面提到的學(xué)生姓名:Tname可以存放20個(gè)字符。為了操作方便Turbo Pascal 提供了字符串類型和操作函數(shù)。字符串類型:String。例如前面的學(xué)生姓名可以定義為：Type TName=String[20]。字符串定義時(shí)，如不指定長(zhǎng)度，則按該類型的最大長(zhǎng)度（255個(gè)字符）分配空間，使用時(shí)最大可用長(zhǎng)度為255個(gè)；如果在中括號(hào)中給出一個(gè)具體的值（1—255之間），則按這個(gè)值的大小分配空間。使用時(shí)，最大的可用長(zhǎng)度即為該值。字符串類型既可按數(shù)組方式輸入、輸出，也可直接輸入、輸出：readln(s)；writeln(s)；多個(gè)字符串輸入時(shí)以回車作為數(shù)據(jù)間的分隔符；每個(gè)readln語句只能讀入一個(gè)字符串。操作函數(shù)：