第三課帶格式的輸出語(yǔ)句及輸入語(yǔ)句

1、第三課 帶格式的輸出語(yǔ)句及輸入語(yǔ)句一、寫(xiě)語(yǔ)句的輸出格式在Pascal語(yǔ)言中輸出數(shù)據(jù)時(shí)是可以按照一定格式的，對(duì)整數(shù)隱含的輸出形式為按十進(jìn)制數(shù)形式。對(duì)實(shí) 數(shù)的輸出，隱含的形式是科學(xué)記數(shù)法形式(如果不想用科學(xué)記數(shù)法輸出而用小數(shù)形式輸出，要自己另行 定義)。若輸出項(xiàng)后沒(méi)有加格式說(shuō)明,事實(shí)上，輸出語(yǔ)句中的每個(gè)輸出項(xiàng)中的表達(dá)式之后可以加上格式說(shuō)明， 則數(shù)據(jù)按系統(tǒng)隱含的格式輸出，還可加上一定格式符號(hào)按特定格式輸出。1.隱含的輸出格式Pascal語(yǔ)言為整型量、實(shí)型量、布爾型量和字符串(用一對(duì)單引號(hào)括起來(lái)的字符序列)規(guī)定了每種數(shù)據(jù)pascal所占的寬度(即一個(gè)數(shù)據(jù)占幾列)，一個(gè)數(shù)據(jù)所占的寬度稱(chēng)為 場(chǎng)寬或字段寬”

2、。系統(tǒng)給出的隱含場(chǎng)寬稱(chēng) 為標(biāo)準(zhǔn)場(chǎng)寬。每一種 Pascal版本給定的標(biāo)準(zhǔn)場(chǎng)寬不盡相同。下表給出標(biāo)準(zhǔn)Pascal和pc機(jī)上兩種版所規(guī)定的標(biāo)準(zhǔn)場(chǎng)寬。標(biāo)準(zhǔn)場(chǎng)寬數(shù)據(jù)類(lèi)型標(biāo)準(zhǔn)Pascal Turbo pascal integer 10實(shí)際長(zhǎng)度real 22 17 布爾型10 4或5 字符串串長(zhǎng)串長(zhǎng)True則按 1在Turbo PascaI系統(tǒng)中，對(duì)于整型字符串的輸出都是按數(shù)據(jù)本身長(zhǎng)度輸出，對(duì)于布爾型數(shù)據(jù)(只有 和False兩種值)，TRUE為4列，F(xiàn)ALSE為5列，一律采用大寫(xiě)輸出。而real型數(shù)據(jù)的輸出時(shí)，7列輸出，其中第一列為符號(hào)位，正號(hào)不顯示，后四位為E nn,中間的12列為尾數(shù)部分。如：write

