pascal教程第一講

1、 Pascal是一種計算機通用的高級程序設(shè)計語言。PASCAL語言一種計算機編程的高級語言，它是瑞士蘇黎世聯(lián)邦工業(yè)大學(xué)的N沃思(Niklaus Wirth)教授于1968年設(shè)計完成的，1971年正式發(fā)表。為紀(jì)念法國數(shù)學(xué)家Pascal，把此高級語言命名為Pascal語言。其主要特點有：嚴(yán)格的結(jié)構(gòu)化形式；豐富完備的數(shù)據(jù)類型；運行效率高；查錯能力強。 注意Pascal程序的規(guī)范語法 注意掌握算法，做到舉一反三，一通百通 1.一個PASCAL程序由程序首部和程序體兩部分組成。程序首部以分號結(jié)束，程序體以圓點結(jié)束。 2.程序首部包括三項內(nèi)容，其順序是： （1）PROGRAM， Pascal程序標(biāo)志，寫在

2、程序的開頭。 （2）程序名，必須由英文字母開頭，由作者自行定義。 （3）參數(shù)表，由INPUT,OUTPUT組成，表示輸入、輸出文件。程序體是程序的主體，也稱”分程序“。程序體由說明部分和語句部分組成。說明部分有常量說明、變量說明、類型說明、函數(shù)說明、過程說明等，分別以分號結(jié)尾。語句部分是程序的執(zhí)行部分，以BEGIN開始，END.結(jié)尾，用來描述程序所執(zhí)行的算法和操作。中間的每一語句均須以分號結(jié)尾。1. 語句部分中，變量賦值用:=,而不是，輸出用WRITE，而不是用PRINT。已知三個數(shù)A15，B234，C348，編程求三個數(shù)的平均值P。 Turbo Pascal系統(tǒng)集成環(huán)境簡介 最頂上一行為主菜

3、單。中間藍色框內(nèi)為編輯窗口，在它個編輯窗口內(nèi)可以進行程序的編輯。最底下一行為提示行，顯示出系統(tǒng)中常用命令的快捷鍵，如將當(dāng)前編輯窗口中文件存盤的命令快捷鍵為F2，獲得系統(tǒng)幫助的快捷鍵為F1，等等。 按F10進行主菜單，選擇FILE菜單，執(zhí)行其中New命令。就可建立一個新的程序窗口（默認(rèn)文件名為Noname00.pas或Noname01.pas等）。 在當(dāng)前程序窗口中，一行一行的輸入程序。事實上，程序窗口是一個全屏幕編輯器。所以對程序的編輯與其它編輯器的編輯方法類似。當(dāng)程序輸入完畢之后，一般要先按Alt+F9（或執(zhí)行compile菜單中compile命令）對程序進行編譯。如果程序有語法錯誤，則會在

4、程序窗口的第一行處顯示第一個紅色錯誤信息。若無語法錯誤，則窗口正中央會出現(xiàn)一個對話框，提示編譯成功。接下來，我們可以運行程序了。程序的運行可以通過按ALT+R打開RUN菜單中的RUN命令，或直接按快捷鍵CTRL+F9。則可以在用戶窗口中輸出運行結(jié)果。通常在程序運行結(jié)束后系統(tǒng)回到Pascal系統(tǒng)的集成環(huán)境，因此要查看運行結(jié)果，要按ALT+F5將屏幕切換到用戶屏幕。 當(dāng)我們想把程序窗口中的程序存入磁盤時，可以通過按F2鍵(或執(zhí)行File菜單中的save命令)來保存程序。第一次保存文件時屏幕上會出現(xiàn)一個對話框要求輸入文件名(默認(rèn)擴展名為.pas)。當(dāng)我們要將磁盤上的程序文件中的PASCAL程序裝入窗

5、口時，可按F3(或執(zhí)行File菜單中的Open命令)來裝入程序，此時系統(tǒng)也會彈出一個對話框要求輸入要打開的文件名，或直接在文件對話框列表中選擇所要的文件，然后回到打開文件 。 在程序運行過程中，其值不能被改變的量稱為常量。如77、3,145.88、abc、true等。 整型常量整型常量整型常量采用我們平常使用的十進制整數(shù)表示。如138,0,-512等都是整型常量，而18.或18.0都不是整型常量。 實型常量包括正實數(shù)、負(fù)實數(shù)和實數(shù)零。pascal中表示實型常量的形式有兩種。 十進制表示法十進制表示法這是人們?nèi)粘Ｊ褂玫膸?shù)點的表示方法。如0.0,-0.0,+5.61,-8.0,-6.050等都

