【正文】 nd。 Type TScore=Array[1..5] of integer。 4,6,9,11:dayth:=dayth+30。 var year:0..20xx。 end。Thursday39。)。 write(39。Enter today number:39。 TColor=(Red,Yellow,Blue,White,Black)。編程序找出 1000以內(nèi)的所有完數(shù)。題目這樣描述： 3文錢可以買 1 只公雞， 2 文錢 可以買一只母雞， 1 文錢可以買 3 只小雞。（注意：是任意位的整數(shù)） 輸入一整數(shù) A， 判斷它是否質(zhì)數(shù)。 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 14 writeln(39。 c: char。 read(c)。 readln(score)。 end。 編程完成下列計(jì)算： 2 2 2 21 1 2 ...Ni iN? ? ? ? ?? 11 1 ( 1)1 ......23 nn ??? ? ? ? 把數(shù)碼 1， 2， 3， 4， … ， 9分成 3 組，每組構(gòu)成一個(gè) 3 位數(shù)，使這 3個(gè) 3 位數(shù)恰好成 1：2： 3，該怎樣分？求出所有的解答來(lái)。 j := j + 1。 Writeln(?1+2+3+…+?,n,?=?,s)。 Pascal 中循環(huán)結(jié)構(gòu)通過(guò)使用 For、 While、 Repeat 三種語(yǔ)句來(lái)實(shí)現(xiàn)。39。 8:ch:=39。 var s:real。 begin read(x)。 ｛可選項(xiàng)｝ end。（提示： A、閏年的計(jì)算方法：年數(shù)能被 4 整除，并且不能被 100整除；或者能被 400 整除的整數(shù)年份。 if 條件成立 then begin 操作 B。x=39。 begin readln(39。 writeln(39。 {輸入分?jǐn)?shù) } if score=60 then begin {score 代表分?jǐn)?shù)的變量 } writeln(?恭喜你 ， 考試及格 ！ ?)。 IF 語(yǔ)句是由一個(gè)布爾表達(dá)式和兩個(gè)供選擇的操作序列組成。 {Pi= 為常數(shù) } writeln(s)。 end. 例題 2：找出下面程序中的語(yǔ)法錯(cuò)誤。{變量聲明 } begin write(?輸入圓的半徑 :?)。 b:=t。 …… 語(yǔ)句 n。c=39。 writeln(39。 var i:integer。 n的用法同上。 Turbo Pascal 語(yǔ)言把輸出項(xiàng) 的數(shù)據(jù)顯示占用的寬度稱為域?qū)挘憧梢愿鶕?jù)輸出格式的要求在輸出語(yǔ)句中自動(dòng)定義每個(gè)輸出項(xiàng)的寬度。 輸出語(yǔ)句 輸出是將內(nèi)存中的數(shù)據(jù)送到外設(shè)的過(guò)程。 readln(變量名表 )。 var a,b:integer。流程圖如下： 例題： 計(jì)算圓的周長(zhǎng)的過(guò)程： 輸入圓的半徑；（操作一） 計(jì)算圓的周長(zhǎng)；（操作二） 輸出圓的周長(zhǎng)；（操作三） 基本的程序語(yǔ)句： 賦值語(yǔ)句： 賦值語(yǔ)句是最簡(jiǎn)單的語(yǔ)句，其一般形式為： 變量 :=表達(dá)式 。 readln(a,b)。 area:=s。 var 變量聲明 。其取值范圍和運(yùn)算如下： 整型 (integer)：范圍 32768—— 32767；運(yùn)算 + * / mod div 實(shí)型 (real)：范圍 運(yùn)算 + * / 字符型 (char)：范圍 可顯示的 ASCII字符 布爾型 (boolean)：范圍 true false 運(yùn)算 and or not 在 PASCAL中可使用的基本符號(hào)有： （ 1）大寫(xiě)字母 A— Z ；小寫(xiě)字母 a— z ；數(shù)字 0— 9 （ 2）其它字符 + — * / = = = := （ ） [ ] . ， ：‘ $ ^ （ * *） { } 其中，有些符號(hào)是以雙字符作為一個(gè)整體，拆開(kāi)后就失去原有的意義。如 a、 a+ a*3+b都是表達(dá)式。 運(yùn)算符 表達(dá)式 PASCAL 中的運(yùn)算符有算術(shù)運(yùn)算符和關(guān)系運(yùn)算符。 for i:=n downto 1 do write(a[i]:4)。 各個(gè)說(shuō)明部分均以該部分的保留字開(kāi)始。所有在程序中使用的變量都應(yīng)該先在變量說(shuō) 明部分說(shuō)明。如數(shù)組、記錄、指針等。如果要改變處理數(shù)據(jù)個(gè)數(shù)，則只在常量說(shuō)明部分修改“ n=4”這一句就行了，而不用在程序中每一個(gè)用到的地方都加以修改。 說(shuō)明部分： const n=4。用來(lái)表示常量、變量、類型、文件、過(guò)程、函數(shù)和程序的名字。 end. 以上是一個(gè) PASCAL 程序。 const n=4。 end. 例如： program pname。 writeln。標(biāo)識(shí)符是以字母開(kāi)頭的字母數(shù)字串，其長(zhǎng)度最大為 8 個(gè)字符。如 8皇后問(wèn)題程序名可以是“ queen”也可以是“ huanghou”等； 不能用保留字、標(biāo)準(zhǔn)標(biāo)識(shí)符作為自定義的標(biāo)識(shí)符。如上題中定義“ n=4”指本程序處理 4個(gè)數(shù)值，在下面的程序體中就用“ n”來(lái)代替具體的值（如for i:=1 to n）。 type部分是類型說(shuō)明，說(shuō)明一些在以下部分用到的數(shù)據(jù)類型。變量是指在程序執(zhí)行過(guò)程中可以通過(guò)賦值語(yǔ)句或讀語(yǔ)句來(lái)改變值的量。如“ i： integer；”（ i是變量名， integer是類型名）、“ i、 j：integer；”（ i、 j是變量名， integer是類型名）?? 變量說(shuō)明要注意 ： 有效變量名稱不能大于 8個(gè)字符； 變量名稱必須以字母開(kāi)頭；在同一個(gè)有效范圍內(nèi)變量名稱必須唯一。 readln。所謂的“分層縮進(jìn)”是指在邏輯上同一級(jí)的語(yǔ)句其起始點(diǎn)對(duì)齊，下一級(jí)的語(yǔ)句向右縮進(jìn)。一個(gè)單獨(dú)的變量或常量也是表達(dá)式。 PASCAL 中定義好的標(biāo)準(zhǔn)數(shù)據(jù)類型一共有 4個(gè)：整型、實(shí)型、字符型、布爾型，分別用保留字 integer、 real、 char、 boolean來(lái)標(biāo)記它們。 過(guò)程格式： procedure proc_name(參數(shù)表 )。 begin s:=a*b/。)。 end. 練習(xí)： 一、 判斷以下標(biāo)識(shí)符的合法性： a3 3a a17 abcd α β λ 二、 將下列的數(shù)學(xué)表達(dá)式改寫(xiě)成 PASCAL 表達(dá)式： b^24ac 三、 求下列表達(dá)式的值： 20 mod 19， 15 mod 9， 7 div 8 ， 19 div 3， (45) and (78)， (89) or ( 910)，2 and ((3=3) or (37)) 第一節(jié) 順序結(jié)構(gòu) 順序結(jié)構(gòu)是程序設(shè)計(jì)中最簡(jiǎn)單的結(jié)構(gòu)，也是最基本的結(jié)構(gòu)，它就是按照程序書(shū)寫(xiě)的順序逐句執(zhí)行程序中的指令。 S:=Pi*R*R 例：關(guān)于賦值的例子 prssogram example。 Turbo Pascal 語(yǔ)言的輸入語(yǔ)句有如下兩種形式： read(變量名表 )。如果輸入的是一串整數(shù)或?qū)崝?shù)，數(shù)據(jù)間用空格或回車分隔；若輸入的是一串字符，則不用分隔。表示換行。 雙域?qū)捴饕糜趯?shí)型數(shù)據(jù)的輸出。pascal39。 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 7 b:=true。 writeln(39。 語(yǔ)句 2。 a:=b。 var R,C,S:Real。 readln。{每一個(gè)變量都必須聲明 } 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 8 begin S=(R2+R1)*(R2R1)*Pi。 如果 Score≥ 60 那么 輸出“恭喜你考試及格” 否則 輸出“真差勁，要努力哦” “如果 ...那么”形式的判斷在 Pascal中使用 If 語(yǔ)句來(lái)實(shí)現(xiàn)。{聲明分?jǐn)?shù)變量 score} begin readln(score)。 if x0 then y:=1。 var x,x1:real。 writeln(39。 下一語(yǔ)句 。 打印某年某月有多少天。 else 語(yǔ)句 n+1。 var x:real。{case x of} end. 例：根據(jù)學(xué)生的成績(jī)給予相應(yīng)的等級(jí)，對(duì)應(yīng)關(guān)系如下： ９０ ——１００ Ａ ８０ ——８９ Ｂ ６０ ——７９ Ｃ ６０以下 Ｄ 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 11 program chengji。A39。 writeln(s,39。如計(jì)算 1+2+3+….+100 。 For I:=0 to n do S:=S+I。 write(i: 5, chr(i): 2)。用于格式化輸出結(jié)果。 total := total + score。)。,total)。 total: integer。 until score 0。 輸入一個(gè)整數(shù)，計(jì)算它各位上數(shù)字的和。 “百錢買百雞 ”是我國(guó)古代的著名數(shù)學(xué)題。例如： 6的因 子為 3，而 6＝ 1＋ 2＋ 3，因此 6是“完數(shù)”。 Type TWeekDay=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday)。 begin write(39。 if today=Saturday then tomorrow:=Saturday else tomorrow:=succ(today)。Monday39。 Thursday:writeln(39。)。 program date。 2:if ((year mod 4=0)and(year mod 1000)or(year mod 400 =0) then dayth:=dayth+29 else dayth=:=dayth+28?！?】 program xoi00_03。 readln(score[i])。 end. 例 2：從鍵盤(pán)輸入 10 個(gè)數(shù)，將這 10 個(gè)數(shù)逆序輸入，并求這 10 個(gè)數(shù)的和，輸出這個(gè)和。 writeln。用篩法求素?cái)?shù)的方法是：用質(zhì)數(shù)篩去合數(shù)：從第一個(gè)素?cái)?shù) 2 開(kāi)始，把它的倍數(shù)去掉；這樣 2 以后的第一個(gè)非 0 數(shù)就一定也是素?cái)?shù)，把它的倍數(shù)也刪了 …… 重復(fù)這個(gè)刪數(shù)過(guò)程，直到在所找到的素?cái)?shù)后再也找不到一個(gè)非 0數(shù)。 while i = 100 do begin k := i。 39。使用時(shí)，最大的可用長(zhǎng)度即為該值。我們可以這樣定義： Type 中學(xué)學(xué)科網(wǎng)學(xué)海泛舟系列資料 :COM 版權(quán)所有 中學(xué)學(xué)科網(wǎng) 18 TScore=0..100。 在程序中可以使用 Var student:Tstudents。有一次，他抓到 30個(gè)百姓并要一一殺掉。其 中， A（ I）＝ 1 表示第 I 個(gè)人還在圈中。 const n = 10。 d := 0。 end。 輸入 :[KEYBOARD] 輸出 :[SCREEN] 255 FF [問(wèn)題分析 ] 模擬手算 . program bin。 until str[k] = 1。 j := 0。將數(shù)字重新組合成一個(gè)最大的數(shù)和最小的數(shù)相減，重復(fù)這個(gè)過(guò)程，最多七步，必得 6174。 有一組數(shù)其排列順序如下：（設(shè)有 N個(gè)） 3， 6， 11， 45， 23， 70， 67， 34， 26， 89， 90，15， 56， 50， 20， 10。 尋找某一個(gè)滿足條件的自然數(shù)的過(guò)程如下： 把 1 和 2 放進(jìn)數(shù)組 S 中； 把 1 放進(jìn)數(shù)組 CHA中； 當(dāng)尋找下一個(gè)自然數(shù)時(shí)，要把這個(gè)自然數(shù)與數(shù)組 S 中的每一個(gè)數(shù)相減，再判斷所得的差是否在數(shù)組 CHA中；如果所得的差不在數(shù)組 CHA中，說(shuō)明又找到一個(gè)滿足條件的自然數(shù)。 { } i := Abs(157)。, Trunc())。bees 39。, Round())。 注意： X 是實(shí)型表達(dá)式 . 結(jié)果返回 X 的小數(shù)部分 。, Sqr(5))。39。 Index: Integer。 S := Copy(S, 2, 3)。 Index 是整型表達(dá)式。, S, 8)。 Delete 刪除 S中從 Index開(kāi)始的 Count 個(gè)字符。Honest Lincoln39。 在這里 : S 是由一系列數(shù)字字符構(gòu)成的字符串類型變量；。 { 1234 } end. 數(shù)值轉(zhuǎn)為字符串 str 定義： procedure Str(X [: Width [: Decimals ]]。 Readln。 begin S := 39。 end. 字符完全串連 + 定義：操作符 +把兩個(gè)字符串聯(lián)在一起。Turbo pascal39。 { 39。 上例也可定義為： var a,b,c