3、l n( sqrt(75);則輸出 8.6602540379E+00。而 writeln(sqrt(81);則輸出 9.0000000000E+00。有時(shí)，在程序中往往根據(jù)實(shí)際情況，需要自己定義場(chǎng)寬。2.指定場(chǎng)寬在寫(xiě)語(yǔ)句中輸出項(xiàng)含有格式符號(hào)時(shí)，就是為了指定場(chǎng)寬。指定單場(chǎng)寬.格式：write(表達(dá)式:N)或write In(表達(dá)式：N),其中N為自然數(shù)，指定單場(chǎng)寬后，所有數(shù)據(jù)不再按標(biāo)準(zhǔn)場(chǎng) 寬輸出，而按指定場(chǎng)寬輸出。若數(shù)據(jù)實(shí)際長(zhǎng)度小于指定場(chǎng)寬時(shí)，則一律”向右靠齊，左留空格”。女0 write(1234:8);write(abcdef:12)輸出結(jié)果： 1234口口口口口口 abcdef右靠齊按標(biāo)準(zhǔn)

4、場(chǎng)寬格式輸出17位，左留E nn,中間部分為尾數(shù)顯示部分。對(duì)于標(biāo)準(zhǔn)實(shí)型數(shù)據(jù)指定單場(chǎng)寬時(shí)，如果場(chǎng)寬大于標(biāo)準(zhǔn)場(chǎng)寬時(shí)，空格。若場(chǎng)寬小于標(biāo)準(zhǔn)場(chǎng)寬時(shí)，第一位仍為符號(hào)位，最后四位仍為如果指定的寬度小于8位，則數(shù)據(jù)按8位格式*.*E nn 輸出。指定雙場(chǎng)寬如果輸出項(xiàng)是實(shí)數(shù)時(shí)，如果希望輸出的實(shí)數(shù)不用科學(xué)記數(shù)法輸出，而用小數(shù)形式輸出，可以用指定雙場(chǎng)寬方法輸出。雙場(chǎng)寬輸出格式為：write(實(shí)型表達(dá)式：m： n)，其中m和n都是自然數(shù)，m用以指定整個(gè)數(shù)據(jù)所占的 寬度,n指定輸出實(shí)數(shù)的小數(shù)位數(shù)。如：write(sqrt(75):9:4);輸出：口 8.6602如果雙場(chǎng)寬不能滿(mǎn)足輸出數(shù)據(jù)的最低要求，系統(tǒng)自動(dòng)突破指定的

5、場(chǎng)寬限制，按實(shí)際長(zhǎng)度輸出。如:write(sqrt(75):5:4);要使小數(shù)點(diǎn)后有4位數(shù)字，而總場(chǎng)寬為5,是不可能的(因?yàn)檫€有一個(gè)小數(shù)點(diǎn)，小數(shù)點(diǎn)前面還有一個(gè)數(shù)字)。它最低限度要有 6列，即輸出為：8.6602例1寫(xiě)出下列程序在turbo Pascal下的輸出結(jié)果.Program ex; const s=abcdefg;vari:i nteger;r:real;c:char;b:boolea n;begini:=1234;r:=1234.5678; c:=#;b:=true;writel n(i,i:6,i:3);writel n(r,r:12:5,r:8:5); write In (c,c:

6、5);writel n(s,s:10,s:5);writel n(b,b:5,b:3);end.運(yùn)行結(jié)果如下：1234口口 12341234 1.2345678000E+03 1234.567801234.56780# abcdefg abcdefgabcdefgTRUE：TRUETRUE3 .應(yīng)用例析例2:已知A=253 , B=43，輸出A*B的運(yùn)算式子。即輸出如下: 253*43=10879253+ 1012 10879分析：12)，第五行總對(duì)于該問(wèn)題，我們只要控制好輸出時(shí)右靠齊即可。即前四行的總寬度一樣(例如為 寬度比前面少1。第六、七行總寬度與前四行一樣。參與程序如下：var a,b

7、:integer;begina:=253;b:=43;writel n( a:10,*,b,=,a*b);writel n(a:12);write(*:8);writel n(b:4);writeln(:12);writel n( a*3:12);write(+:6);writel n(a*4:5);writeln(:12);writel n( a*b:12);en d.輸入語(yǔ)句(讀語(yǔ)句)在程序中變量獲得一個(gè)確定的值，固然可以用賦值語(yǔ)句，但是如果需要賦 值的變量較多，或變量的值經(jīng)常變化，則使用本節(jié)介紹的輸入語(yǔ)句一一讀語(yǔ)句，將更為方便。讀語(yǔ)句是 在程序運(yùn)行時(shí)由用戶(hù)給變量提供數(shù)據(jù)的一種很靈活的輸入

8、動(dòng)作，它有兩種格式：1. 讀語(yǔ)句的一般格式：read();readln();其中變量名表是用逗號(hào)隔開(kāi)的若干個(gè)變量名組成的。功能：從標(biāo)準(zhǔn)輸入文件(即INPUT, 般對(duì)應(yīng)著鍵盤(pán))中讀入數(shù)據(jù)，并依次賦給相應(yīng)的變量。說(shuō)明： read和readln是標(biāo)準(zhǔn)過(guò)程名，它們是標(biāo)準(zhǔn)標(biāo)識(shí)符。 執(zhí)行到read或readln語(yǔ)句時(shí)，系統(tǒng)處于等待狀態(tài)，等待用戶(hù)從鍵盤(pán)上輸入數(shù)據(jù)，系統(tǒng)根據(jù)變量的數(shù)據(jù)類(lèi)型的語(yǔ)法要求判斷輸入的字符是否合法。如執(zhí)行read(a)語(yǔ)句，a是整型變量，則輸入的字符為數(shù)字字符時(shí)是合法的，當(dāng)輸入結(jié)束時(shí)，則自動(dòng)將剛接受的一串?dāng)?shù)字字符轉(zhuǎn)換為整數(shù)賦給變量a。 在輸入數(shù)值型(整型或?qū)嵭?數(shù)據(jù)時(shí)，數(shù)據(jù)間要用空格或回