6、是實型常量。科學(xué)記數(shù)法科學(xué)記數(shù)法科學(xué)記數(shù)法是采用指數(shù)形式的表示方法，如1.25105可表示成1.25E+05。在科學(xué)記數(shù)法中，字母E表示10這個底數(shù)，而E之前為一個十進制表示的小數(shù)，稱為尾數(shù)，E之后必須為一個整數(shù)，稱為指數(shù)。 如-1234.56E+26 , +0.268E-5 , 1E5是合法形式。字符常量字符常量在Pascal語言中，字符常量是由單個字符組成，所有字符來自ASCII字符集，共有256個字符。在程序中，通常用一對單引號將單個字符括起來表示一個字符常量。如：a，A，0等。4布爾常量布爾常量布爾型常量僅有兩個值，真和假，分別用標(biāo)準(zhǔn)常量名true和false表示。它們的序號分別為1和

7、0。 5符號常量符號常量一個常量即可以直接用字面形式表示（稱為直接常量， 如 124,156.8），也可以用一個標(biāo)識符來代表一個常量，稱為符號常量。但符號常量必須在程序中的說明部分定義，也就是說先定義，后使用。 定義符號常量的一般格式定義符號常量的一般格式:CONST= 例如：CONST PI=3.1416 變量代表了一個存儲單元，其中的值是可變的，故稱為變量。如游戲“魂斗羅”中玩者命的個數(shù)最初為3，當(dāng)你死了一次命減少一，這里命的個數(shù)就是一個變量（或者說命的個數(shù)存儲在一個存儲單元中）。即在程序運行過程中，其值可以改變的量，稱為變量。 變量有三個要素是：變量名、變量類型、變量值。 用一個合法的標(biāo)

8、識符代表一個變量。如n,m,rot,total 等都是合法變量名。在程序中用到的變量必須在說明部分加以說明，變量名應(yīng)遵循自定義標(biāo)識符的命名規(guī)則，并注意見名知義的原則，即用一些有意義的單詞作為變量名。 自定義標(biāo)識符的命名規(guī)則為：自定義標(biāo)識符必須以字母（包含下劃線_）開頭，后面的字符可以是字母或數(shù)字。標(biāo)識符長度不超過63個字符。 常量是有類型的數(shù)據(jù)，變量在某一固定時刻用來存放一個常量，因此也應(yīng)有相應(yīng)的類型。如整型變量用來存放整數(shù)，實型變量用來存放實數(shù)。 在程序中若要使用變量，變量的名稱及類型在程序的變量說明部分加以定義，變量的值則在程序的執(zhí)行部分中才能賦給。變量說明的一般格式：變量說明的一般格式：

9、VAR,:; 例如例如:varage,day:integer;amount,average:real;其中，Integer(整型)、Real(實型)是標(biāo)準(zhǔn)標(biāo)識符， 它們是類型標(biāo)識符，代表了確定的類型，如age和 day 被定義為整型變量，amount和average被定義為實型變量。 整型 integer 實型 real 字符型 char 布爾型 boolean 一旦定義了變量，就確定了它的類型，也就是說，就確定了該變量的取值范圍和對該變量所能進行的運算。 整型 類型數(shù)值范圍 占字節(jié)數(shù)格式shortint-128.128 1 帶符號8位inteter -32768.32767 2 帶符號16位

10、longint-2147483648.2147483647 4 帶符號32位 實型 類型數(shù)值范圍占字節(jié)數(shù) real2.9e-39.1.7e386 single1.5e-45.3.4e38 4 double 5.0e-324.1.7e308 8 算術(shù)表達式的定義算術(shù)表達式的定義pascal語言中的算術(shù)表達式是由符合pascal語法規(guī)定的運算對象(包括常量、變量、函數(shù))、算術(shù)運算符、圓括號組成的有意義的式子。如：A+3.14159*5/8.4-Abs(-1123) 。 常用的有以下6個算術(shù)運算符： (加) (減) (乘) (實數(shù)除)得到結(jié)果為實型.如5.0/2.0=2.5， 5/2= 2. 5，4

