【文章內(nèi)容簡介】 11 c:=39。39。b:=true。 writeln(i,i:6,i:3)。 writeln(r,r:12:5,r:8:5)。 writeln(c,c:5)。 writeln(s,s:10,s:5)。 writeln(b,b:5,b:3)。 end. 運(yùn)行結(jié)果如下 : 1234□□ 12341234 □ +03□□ □□□□ abcdefg□□□ abcdefgabcdefg TRUE□ TRUETRUE 3．應(yīng)用例析 例 2： 已知 A=253， B=43，輸出 A*B 的運(yùn)算式子。即輸出如下： 253*43=10879 253 * 43 759 +1012 10879 分析： 對于該問題，我們只要控制好輸出時右靠齊即可。即前四行的總寬度一樣（例如為 12），第五行總寬度比前面少 1。第六、七行總寬度與前四行一樣。 參與程序如下： var a,b:integer。 begin a:=253。b:=43。 writeln(a:10,39。*39。,b,39。=39。,a*b)。 writeln(a:12)。 write(39。*39。:8)。writeln(b:4)。 writeln(39。39。:12)。 writeln(a*3:12)。 write(39。+39。:6)。writeln(a*4:5)。 writeln(39。39。:12)。 writeln(a*b:12)。 end. 二、 輸入語句（讀語句） 在程序中變量獲得一個確定的值，固然可以用賦值語句，但是如果需要賦值的變量較多，或變量的值經(jīng)常變化，則使用本節(jié)介紹的輸入語句──讀語句，將更為方便。讀語句是在程序運(yùn)行時由用戶給變量提供數(shù)據(jù)的一種很靈活的輸入動作，它有兩種格式： ： read(變量名表 )。 readln[(變量名表 )]。 其中變量名表是用逗號隔開的若干個變量名組成的。 功能：從標(biāo)準(zhǔn)輸入文件 (即 INPUT,一般對應(yīng)著鍵盤 )中讀入數(shù)據(jù) ,并依次賦給相應(yīng)的變量。 12 說明： ① read 和 readln 是標(biāo)準(zhǔn) 過程名 ,它們是標(biāo)準(zhǔn)標(biāo)識符。 ②執(zhí)行到 read 或 readln 語句時，系統(tǒng)處于等待狀態(tài)，等待用戶從鍵盤上輸入數(shù)據(jù)，系統(tǒng)根據(jù)變量的數(shù)據(jù)類型的語法要求判斷輸入的字符是否合法。如執(zhí)行 read(a)語句， a是整型變量，則輸入的字符為數(shù)字字符時是合法的，當(dāng)輸入結(jié)束時，則自動將剛接受的一串?dāng)?shù)字字符轉(zhuǎn)換為整數(shù)賦給變量 a。 ③在輸入數(shù)值型（整型或?qū)嵭停?shù)據(jù)時，數(shù)據(jù)間要用空格或回車分隔開各個數(shù)據(jù)，輸入足夠個數(shù)的數(shù)據(jù)，否則仍要繼續(xù)等待輸入，但最后一定要有回車，表示該輸入行結(jié)束，直到數(shù)據(jù)足夠，該讀語句執(zhí)行結(jié)束，程序繼續(xù)運(yùn)行。 例 3. 設(shè) a、 b、 c 為整型變量，需將它們的值分別賦以 10,20,30,寫出對應(yīng)下列語句的所有可能輸入格式。 Read(a,b,c)。 解 根據(jù)③ ,即可列出所有可能輸入格式 (a)10□ 20□ 30←┘ (b)10□ 20←┘ 30←┘ (c)10←┘ 20□ 30←┘ (d)10←┘ 20←┘ 30←┘ 其中 ←┘ 表示回車鍵。下同。 ④ read 語句與 readln 語句的第一個區(qū)別是： read 語句是一個接一個地讀數(shù)據(jù)，在執(zhí)行完本 Read語句 ( 讀完本語句中變量所需的數(shù)據(jù) )后 ,下一個讀語句接著從該數(shù)據(jù)輸入行中繼續(xù)讀數(shù)據(jù)，也就是說，不換行。如： Read(a,b)。 Read(c,d)。 Read(e)。 如果輸入數(shù)據(jù)行如下 : 1□ 2□ 3□ 4□ 5□ 6□←┘ 則 a,b,c,d,e 的值分別為 1,2,3,4,5,如果后面無讀語句則數(shù)據(jù) 6 是多余的，這是允許的。 Readln 則不同，在讀完本 Readln 語句中變量所需的數(shù)據(jù)后 , 該數(shù)據(jù)行中剩余的數(shù)據(jù)多余無用，或者說，在讀完本 Readln 語句中變量所需數(shù)據(jù)后，一定要讀到一個回車，否則多余的數(shù)據(jù) 無用。 例 4 設(shè)要達(dá)到例 1 同樣的目的 ,但語句改為 : readln(a,b)。readln(c) 則例 3 中的 4 種輸入格式只有 (b)(d)是有效的 . ⑤ readln語句與 read語句的第二個區(qū)別是 :read 后一定要有參數(shù)表 ,而 readln可以不帶參數(shù)表 ,即可以沒有任何輸入項(xiàng) , 只是等待讀入一個換行符 (回車 )。經(jīng)常用于暫停程序的運(yùn)行，直到輸入一個回車。 例 5 設(shè)有下列語句 : read(a,b,c)。 readln(d,e)。 readln。 readln(f,g)。 其中 ,所有變量均 為整型。再設(shè)輸入的數(shù)據(jù)如下： 1□ 2←┘ 13 3□ 4□ 5□ 6□ 7□ 8←┘ 9□ 10←┘ 11←┘ 12□ 13←┘ 列表給出每個變量的值 . 分析： 可以假想有一 數(shù)據(jù)位置指針 ，每讀一個數(shù)據(jù)后，指針后移到該數(shù)據(jù)之后，每執(zhí)行一個 readln 語句后，指針移到下一個數(shù)據(jù)行的開頭。 各變量的值如下表所示。 ━━━━━━━━━━━━━━━━━━━━━━━━━━ 變量名 a b c d e f g ────────────────────────── 值 1 2 3 4 5 11 12 ─── ─────────────────────── ⑥為了避免可能出現(xiàn)的錯誤，建議在程序中按下列原則使用讀語句： (A)如果沒有特殊需要 ,在一個程序中盡量避免混合使用 read 語句和 readln 語句 。(B)盡量用 readln 語句來輸入數(shù)據(jù) , 一個數(shù)據(jù)行對應(yīng)一個 readln 語句 。(C)由于執(zhí)行 read 或 readln 語句時 , 系統(tǒng)不會提供任何提示信息 ,因此 ,編程時最好在 readln 語句之前加以適當(dāng)提示 ,例如 : write(39。Input a,b,c:39。)。 readln(a,b,c)。 在執(zhí)行時 ,屏幕上顯示 : Input a,b,c:■ 其中 ,■ 為光標(biāo)。執(zhí)行 readln 語句后 ,系統(tǒng)處于待待輸入狀態(tài) , 只有輸入了所需數(shù)據(jù)后才繼續(xù)往下執(zhí)行。 三、順序結(jié)構(gòu)程序設(shè)計 到目前為止，我們可以用讀、寫語句和賦值語句編寫一些簡單的程序。通過閱讀這些程序，可以逐步熟悉pascal程序的編寫方法和應(yīng)遵循的規(guī)則，為以后各章的學(xué)習(xí)打基礎(chǔ)。 例 6 試編一程序 ,輸入一梯形的上底、下底、高 , 求該梯形的面積。 分析 : 整個程序分為三段 :輸入、計算、輸出。程序中用 a,b,h三個 變量分別存放梯形的上、下底與高， S 存放面積。 要而使用這些變量都要先說明，程序的執(zhí)行部分中先輸入上、下底與高，接著求面積 S,最后輸出結(jié)果 S。 源程序如下 : program Tixing。 {程序首部 } var a,b,h,s:real。 {程序說明部分 } begin write(39。Input a,b,h:39。)。 readln(a,b,h)。 {程序執(zhí)行部分 } s:=(a+b)*h/2。 write(39。s=39。,s:10:3)。 end. 例 7 某幼兒園里，有 5 個小朋友編號為 1， 2， 3， 4， 5，他們按自己的編號順序圍坐在一張圓桌旁。他們身上都有若干個糖果，現(xiàn)在他們做一個分糖果游戲。從 1 號小朋友開始，將他的糖果均分三份（如果有多余的，則他將多余的糖果吃掉），自己留一份，其余兩份分給他的相鄰的兩個小朋友。接著 2號、 3 號、 4號、 5 號小朋友也這如果做。問一輪后，每個小朋友手上分別有多少糖果。 分析： 這道問題與第二課中的例 2 基本一樣，只不過這里有 5 位小朋友，且他們初始時糖果的數(shù)目不確定。這里 14 用 a,b,c,d,e 分別存放 5 個小朋友的糖果。初始時它們的值改為由鍵盤輸入。其它都與第二課中的例 2 類似 。 參考程序如下 : program fentang。 var a,b,c,d,e:integer。 begin write(39。Please Enter init numbers 39。)。readln(a,b,c,d,e)。 a:=a div 3。b:=b+a。e:=e+a。{1 號均分后， 5 號的糖果數(shù)變化情況 } b:=b div 3。c:=c+b。a:=a+b。{2 號均分后， 3 號的糖果數(shù)變化情況 } c:=c div 3。b:=b+c。d:=d+c。{3 號均分后， 4 號的糖果數(shù)變化 情況 } d:=d div 3。c:=c+d。e:=e+d。{4 號均分后， 5 號的糖果數(shù)變化情況 } e:=e div 3。d:=d+e。a:=a+e。{5 號均分后， 1 號的糖果數(shù)變化情況 } {輸出結(jié)果 } writeln(39。a=39。,a)。 writeln(39。b=39。,b)。 writeln(39。c=39。,c)。 writeln(39。d=39。,d)。 writeln(39。e=39。,e)。 readln。｛暫停｝ end. 例 8 編一程序求半徑為 R 的圓的周長與面積 ? 分析 : 程序要先輸 入半徑 R,然后求周長 c 和面積 s,最后輸出 c 和 s. 源程序如下 : program circle。 const PI=。 var r,c,s:real。 begin write(39。Enter R=39。)。readln(r)。 c:=2*pi*r。 s:=pi*sqr(r)。 writeln(39。c=39。,c:10:2)。 writeln(39。s=39。,s:10:2)。 end. 在程序中，為了輸出實(shí)型周長 C 和面積 S 時 ,按照小數(shù)形式輸出 ,采用了指定雙場寬格式。 練習(xí)三 1. 編一程序，將攝氏溫度換為華氏溫度。公式為： 其中 f 為華氏溫度 ,c 是攝氏溫度。 2. 編一程序，輸入三角形的三邊 a、 b、 c（假設(shè)這三邊可以構(gòu)成一個三角形），求三角形的面積Ｓ？ （提示：可利用海倫公式 第四課 簡單的分支結(jié)構(gòu)程序設(shè)計 15 在現(xiàn)實(shí)生活中，我們每天都要進(jìn)行根據(jù)實(shí)際情況進(jìn)行選擇。例如，原打算明天去公園，但如果明天天氣不好，將留在家里看電視。所以人也會根據(jù)條件進(jìn)行行為的選擇。計算機(jī)也會根據(jù)不同情況作出各種邏輯判斷，進(jìn)行一定的選擇。在這課與下一課中，我們將會發(fā)現(xiàn)，我們是通過選擇結(jié)構(gòu)語句來實(shí)現(xiàn)程序的邏輯判斷功能。 一、 PASCAL 中的布爾（邏輯）類型 在前面，我們 學(xué)習(xí)了整型 (integer)與實(shí)型（ real）。其中 integer 型數(shù)據(jù)取值范圍為 32768 到 32767 之間所有整數(shù)。而 real型數(shù)據(jù)取值范圍為其絕對值在 1038 到 1038 之間的所有實(shí)數(shù)。它們都是數(shù)值型的（即值都為數(shù)）。布爾型（ Boolean）是一種數(shù)據(jù)的類型，這種類型只有兩種值，即 真 與 假 。 布爾常量 在 Pascal語言中 真 用 ture 表示， 假 用 False 表示。所以布爾類型只有 TRUE 與 FALSE 兩個常量。 布爾變量（ BOOLEAN） 如果我們將某些變量說明成布 爾型，那么這些變量就是布爾變量，它們只能用于存放布爾值（ ture 或 false）。 例如， VAR A， B： BOOLEAN； 布爾類型是順序類型 由于這種類型只有兩個常量， Pascal 語言中規(guī)定 ture 的序號為 1， false 的序號為 0。若某種類型的常量是有限的，那么這種類型的常量通常都有一個序號，我們稱這種類型為順序類型。如前面我們學(xué)過的整型（ integer），以及后面要學(xué)到的字符型（ char）都是順序類型。 布爾類型的輸入與輸出 a）輸出 VAR A， B： BOOLEAN； BEGIN A： =TRUE； B： =FALSE； WRITELN（ A， B）； END. TRUEFALSE b）布爾類型變量不能直接用讀語句輸入 布爾類型變量不能通過讀語句給它們提供值。事實(shí)上，我們可以通過間接方式對布爾變量進(jìn)行值的輸入。 例如，以下程序是錯誤的： var a,b,c:Boolean。 begin readln(a,b,c)。 {錯誤語句 } writeln(a,b,c)。 end. 二、關(guān) 系表達(dá)式與布爾表達(dá)式 什么是關(guān)系表達(dá)式 用小括號、 、 、 =、 =、 =、 將兩個算術(shù)表達(dá)式連接起來的式子就稱為關(guān)系表達(dá)式（比較式）。 如： 3+78,x+y10,2*7=13 等都是關(guān)系表達(dá)式。 關(guān)系表達(dá)式的值 很顯然，這幾個關(guān)系表達(dá)式中第一個是正確的，第三個是錯誤的，而第二個表達(dá)式可