9、車(chē)分隔開(kāi)各個(gè)數(shù)據(jù)，輸入足夠個(gè)數(shù)的數(shù) 據(jù)，否則仍要繼續(xù)等待輸入，但最后一定要有回車(chē)，表示該輸入行結(jié)束，直到數(shù)據(jù)足夠，該讀語(yǔ)句執(zhí)行 結(jié)束，程序繼續(xù)運(yùn)行。例3.設(shè)a、b、c為整型變量，需將它們的值分別賦以10,20,30,寫(xiě)出對(duì)應(yīng)下列語(yǔ)句的所有可能輸入格式。Read(a,b,c);解根據(jù)，即可列出所有可能輸入格式(a) 10 20 30(b) 10 201301(c) 10120 301(d) 101201301其中J表示回車(chē)鍵。下同。 read語(yǔ)句與readln語(yǔ)句的第一個(gè)區(qū)別是：read語(yǔ)句是一個(gè)接一個(gè)地讀數(shù)據(jù)，在執(zhí)行完本Read語(yǔ)句(讀完本語(yǔ)句中變量所需的數(shù)據(jù))后，下一個(gè)讀語(yǔ)句接著從該數(shù)據(jù)輸入

10、行中繼續(xù)讀數(shù)據(jù)，也就是說(shuō)，不換行。如：Read(a,b);Read(c,d);Read(e);如果輸入數(shù)據(jù)行如下：1 2口 3口 4口 5 6口1則a,b,c,d,e的值分別為1,2,3,4,5,如果后面無(wú)讀語(yǔ)句則數(shù)據(jù)6是多余的，這是允許的。Readln則不同，在讀完本Readln語(yǔ)句中變量所需的數(shù)據(jù)后，該數(shù)據(jù)行中剩余的數(shù)據(jù)多余無(wú)用，或者說(shuō),在讀完本Readln語(yǔ)句中變量所需數(shù)據(jù)后，一定要讀到一個(gè)回車(chē)，否則多余的數(shù)據(jù)無(wú)用。例4設(shè)要達(dá)到例1同樣的目的，但語(yǔ)句改為：readl n( a,b);readl n(c)則例3中的4種輸入格式只有(b)(d)是有效的. readln語(yǔ)句與read語(yǔ)句的第二

11、個(gè)區(qū)別是:read后一定要有參數(shù)表，而readln可以不帶參數(shù)表，即可以沒(méi) 有任何輸入項(xiàng)，只是等待讀入一個(gè)換行符 (回車(chē))。經(jīng)常用于暫停程序的運(yùn)行，直到輸入一個(gè)回車(chē)。例5設(shè)有下列語(yǔ)句：read(a,b,c);readl n(d,e);readl n;readl n( f,g);其中，所有變量均為整型。再設(shè)輸入的數(shù)據(jù)如下：1口 213口 4 5口6 7口 819口 10111 12口 13列表給出每個(gè)變量的值.分析：可以假想有一數(shù)據(jù)位置指針”，每讀一個(gè)數(shù)據(jù)后，指針后移到該數(shù)據(jù)之后，每執(zhí)行一個(gè)readln語(yǔ)句后,指針移到下一個(gè)數(shù)據(jù)行的開(kāi)頭。各變量的值如下表所示。變量名 a b cd e f g值