11、/2=2.0而不等于2。 DIV (整除) DIV它要求除數(shù)和被除數(shù)均為整型, 結(jié)果也為整型。如10 DIV 2=5,10 DIV 3=3, 5 DIV 10=0. -15 DIV 4= -3。DIV運算只取商的整數(shù)部分，參與DIV運算的兩個對象不能為實型。 mod (求余)，也只能用于整數(shù)運算，結(jié)果為整數(shù)。例如:10 mod 4=2 , -17 mod 4= -1 , 4 mod (-3)=1, - 4 mod 3= -1，即 a mod b=a-(a div b)*b。 1、 賦值語句的格式賦值語句的格式變量名:=表達式；其中“:=”稱為賦值號，注意與“”的區(qū)別。2、 執(zhí)行過程執(zhí)行過程計算

12、機先計算賦值號右邊表達式的值，然后將表達式的值賦給變量名代表的變量。如：A：=（9*8）-（2-1）; A:=A+1 讀語句是在程序運行時由用戶給變量提供數(shù)據(jù)的一種很靈活的輸入動作，它有兩種格式： 1.讀語句的一般格式：讀語句的一般格式：read();readln();其中變量名表是用逗號隔開的若干個變量名組成的。 （1）執(zhí)行到read或readln語句時，系統(tǒng)處于等待狀態(tài)，等待用戶從鍵盤上輸入數(shù)據(jù)，系統(tǒng)根據(jù)變量的數(shù)據(jù)類型的語法要求判斷輸入的字符是否合法。（2）在輸入數(shù)值型（整型或?qū)嵭停?shù)據(jù)時，數(shù)據(jù)間要用空格或回車分隔開各個數(shù)據(jù)，輸入足夠個數(shù)的數(shù)據(jù)，否則仍要繼續(xù)等待輸入，但最后一定要有回車，表

13、示該輸入行結(jié)束，直到數(shù)據(jù)足夠，該讀語句執(zhí)行結(jié)束，程序繼續(xù)運行。 例例1 設(shè)a、b、c為整型變量，需將它們的值分別賦以10,20,30,寫出對應(yīng)下列語句的所有可能輸入格式。Read(a,b,c); 解解 根據(jù),即可列出所有可能輸入格式(a)102030(b)102030(c)102030(d)102030其中表示回車鍵。 輸出語句的作用是將程序運算的結(jié)果輸出到屏幕或打印機等輸出設(shè)備。這里通常是指輸出到屏幕。 格式:Write(表達式1，表達式2，)或writeln Write語句與writeln語句格式上都相似，但它們在功能上有所不同，兩個語句的區(qū)別在于，write語句將其后括號中的表達式一個接

14、一個輸出后，沒有換行。而writeln語句則在輸出各個表達式的值后換行。例如以下兩個程序段的輸出分別為：write(1,2,3,4);write(5,6);輸出為：輸出為：123456writeln(1,2,3,4);write(5,6);輸出為：輸出為：123456 例例1已知某梯形的上底A=13，下底B=18，高H=9，求它的面積S。 思考：試編一程序,從鍵盤輸入一梯形的上底、下底、高, 求該梯形的面積。 例2 為水果店編制一個蘋果計價程序，從鍵盤輸入蘋果重量W（公斤），按每公斤5.2元計算應(yīng)付金額P。 例3某倉庫第1天有糧食100噸，第2天又調(diào)進20噸，5月3日賣出庫存的一半，第4天又調(diào)

15、進庫存的3倍的糧食，打印倉庫每天的糧食庫存？ 例例4有三個小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果?，F(xiàn)在他們做一個游戲。從甲開始，將自己的糖分三份，自己留一份，其余兩份分別給乙與丙，多余的糖果自己吃掉，然后乙與丙也依次這樣做。問最后甲、乙、丙三人各有多少粒糖果？ 變量的含義。（例3中假如用變量A表示每人糧食庫存，A的內(nèi)容在不同的時間（天）中是不同的。） 盡量避免使用不必要的變量和常量。 為了提供程序的可讀性，在使用read函數(shù)時，應(yīng)使用write語句加上提示信息。如：writeln(please input a)。 Program ex01;Var A，B,H:intege

