pascal語言語法大全.doc

第七課：pascal專題-pascal語言語法大全及應(yīng)用 配套視頻qq語音課主講內(nèi)容：1.pascal語法專用字符：az，az，09，+，-，*，/，=，=，(，)，:=，；，.，：，.， ；【解說】az：大寫的26個(gè)英文字母；az：小寫的26個(gè)英文字母；09：10個(gè)數(shù)字；+： 加法運(yùn)算符；-： 減法運(yùn)算符；*： 乘法運(yùn)算符；/： 除法運(yùn)算符；=： 比較運(yùn)算符：等于；： 比較運(yùn)算符：不等于；=： 比較運(yùn)算符：大于等于；： 比較運(yùn)算符：大于；(，)： 優(yōu)先級(jí)和參數(shù)表達(dá)符：左右括號(hào)；，： 索引號(hào)表達(dá)符：中括號(hào)；，： 段落屏蔽和備注符：大括號(hào)；:=： 賦值運(yùn)算符；，： 排列式表達(dá)符：逗號(hào)；： 代碼（功能）行結(jié)束符；.： 主從代碼分隔符：點(diǎn)號(hào)；： 變量定義分隔符：冒號(hào)；.： 子界定義表達(dá)符；： 字符串標(biāo)識(shí)符：?jiǎn)我?hào)； ： 指針定義符：尖號(hào)。2. pascal語法保留字：and，array，begin，case，const，div，do，downto，else，end，file，for，function，goto，if，in，label，mod，nil，not，of，or，packed，procedure，program，record，repeat，set，then，to，type，until，var，while，with，exports，shr，string，asm，object，unit，constructor，implementation，destructor，uses，inherited，inline，interface，library，xor，shl ；【解說】and： 邏輯運(yùn)算符：邏輯與；array： 數(shù)組定義符：array of ；begin： 程序“塊”的開始標(biāo)識(shí)符；case： 多條件分支語句的開始標(biāo)識(shí)符；const： 常量定義符；div： 算術(shù)運(yùn)算符：除法取整數(shù)結(jié)果；do： 執(zhí)行命令；downto：?jiǎn)尾椒囱h(huán)語句中的命令；Else：分支語句中的命令，“否則”的意思；end：“結(jié)束”標(biāo)識(shí)符；file：類型文件標(biāo)識(shí)符 ；for： 單步循環(huán)語句的開始標(biāo)識(shí)符；function：函數(shù)定義的命令符；goto：跳轉(zhuǎn)指令 ：if： 單條件分支語句的開始標(biāo)識(shí)符；in： 集合運(yùn)算符；label：定義標(biāo)號(hào) ；mod： 算術(shù)運(yùn)算符：除法取余數(shù)結(jié)果；nil： 一個(gè)表示“空值”的常量；not： 邏輯運(yùn)算符：邏輯非；of： 多種組合命令的輔助符，array of,case of 等；or： 邏輯運(yùn)算符：邏輯或；packed： 用于壓縮和打包的指令；procedure： 過程定義符；program： delphi工程文件標(biāo)識(shí)符；record： 記錄類型標(biāo)識(shí)符；repeat： 循環(huán)語句標(biāo)識(shí)符；set： 集合定義符；then：組合命令的輔助符，ifThenElse；to：組合命令的輔助符，forTo Do；type：類型定義符；until： 循環(huán)語句中的輔助符，repeatUntil；var： 變量定義符；while： 循環(huán)語句定義符；while Do；with： 組合命令的定義符：with Do beginEnd；exports：動(dòng)態(tài)鏈接庫輸出項(xiàng)目定義符；shr： 二進(jìn)制右移運(yùn)算符；string： 字符串類型標(biāo)識(shí)符；asm： 匯編語言標(biāo)識(shí)符；object： 對(duì)象標(biāo)識(shí)符；unit： 單元標(biāo)識(shí)符；constructor： 構(gòu)造函數(shù)定義符；implementation： 單元中“實(shí)現(xiàn)部分開始”的標(biāo)識(shí)符；destructor： 析構(gòu)函數(shù)定義符；uses： 單元引用標(biāo)識(shí)符；inherited： 類繼承指令；inline：過程和函數(shù)的調(diào)用指令；interface：?jiǎn)卧小奥暶鞑糠珠_始”的標(biāo)識(shí)符；library： dll工程定義符；xor：二進(jìn)制位運(yùn)算符：異或；shl：二進(jìn)制位運(yùn)算符：按位左移。3.pascal語法中的標(biāo)識(shí)符；【解說】標(biāo)識(shí)符是object pascal語言中各種成員的名稱，這些成員包括變量（var）、常量（const）、類型（type）、過程（procedure）、函數(shù)（function）、方法（method）、單元（unit）等。標(biāo)識(shí)符可以分為三類：標(biāo)準(zhǔn)標(biāo)識(shí)符、自定義標(biāo)識(shí)符和限定標(biāo)識(shí)符。1）標(biāo)準(zhǔn)標(biāo)識(shí)符 (1)標(biāo)準(zhǔn)常量，如false、nil、true等； (2)標(biāo)準(zhǔn)類型，如boolean、char、real等； (3)標(biāo)準(zhǔn)函數(shù)，如sin、cos、abs、arctan等； (4)標(biāo)準(zhǔn)過程，如dispose、get、new、pack、put等； (5)標(biāo)準(zhǔn)文件，如input、output等。 2）自定義標(biāo)識(shí)符 程序員根據(jù)程序設(shè)計(jì)的需要，自己定義的常量、變量、類型、函數(shù)、過程等所取的名字。自定義標(biāo)識(shí)符可以由任意長(zhǎng)的一個(gè)不帶空格的字符串組成，包括字母az 、az 、數(shù)字09 和下劃線“_”等。 定義標(biāo)識(shí)符需要遵循以下規(guī)則： (1)標(biāo)識(shí)符不區(qū)分大小寫； (2)標(biāo)識(shí)符只能以字母或下劃線開頭，不能以數(shù)字開頭； (3)標(biāo)識(shí)符可任意長(zhǎng)度，但只有前225個(gè)字符有效； (4)標(biāo)識(shí)符中間不允許有空格； (5)不允許使用object pascal語言的保留字作為自定義標(biāo)識(shí)符。 3）限定標(biāo)識(shí)符 在delphi程序中可引用多個(gè)單元，而各個(gè)單元中全局變量、函數(shù)、過程等可能會(huì)同名，在引用時(shí)需用限定標(biāo)識(shí)符來區(qū)分它們： var y:real; begin y:=system.cos(pi); end; 其中system稱為限定符 ，而system.cos稱為限定標(biāo)識(shí)符。4.pascal語法中的表達(dá)式； 【解說】表達(dá)式的定義pascal語言中的算術(shù)表達(dá)式是由符合pascal語法規(guī)定的運(yùn)算對(duì)象(包括常量、變量、函數(shù))、算術(shù)運(yùn)算符、圓括號(hào)組成的有意義的式子。如：a+3.14159*5/8.4-abs(-13) 。1）算術(shù)運(yùn)算符常用的有以下6個(gè)算術(shù)運(yùn)算符：+、-、*、/ ，(實(shí)數(shù)除)得到結(jié)果為實(shí)型。如 5.0/2.0=2.5，5/2=2.5，4/2=2.0而不等于2。div (整除)， div它要求除數(shù)和被除數(shù)均為整型，結(jié)果也為整型。如10 div 3=3， 5 div 10=0， -15 div 4= -3。Div運(yùn)算只取商的整數(shù)部分，參與div運(yùn)算的兩個(gè)對(duì)象不能為實(shí)型。mod (求余)，也只能用于整數(shù)運(yùn)算，取除后的余數(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。2）關(guān)系運(yùn)算符： 、=、=、=、 3）邏輯運(yùn)算符： not、 and 、or 4）運(yùn)算優(yōu)先順序：如果一個(gè)表達(dá)式里出現(xiàn)兩個(gè)或兩個(gè)以上的運(yùn)算符, 則必須規(guī)定它們的運(yùn)算次序。Pascal語言規(guī)定運(yùn)算優(yōu)先級(jí)如下： 表達(dá)式中相同優(yōu)先級(jí)的運(yùn)算符，按從左到右順序計(jì)算 表達(dá)式中不同優(yōu)先級(jí)的運(yùn)算符，從高到低進(jìn)行計(jì)算 括號(hào)優(yōu)先級(jí)最高，從內(nèi)到外逐層依次降低 not優(yōu)先級(jí)為4 *、/、div、mod、and優(yōu)先級(jí)為3 +、-、or優(yōu)先級(jí)為2 =、=、=、in優(yōu)先級(jí)為15.pascal語法中的常量（const）與變量（var）；【解說】a.什么是變量？變量代表了一個(gè)存儲(chǔ)單元，其中的值是可變的，故稱為變量。即在程序運(yùn)行過程中，其值可以改變的量，稱為變量。變量有三個(gè)要素是：變量名、變量類型、變量值。一個(gè)程序中可能要使用到若干個(gè)變量，為了區(qū)別不同的變量，必須給每個(gè)變量（存貯單元）取一個(gè)名（稱為變量名），該變量（存貯單元）存放的值稱為變量的值，變量中能夠存放值的類型為變量的“類型”。1）變量名用一個(gè)合法的標(biāo)識(shí)符代表一個(gè)變量。如m，rot，total 等都是合法變量名。在程序中用到的變量必須在說明部分加以說明。“自定義標(biāo)識(shí)符”的命名規(guī)則為：自定義標(biāo)識(shí)符必須以字母（包含下劃線_）開頭，后面的字符可以是字母或數(shù)字。標(biāo)識(shí)符長(zhǎng)度不超過63個(gè)字符。變量名應(yīng)遵循自定義標(biāo)識(shí)符的命名規(guī)則，并注意“見名知義”的原則，即用一些有意義的單詞作為變量名。2）變量的類型常量是有類型的數(shù)據(jù)，變量在某一固定時(shí)刻用來存放一個(gè)常量，因此也應(yīng)有相應(yīng)的類型。如整型變量用來存放整數(shù)，實(shí)型變量用來存放實(shí)數(shù)。3）變量說明在程序中若要使用變量，變量的名稱及類型在程序的變量說明部分加以定義，變量的值則在程序的執(zhí)行部分中才能賦給。變量說明的一般格式：Var ,:；(中括號(hào)內(nèi)部分表示可省)其中var是pascal保留字,表示開始一個(gè)變量說明段, 每個(gè)變量標(biāo)識(shí)符或由逗號(hào)隔開的多個(gè)變量標(biāo)識(shí), 必須在它的冒號(hào)后面說明成同一類型。一個(gè)程序中，可以說明許多不同類型的變量，每種類型變量之間用分號(hào)隔開，共用一個(gè)var符號(hào)。例如:Var age,day：integer; average：real;其中，integer(整型)、real(實(shí)型)是標(biāo)準(zhǔn)標(biāo)識(shí)符，它們是“類型標(biāo)識(shí)符”，代表了確定的類型，如age和day 被定義為整型變量，average被定義為實(shí)型變量。一旦定義了變量，就確定了它的類型，也就是說，就確定了該變量的取值范圍和對(duì)該變量所能進(jìn)行的運(yùn)算。 B什么是常量？在程序運(yùn)行過程中，其值不能被改變的量稱為常量。如12，14.8，abc，true等。Pascal中有一個(gè)標(biāo)準(zhǔn)標(biāo)識(shí)符maxint，它代表所使用的計(jì)算機(jī)系統(tǒng)允許的最大整型數(shù)，而最小的整型數(shù)即為maxint-1。Turbo pascal還定義了長(zhǎng)整數(shù)常量maxlongint，其值為2147483647。字符常量：是由字符組成，所有字符來自ascii字符集，共有256個(gè)字符。在程序中，通常用一對(duì)單引號(hào)將單個(gè)字符括起來表示一個(gè)字符常量。如：a，a，0等。對(duì)于ascii字符集中，按每個(gè)字符在字符集中的位置，將每個(gè)字符編號(hào)為0255，編號(hào)稱為對(duì)應(yīng)字符的序號(hào)。符號(hào)常量：一個(gè)常量即可以直接表示（稱為直接常量，如 124,156.8），也可以用一個(gè)標(biāo)識(shí)符來代表一個(gè)常量，稱為“符號(hào)常量”。但符號(hào)常量必須在程序中的說明部分先定義，后使用。定義符號(hào)常量的一般格式: const = 說明：常量說明部分以關(guān)鍵字const開頭, 后面的標(biāo)識(shí)符為常量標(biāo)識(shí)符，其中=號(hào)后的常量為整數(shù)、實(shí)數(shù)、字符、字符串。例如: Const Pi=3.14159;Zero=0; Var r,s,c:real; 則在程序中pi和zero作為符號(hào)常量,分別代表實(shí)數(shù)3.14159和整數(shù)0。也就是說，常量說明部分既定義了常量名及其值，又隱含定義了常量的類型。Pi(function函數(shù))為 3.1415926535897932385有關(guān)“ascii字符集”的知識(shí)請(qǐng)參見百度百科：/view/15482.htm6.pascal語法中的賦值語句；【解說】對(duì)程序已經(jīng)創(chuàng)建的變量，如何取值？通常使用賦值語句來給變量提供數(shù)據(jù)，它具有計(jì)算我賦值功能，程序中所進(jìn)行的各種運(yùn)算，大多數(shù)是在賦值語句中實(shí)現(xiàn)的。格式：變量標(biāo)識(shí)符：=表達(dá)式；語義：賦值語句的執(zhí)行是“先計(jì)算，后賦值”。如a:=（9*8）-（2-1）； a:=a+1。說明：（1）“:=”與關(guān)系運(yùn)算符“=”不能混淆。（2）賦值號(hào)兩邊類型應(yīng)該相同。只有一點(diǎn)例外，當(dāng)表達(dá)式的值為整型時(shí)，它可以自動(dòng)轉(zhuǎn)化為實(shí)型后賦給一個(gè)實(shí)型變量。（3）一個(gè)賦值語句只能給一個(gè)變量賦值，變量可以進(jìn)行多次賦值，賦值后的變量將在程序中一直保持不變，址到該變量重新賦值面其他的值。（4）被賦值的變量本身可以作為因子參加運(yùn)算，如n:=n-1，s:=s+x。例：下面程序執(zhí)行后變量abcd的值各是多少？Program ex1;Const a=256;Var b,d:double; c:real;Begin b:=a div 16; c:=a/b; d:=a;End.Program ex2;Var a,b:integer;Begin a:=3; b:=a; b:=a+1; a:=a+1; b:=b+1;End.7.pascal語法中的輸入語句； 【解說】要使變量獲得一個(gè)確定的值，固然可以使用賦值語句，但更多的情況是：程序中需要賦值的變量往往很多或變量的值經(jīng)常變化。如果要使輸入數(shù)據(jù)有所改變的時(shí)候，程序不必進(jìn)行修改就可得到所要處理的不同結(jié)果，那么賦值語句就顯得不合適了，需要一個(gè)靈活的提供數(shù)據(jù)的語句，能在程序運(yùn)行后從鍵盤輸入變量的值，這就是我們要介紹的語句-輸入語句：格式：read(變量名表)；readln(變量名表)；語義：執(zhí)行該語句時(shí)系統(tǒng)處于等待狀態(tài)。從鍵盤上讀入的數(shù)據(jù)將賦給變量名表中的變量，其中變量名表是一串用逗號(hào)隔開的變量標(biāo)識(shí)符。Readln后可以沒有變量名表，作用表示僅讀入一個(gè)回車符。案例：在delphi下file-new，然后選console application然后在加入代碼，例如：Program project2;$apptype consoleUses sysutils;Var str1 : string; begin write(input text: ); /這個(gè)是輸出語句 readln(str1); /這個(gè)是輸入語句 writeln(you input: ,str1); /這個(gè)是輸出語句 writeln(press anyone key to exit); /這個(gè)是輸出語句 readln; /這個(gè)是輸入語句End.8.pascal語法中的輸出語句；【解說】格式：write（輸出項(xiàng)）；writeln；說明：1）輸出項(xiàng)可以是字符串：用單引號(hào)引起來的一串字符，如wrtie（*）；數(shù)值常量：如write（8）變量：輸出變量的值，注意變量必須要先定義再賦值，然后才可以輸出值，如write（a）；表達(dá)式：輸出表達(dá)式的值，表達(dá)式必須正確，如write（a+b）2）可以有多個(gè)不同類型的輸出項(xiàng)，之間用逗號(hào)隔開。如write（a=，a）；write（x，x+2，y，z）；案例：請(qǐng)參考上例的輸入語句的例子。學(xué)員練習(xí)：Program tixing;Var a,b,h,s:real;Begin write(input a,b and h:); read(a,b,h); s:=(a+b)*h/2; writeln(mianji:,s);readln;End.9.pascal語法中的復(fù)合語句：begin End；【舉例】1）例1：Var Str1:string;BeginStr1:=中國人;End;2）例2：varStr1,str2:string;BeginStr1:=edit1.text;If str1=中國人 thenBeginShowmessage(您輸入的是：+str1);End;End;10.pascal語法中的if語句； 【舉例】varX,y:integer;BeginX:=1;Y:=2;If xy thenShowmessage(x大于y!)ElseShowmessage(x不大于y!);End;11.pascal語法中的case語句；【舉例】vari:integer;beginI:=strtoint(edit1.text);case i of1:Showmessage(您輸入的數(shù)字是：1);2:showmessage(您輸入的數(shù)字是：2);3:showmessage(您輸入的數(shù)字是：3);elseshowmessage(您輸入的數(shù)字是：13之外的數(shù)字！);end;12.pascal語法中的while語句； 【舉例】varW:integer;beginW:=0;While w=10 doBeginW:=w+1;End;Shomessage(inttostr(w);End;13.pascal語法中的repeat語句；【舉例】格式：Repeat 被循環(huán)執(zhí)行的語句;Until 循環(huán)結(jié)束條件;執(zhí)行時(shí)會(huì)重復(fù)執(zhí)行被循環(huán)執(zhí)行的語句，直到循環(huán)結(jié)束條件為真時(shí)退出循環(huán)。例如，執(zhí)行下列程序：Var i:integer;Begin i:=0; repeat i:=i+1; showmessage(inttostr(i); until i=10; showmessage(inttostr(i);End.會(huì)得到輸出結(jié)果：1234567891014.pascal語法中的for語句；【舉例】vari:integer;beginfor i:=1 to 10 dobeginshowmessage(inttostr(i);end;End;15.pascal語法中的goto語句；【解說】goto語句為無條件轉(zhuǎn)移語句Goto語句的一般形式為:Goto (之前必須加)Label 例如：Procedure tform1.button1click(sender: tobject);Label 10;BeginGoto 10;Showmessage(0);10:showmessage(1);End;運(yùn)行結(jié)果：執(zhí)行的第二個(gè)。16.pascal語法中的halt語句；【解說】halt可以運(yùn)用在程序的任何位置，表示結(jié)束程序。例如：BeginHalt;End;執(zhí)行結(jié)果：程序被退出。17.pascal語法中的exit語句；【解說】exit是退出當(dāng)前的子過程，如果它用在主程序里，就和halt等效。例如：varBeginShowmessage(1);Exit;Showmessage(2);End;執(zhí)行結(jié)果：第二個(gè)不會(huì)執(zhí)行。18.pascal語法中的break語句；【解說】break是用在循環(huán)里面，表示跳出當(dāng)前的循環(huán)。例如：varI:integer;Beginfor i:=1 to 10 do begin if i=2 then break;End;執(zhí)行結(jié)果：i只能循環(huán)到2。19.pascal語法中的continue語句；【解說】continue也是用在循環(huán)里面，但它并不是跳出，而是跳過這一次循環(huán)，直接進(jìn)入下一個(gè)循環(huán)。例如：vari,ans:integer;beginfor i:=1 to 10 do begin if i mod 2=0 then continue; ans:=ans+i;End;End;執(zhí)行結(jié)果：i就把110中的奇數(shù)都計(jì)算了一遍。20.pascal語法中的with Do 語句；【解說】本語句的功能是：使用“某對(duì)象”來執(zhí)行某些“操作”。用途是簡(jiǎn)化代碼。例如：With button1 doBeginCaption:=保存;left:=200;Top:=200;end;21.pascal語法中的try Except End 語句；【解說】保護(hù)機(jī)制，強(qiáng)制執(zhí)行預(yù)定的代碼。例如：tryShowmessage(1);exceptshowmessage(try后面的語句執(zhí)行失敗，才執(zhí)行本句，否則不執(zhí)行本句！);End;22.pascal語法中的try Finally End 語句；【解說】保護(hù)機(jī)制，強(qiáng)制執(zhí)行預(yù)定的代碼。例如：tryShowmessage(1);finallyshowmessage(不管try后面的語句是否執(zhí)行成功，都執(zhí)行本句！);End;視頻實(shí)戰(zhàn)課主講內(nèi)容：1.演示pasca標(biāo)識(shí)符的運(yùn)用；【例子】1）變量（var）：varStr1:string;BeginStr1:=edit1.text;Showmessage(str1);End;2）常量（const）：procedure tform1.button2click(sender: tobject);Const w:integer=10;Begin showmessage(inttostr(w);End;3）類型（type）：type tform1 = class(tform) private private declarations public public declarations end;4）過程（procedure）：procedure myproc1;Procedure tform1.myproc1;Begin showmessage(這是一個(gè)過程！);End;2.演示pascal表達(dá)式的運(yùn)用； 【例子】1）+、-、*、/ ：varX,y,z:double;beginX:=1;y:=2;Z:=(x+y)*100/5;end;2）=、=、=y then z:=x+y;end;3）or 、and、not ：varX,y,z:integer;beginX:=1;y:=2;z:=3;If not (x=y) or (xz) then z:=x+y;end;3.演示常量與變量的應(yīng)用；procedure tform1.button1click(sender: tobject);VarX,y:integer;Const z:integer=10;BeginX:=5;Y:=x+z;Showmessage(inttostr(y);End;4.演示一個(gè)賦值語句；【例子】varstr1:string;beginstr1:=edit1.text;Showmessage(str1);end;5.演示一個(gè)輸入語句； 6.演示一個(gè)輸出語句；【例子】在delphi下file-new，然后選console application然后在加入代碼，例如：Program project2;$apptype consoleUses sysutils;Var str1 : string; begin write(input text: ); readln(str1); writeln(you input: ,str1); writeln(press anyone key to exit); readln;End.7.演示一個(gè)復(fù)合語句：begin End；8.演示一個(gè)if語句；【例子】varx,y:integer;BeginX:=1;y:=2;If xy thenBeginShowmessage(x大于y！);End;End; 9.演示一個(gè)case語句；【例子】vari:integer;beginI:=strtoint(edit1.text);case i of1:Showmessage(您輸入的數(shù)字是：1);2:showmessage(您輸入的數(shù)字是：2);3:showmessage(您輸入的數(shù)字是：3);elseshowmessage(您輸入的數(shù)字是：13之外的數(shù)字！);end;10.演示一個(gè)while語句；【例子】varW:integer;beginWhile w=10 doBeginW:=w+1;End;End; 11.演示一個(gè)repeat語句；【例子】var i:integer;Begin i:=0; repeat i:=i+1; write(i); until i=10; showmessage(intto