12、1 2 3 4 5 11 12為了避免可能出現(xiàn)的錯(cuò)誤，建議在程序中按下列原則使用讀語(yǔ)句：(A)如果沒(méi)有特殊需要，在一個(gè)程序中盡量避免混合使用read語(yǔ)句和readln語(yǔ)句;(B)盡量用readln語(yǔ)句來(lái)輸入數(shù)據(jù)，一個(gè)數(shù)據(jù)行對(duì)應(yīng)一個(gè) readln語(yǔ)句;(C)由于執(zhí)行read或readln語(yǔ)句時(shí)，系統(tǒng)不會(huì)提供任何提示信息，因此，編程時(shí)最好在readln語(yǔ)句之前加以適當(dāng)提示，例如：write(Input a,b,c:);readl n( a,b,c);在執(zhí)行時(shí)，屏幕上顯示:Inp ut a,b,c:其中,”為光標(biāo)。執(zhí)行readln語(yǔ)句后，系統(tǒng)處于待待輸入狀態(tài)，只有輸入了所需數(shù)據(jù)后才繼續(xù)往下執(zhí)行。 三

13、、順序結(jié)構(gòu)程序設(shè)計(jì)到目前為止，我們可以用讀、寫(xiě)語(yǔ)句和賦值語(yǔ)句編寫(xiě)一些簡(jiǎn)單的程序。通過(guò)閱讀這些程序，可以逐步 熟悉Pascal程序的編寫(xiě)方法和應(yīng)遵循的規(guī)則，為以后各章的學(xué)習(xí)打基礎(chǔ)。例6試編一程序，輸入一梯形的上底、下底、高，求該梯形的面積。分析：整個(gè)程序分為三段：輸入、計(jì)算、輸出。程序中用 a,b,h三個(gè)變量分別存放梯形的上、下底與高，S存放面積。要而使用這些變量都要先說(shuō)明，程序的執(zhí)行部分中先輸入上、下底與高，接著求面積S最后輸出結(jié)果So源程序如下：Program Tixing; 程序首咅B(yǎng) var a,b,h,s:real; 程序說(shuō)明部分beginwrite(Input a,b,h:);rea

14、dln(a,b,h); 程序執(zhí)行部分s:=(a+b)*h/2;write(s=,s:10:3);end.例7某幼兒園里，有5個(gè)小朋友編號(hào)為1 , 2, 3, 4, 5，他們按自己的編號(hào)順序圍坐在一張圓桌旁。他們 身上都有若干個(gè)糖果，現(xiàn)在他們做一個(gè)分糖果游戲。從1號(hào)小朋友開(kāi)始，將他的糖果均分三份(如果有多余的，則他將多余的糖果吃掉)，自己留一份，其余兩份分給他的相鄰的兩個(gè)小朋友。接著2號(hào)、3號(hào)、4號(hào)、5號(hào)小朋友也這如果做。問(wèn)一輪后，每個(gè)小朋友手上分別有多少糖果。分析：這道問(wèn)題與第二課中的例 2基本一樣，只不過(guò)這里有5位小朋友，且他們初始時(shí)糖果的數(shù)目不確定。這里用a,b,c,d,e分別存放5個(gè)小朋

15、友的糖果。初始時(shí)它們的值改為由鍵盤(pán)輸入。其它都與第二課中的例2類(lèi)似。參考程序如下：program fentang; var a,b,c,d,e:integer;beginwrite( PI ease En ter init nu mbers );read ln( a,b,c,d,e);a:=adivb:=bc:=cd:=ddivdivdivdiv3;b:=b+a;e:=e+a;13;c:=c+b;a:=a+b;23;b:=b+c;d:=d+c;33;c:=c+d;e:=e+d;43;d:=d+e;a:=a+e;5號(hào)均分后, 號(hào)均分后， 號(hào)均分后， 號(hào)均分后， 號(hào)均分后，1、1、2、3、4、2、5號(hào)的糖果數(shù)變化情況2、3號(hào)的糖果數(shù)變化情況3、4號(hào)的糖果數(shù)變化情況4、5號(hào)的糖果數(shù)變化情況5、1號(hào)的糖果數(shù)變化情況e:=e輸出結(jié)果writel n( a=,a);writel n( b=,b);writel n( c=,c);writel n( d=,d);writel n( e=,e);readln; 暫停en d.例8編一程序求半徑為R的圓的周長(zhǎng)與面積？分析：程序要先輸入半徑R,然后求周長(zhǎng)c和面積S,最后輸出c和s.源程序如下：Program circle; con st P 1=3.14159;var r,c,s:real;beginwrite(Enter R=