16、r; S：REALBegin A:=13;B:=8;H=9 S:=(A+B)*H/2 Writeln(S=,S);End. Program ex02;Var W:REAL; P：REALBegin Write(W=);read(w); p:=5.2*W Writeln(w=,w,p=,p);End.例3某倉庫第1天有糧食100噸，第2天又調(diào)進20噸，5月3日賣出庫存的一半，第4天又調(diào)進庫存的3倍的糧食，打印倉庫每天的糧食庫存？Program ex03;Var A:integer;Begin A:=100;Writeln(N1=,A); A:=A+20;Writeln(N2=,A); A:=A

17、div 2; writeln(N3=,A); A=A+A *3; writeln(N4=,A); Readln;End. 例例4有三個小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，兩有13粒糖果。現(xiàn)在他們做一個游戲。從甲開始，將自己的糖分三份，自己留一份，其余兩份分別給乙與丙，多余的糖果自己吃掉，然后乙與丙也依次這樣做。問最后甲、乙、丙三人各有書多少粒糖果？分析：分析： 這個問題中我們關(guān)心的是在游戲過程中每個小朋友的糖果個數(shù)，且他們所擁有的的糖果數(shù)是在變化的。因此可用a,b,c三個變量分別存放甲乙丙三個小朋友在某一時刻所擁有的糖果數(shù)。對于每人，分糖后，他的糖果數(shù)一定為原來的糖果數(shù) div 3（

18、因為分糖過程糖果的數(shù)目不一定都剛好分完，用整除恰恰可以表示多余的糖自己吃掉）。而其他兩人則增加與這個小朋友現(xiàn)在擁有的一樣的糖果。 program ex04;var A,B,C:integer;beginA:=50;B:=43;C:=13; 初始時每個小朋友所擁有的糖果數(shù)A:=A div 3; B:=B+A;C:=C+A;甲小朋友分糖果后，每個人擁有的糖果數(shù)變化情況B:=B div 3; A:=A+B;C:=C+B; 乙小朋友分糖果后，每個人擁有的糖果數(shù)變化情況C:=C div 3; A:=A+C;B:=B+C; 丙小朋友分糖果后，每個人擁有的糖果數(shù)變化情況writeln(A=,A,B=,B,C

19、=,C); 輸出結(jié)果readln;end. 如果輸出項是實數(shù)時，如果希望輸出的實數(shù)不用科學(xué)記數(shù)法輸出,而用小數(shù)形式輸出,可以用指定雙場寬方法輸出。雙場寬輸出格式為：write(實型表達式：m：n)，其中m和n都是自然數(shù)，m 用以指定整個數(shù)據(jù)所占的寬度,n指定輸出實數(shù)的小數(shù)位數(shù)。如 : write(sqrt(75):9:4);輸出:8.6602 如果雙場寬不能滿足輸出數(shù)據(jù)的最低要求, 系統(tǒng)自動突破指定的場寬限制，按實際長度輸出。如:write(sqrt(75):5:4); 要使小數(shù)點后有4位數(shù)字，而總場寬為5，是不可能的(因為還有一個小數(shù)點， 小數(shù)點前面還有一個數(shù)字)。它最低限度要有6列，即輸出

20、為:8.6602 program ex05;const s=abcdefg;var i:integer;r:real;c:char; b:boolean;begini:=1234;r:=1234.5678;c:=#;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. 運行結(jié)果如下:1234123412341.2345678000E+031234.567801234.56780#abcdefgabcdefgabcdefgTRUET

21、RUETRUE 例例2已知A=253，B=43，輸出A*B的運算式子。即輸出如下：253*43=10879 參考程序如下：var a,b:integer;begina:=253;b:=43;writeln(a,*,b,=,a*b);end. var a,b，c:integer; x1,x2:realbegina:=6;b:=7;c=-5;x1=(-b+sqrt(b*b-4*a*c)/(2*a); x2=(-b-sqrt(b*b-4*a*c)/(2*a); writeln(x1=,x1:8:2,x2=,x2:8:2);end. 一只籠子中關(guān)著若干只雞和兔子，現(xiàn)已知雞和兔子的頭總共有H只，腳總共有F只，編程計算雞和兔子各有幾只？program Pex05（input,output）；var F，H，X，Y:integer；beginwrite(H，F(xiàn))；READLN（H，F(xiàn)）； X：（4*H-F