【正文】 t two number a,b:39。procedure myproc。var s:real。end。例題：寫出計算兩個整數(shù)a,b的和函數(shù)add(a,b)。 WRITELN函數(shù)格式：function fun_name(參數(shù)表):數(shù)據(jù)類型。 RESET PUT NEW SQR EXP COS REAL 標(biāo)準(zhǔn)常量：FALSEPASCAL使用的保留字有： AND、ARRAY、BEGIN、CASE、CONST、DIV、DO、DOWNTO、ELSE、END、FILE、FOR、FUNCTION、GOTO $ ^ （* — ；數(shù)字0—9 not在PASCAL中可使用的基本符號有： false * 實型(real)：范圍 mod + 到了中學(xué)，數(shù)的范圍擴(kuò)大了，整數(shù)包括正數(shù)和負(fù)數(shù)，減法運算也不再有額外的規(guī)定的了。 實型一個單獨的變量或常量也是表達(dá)式。如a^2（a的平方）可以化成a*a。 取整 + 加號； 減號；* 乘號( 數(shù)學(xué)中寫為 )；/ 除號( 數(shù)學(xué)中寫為 247。 表達(dá)式PASCAL中的運算符有算術(shù)運算符和關(guān)系運算符。程序體中每一語句均以“；”作為結(jié)束符。readln。 PASCAL還有一條規(guī)則：先說明后引用。一個程序包含多少種類型的說明，看需要而定，不是每一個程序都必須同時包含這三種說明。其中，如果有多個變量同一類型，則變量名與變量名之間用逗號分隔，變量名與變量類型之間用冒號分隔。變量說明“說明”的主要工作是告訴PASCA下面程序中要用到這個名字的量，同時這個量的類型是什么。var部分是變量說明?？梢杂卸鄠€語句。n是常量名，4是該常量的值，“；”是語句分隔符。常量說明在保留字“const”下開始。在程序中用到這個值的地方均用常量名來代替。var i:integer。（PASCAL定義的保留字和標(biāo)準(zhǔn)標(biāo)識符附后） 標(biāo)識符在命名的時候要注意：名字要易記易讀，有意義。有一點要注意的是，在PASCAL中，字母除了作為字符值或字符串值之外，其大小寫是無關(guān)的。我們不能再用“program”、“const”來作為其它變量、常量等的名字。writeln。 a:arr。end.例如：program pname。 運算符中學(xué)信息學(xué)奧林匹克競賽培訓(xùn)教程Pascal語言和程序設(shè)計基礎(chǔ)（第一部分）第一部分 Pascal語言和程序設(shè)計基礎(chǔ)預(yù)備知識基本程序結(jié)構(gòu)和幾個概念:：標(biāo)識符 常量 標(biāo)準(zhǔn)數(shù)據(jù)類型Pacal語言程序結(jié)構(gòu)Program prog_name。const n=4。beginfor i:=1 to n do read(a[i])。end.以上是一個PASCAL程序。 其中，program是保留字，表示程序從這個地方開始，pname是標(biāo)識符，是程序的名字，可由程序員自定。標(biāo)識符是以字母開頭的字母數(shù)字串，其長度最大為8個字符。如標(biāo)識符“A1”和“a1”在PASCLA看來是同一標(biāo)識符。如8皇后問題程序名可以是“queen”也可以是“huanghou”等；不能用保留字、標(biāo)準(zhǔn)標(biāo)識符作為自定義的標(biāo)識符。 a:ar。如上題中定義“n=4”指本程序處理4個數(shù)值，在下面的程序體中就用“n”來代替具體的值（如for i:=1 to n）?？梢杂卸鄠€語句。type部分是類型說明，說明一些在以下部分用到的數(shù)據(jù)類型。類型說明語句的格式是：“類型名=類型說明；”。變量是指在程序執(zhí)行過程中可以通過賦值語句或讀語句來改變值的量。變量說明在保留字“var”下開始。如“i：integer；”（i是變量名，integer是類型名）、“i、j：integer；”（i、j是變量名，integer是類型名）……變量說明要注意：有效變量名稱不能大于8個字符；變量名稱必須以字母開頭；在同一個有效范圍內(nèi)變量名稱必須唯一。如果程序不須要用到常量，則常量說明部分可以省略；如果不須要用到類型說明，則類型說明可省……即所有在程序體中用到的“名字”必須都在說明部分說明過才能引用，否則就會出錯，通不過編譯，也執(zhí)行不了。for i:=n downto 1 do write(a[i]:4)。 。在書寫程序時，以“分層縮進(jìn)”的風(fēng)格來寫，以便提高程序的可讀性。和我們在數(shù)學(xué)課中學(xué)的基本一樣但在寫法上有些不同，在寫程序時要特別注意寫法的不同：)；MOD 如：8 DIV 2=4，7 DIV 2=3，2 DIV 3=0。如a、a+a*3+b都是表達(dá)式。 字符型 數(shù)據(jù)類型可以理解為一個取值范圍和定義在這取值范圍上的運算規(guī)則。同理，在PASCAL中“數(shù)據(jù)類型”也是一個取值范圍和在它上面定義的運算規(guī)則。 div 運算 /字符型(char)：范圍 運算 * := （ *） {、IF、IN、LABEL、MOD、NIL、NOT、OF、PACKED、PROCEDURE、PROGRAM、RECORD、REPEAT、SET、THEN、TO、TYPE、UNTIL、VAR、WHILE、WITH、FORWARD常用的標(biāo)準(zhǔn)標(biāo)識符有： TRUE CHAR 標(biāo)準(zhǔn)文件：INPUT 標(biāo)準(zhǔn)函數(shù)：ABS EOF LN PRED SQRT DISPOSE READ REWRITEvar 變量聲明。過程格式：procedure proc_name(參數(shù)表)。例題：寫出在屏幕打印一行文字：”hello,Pascal language is very easy!”函數(shù)和過程的調(diào)用：例題：從鍵盤輸入：a,b兩個數(shù)，輸出由這兩個數(shù)為直角邊的三角形的面積。begin s:=a*b/。var a,b:real。)。the area of trian is: 39。end.練習(xí)：一、 判斷以下標(biāo)識符的合法性：a3 3a a17 abcd α β λ二、 將下列的數(shù)學(xué)表達(dá)式改寫成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è)計中最簡單的結(jié)構(gòu)，也是最基本的結(jié)構(gòu)，它就是按照程序書寫的順序逐句執(zhí)行程序中的指令。另外，賦值號兩邊的類型必須相同，但表達(dá)式值為整數(shù)時，它可自動化為實型后賦給該實型變量，即符合賦值相容。 S:=Pi*R*R例：關(guān)于賦值的例子prssogram example。a:=a+b。Turbo Pascal語言的輸入語句有如下兩種形式：read(變量名表)。一個read語句執(zhí)行完后，數(shù)據(jù)行中多余的未讀數(shù)據(jù)可以被下一個輸入語句讀入；而一個readln于執(zhí)行完后，數(shù)據(jù)行中多余未讀數(shù)據(jù)就沒有用了。如果輸入的是一串整數(shù)或?qū)崝?shù)，數(shù)據(jù)間用空格或回車分隔；若輸入的是一串字符，則不用分隔。其中輸出項表是一串用逗號分隔的常量、變量、函數(shù)名、表達(dá)式或字符串。表示換行。在n個字符寬的輸出域上按右對齊方式輸出I的值，若n大于I的實際位數(shù)，則在I值前面補(bǔ)(nI的實際位數(shù))個空格。雙域?qū)捴饕糜趯嵭蛿?shù)據(jù)的輸出。若m=0 ，則不輸出小數(shù)部分和小數(shù)點，原數(shù)據(jù)四舍五入取整。pascal39。b:boolean。b:=true。writeln(i:6)。writeln(39。b=39。語句2。var　a,b,t:integer。a:=b。a=39。var R,C,S:Real。write(‘周長=’,C)。readln。begin S=(R2+R1)*(R2R1)*Pi {Pi=} writeln(s)end。{每一個變量都必須聲明}begin S=(R2+R1)*(R2R1)*Pi。{x:real。如果Score≥60那么 輸出“恭喜你考試及格”否則 輸出“真差勁，要努力哦”“如果...那么”形式的判斷在Pascal中使用If語句來實現(xiàn)。 語句2；當(dāng)布爾表達(dá)式的值為真，則執(zhí)行then后面的語句，值為假時有兩種情況：要么什么也不做，要么執(zhí)行else后面的語句。var score:real。end。if x=0 then y:=0。,y)。program lianxi。,x)。,x1)?！　nd。end。end。編一程序完成自動計費工作。第三節(jié) Case分支結(jié)構(gòu)case語句是由一個表達(dá)式和眾多可選擇的操作序列組成?！Ａ縩:語句n。表達(dá)式只能是順序類型（除了實型以外的簡單類型），其值必須是唯一確定并且和表達(dá)式類型相同。要求：假設(shè)輸入的分?jǐn)?shù)為[0,100]之間的整數(shù)。{輸入一個分?jǐn)?shù)}case x of 0..59:{}writeln(‘不及格’。elsewriteln(‘錯誤的分?jǐn)?shù)’)。ch:char?！　eadln(s)。B39。D39。,ch)。編一程序完成超市的自動計費的工作。For語句是形式最簡單的循環(huán)語句。Readln(N)。End.FOR 循環(huán)有兩種形式：升序形式：for 控制變量:=初值 to 終值 do 語句降序形式：for 控制變量:=初值 downto 終值 do 語句for語句功能描述：雖然for循環(huán)形式簡單，但是執(zhí)行的機(jī)制卻很復(fù)雜。var i, j: byte。end。用于控制換行，每行寫5個字符的對應(yīng)關(guān)系。（如：192，384，576就是一組解答） 求出所有的三位數(shù) ，它除以11所得余數(shù)等于它的三個數(shù)字的平方和。(example4_3)while score=0 do 輸入一個學(xué)生成績→score。完整的程序代碼：program example4_3。begin writeln(39。 total:=0。 writeln(39。end.Repeat語句與while語句基本類類似，只是while先判斷條件，reapeat語句先執(zhí)行循環(huán)體然后再判斷。(Example4_4)program example4_4。begin writeln(39。 repeat readln(score)?？偡譃椋?9。 求水仙花數(shù)。（提示：若從2到A的平方根的范圍內(nèi)，沒有一個數(shù)能整除A，則A是質(zhì)數(shù)。） 編寫一個譯碼程序，把一個英語句子譯成數(shù)字代碼。用100文錢買100只雞，那么各有公雞、母雞、小雞多少只？與之相似，有雞兔同籠問題。例如：（當(dāng)n=5時），n由鍵盤輸入。1 編一程序，輸入a，b，c，d，e，f，然后解出方程組的解。比方說星期是一個只有7個元素的數(shù)據(jù)，因此我們可以定義一種數(shù)據(jù)類型TWeekDay代表星期，如果一個變量定義為TWeekDay類型，那么他的取值范圍就是Sunday..Saturday，另外顏色TColor也一樣。枚舉變量的第一個代表0，第二個 代表1，以此類推，如上面定義的TweekDay類型，Sunday=0，Monday=1，…，Saturday=6。var today,tomorrow:TWeekDay。)。) else begin today:=Sunday。Tomorrow is:39。)。 Thursday:writeln(39。Wednesday39。)。 Saturday:writeln(39。{if today=saturday then} end。TYPE Tscore=0..100?！　　　onth,i:1..12?！　yath:=0?！　　nd。定義一個存放班級學(xué)生(50人)名單的數(shù)組：TYPE TStudents=Array[1..50] of TName也可以這么定義：TYPE TStudents=Array[1..50] of Array[1..20] of Char。var score:TScore。Enter Number 39。 sum:=0。Total Score is:39。var a: array[1..10] of integer。 39。 for i := 1 to 10 do s := s + a[i]。end.例3：用篩法求100以內(nèi)的素數(shù)（質(zhì)數(shù)）。program p2。 a[1] := 0。 a[k] := 0。 {查找接下來的第一個非0數(shù)} end。end. 字符串類型：如果數(shù)組存放的是字符，則成為字符數(shù)組。例如前面的學(xué)生姓名可以定義為：Type TName=String[20]。操作函數(shù)：連接函數(shù)：concat(s1,s1,…,sn)，相當(dāng)于：S1+S2+…+Sn截取子字符串：copy(S,I,L)，從字符串S左邊第I個字符起連續(xù)截取L個字符。插入子串函數(shù)：insert(S,D,L)，在D中的第I個字符位置插入字符串S。TStudent=RecordNO:String[5]。End。集合類型：集合是指相同類型的數(shù)據(jù)匯集在一起構(gòu)成的數(shù)據(jù)結(jié)構(gòu)，如學(xué)生集合，類似于數(shù)學(xué)中的集合，但是構(gòu)成集合的數(shù)據(jù)類型必須是簡單的離散類型，如：Byte，Shortint，Longint，char，Boolean，枚舉,子界類型。集合的運算：并：+；差：－；相等：＝；不等：；包含：=；包含于：=；屬于：in；具體含義參考數(shù)學(xué)中的集合運算?！眹鯁枺骸吧饷饽亩瞬凰溃俊蹦莻€聰明人回答說：“我們30個人圍成一圈，從1開始報數(shù)，凡數(shù)到5