【正文】 PI/180。角度轉(zhuǎn)弧度的公式為：弧度=角度PROGRAM XT2_2。不同計(jì)算機(jī)系統(tǒng)的標(biāo)準(zhǔn)場(chǎng)寬規(guī)定可能不同。writeln(x+y=’,x+y,’x*y=’,x*y)輸出結(jié)果為：x=2 y=3x+y=5 x*y=6write語(yǔ)句可以輸出實(shí)型、整型、字符型、布爾型值，也可以輸出字符串。例如將上面的語(yǔ)句改為：write(‘x=’,x,’y=’,y,’x+y=’,x+y,’x*y=’,x*y)則輸出結(jié)果為：x=2 y=3 x+y=5 x*y=6顯然，現(xiàn)在的輸出結(jié)果，較前面清楚。用于將計(jì)算結(jié)果通過(guò)屏幕或打字機(jī)輸出給人看。表達(dá)式和運(yùn)算符運(yùn)算符+ ， ， * ， /AND，OR，NOT，，，表達(dá)式就是將數(shù)據(jù)和運(yùn)算符結(jié)合使用，組成一組有意義的運(yùn)算式。x，y，max，min，sum，a15，a3b7都是合法的標(biāo)識(shí)符。 writeln(A0 or A1)。 writeln(A0 AND A1)。且false的序號(hào)為0，true的序號(hào)為1。例如：‘A’，’b’，’C’，’0’，’4’，’+’，’*’，……‘’代表空字符‘’’’代表字符’‘a(chǎn)bc’不是字符型數(shù)，因?yàn)閱我?hào)中只能有一個(gè)字符。上列各數(shù)可以解釋成：=100=，+2=102=，=103=，=100=，0e0=0100=，1e2=1102=整型（integer）整型數(shù)包括正、負(fù)整數(shù)和零。PASCAL規(guī)定：程序中出現(xiàn)的變量必須先說(shuō)明才能使用。程序的書寫格式：PROGRAM寫在最左邊頂格；注釋的大括號(hào){、和CONST、VAR、BEGIN、END等語(yǔ)句上下對(duì)齊，且它們比PROGRAM向右移兩個(gè)字符；各個(gè)語(yǔ)句和程序語(yǔ)句也是上下對(duì)齊，它們比第2點(diǎn)中的各語(yǔ)句又向右移兩個(gè)字符；使用大寫字母的語(yǔ)句：PROGRAM、CONST、VAR、BEGIN、END；使用大寫字母的標(biāo)識(shí)符：常量標(biāo)識(shí)符。write(r,l,s)。 VARr,l,s:real。中間是一些用分號(hào)分開的語(yǔ)句。分程序一般由說(shuō)明部分和語(yǔ)句部分構(gòu)成。 (*第9行：賦值語(yǔ)句*)s: =PI*r*r。 (* 第1行：程序首部 *){已知半徑求圓周長(zhǎng)和面積}(* 第2行：注釋 *) CONST(*第3行：常量說(shuō)明*)PI=。金關(guān)工程是金橋工程的起步工程之一。在農(nóng)業(yè)社會(huì)，田地是社會(huì)的基礎(chǔ)設(shè)施；19世紀(jì)進(jìn)行的工業(yè)革命時(shí)代，很多國(guó)家通過(guò)建設(shè)高速公路和鐵路等交通運(yùn)輸方面的基礎(chǔ)設(shè)施取得了經(jīng)濟(jì)飛速發(fā)展；而在信息化時(shí)代，信息高速公路就自然成為國(guó)家重要的基礎(chǔ)設(shè)施。計(jì)算機(jī)輔助設(shè)計(jì)和制造：利用計(jì)算機(jī)來(lái)輔助工程師們?cè)O(shè)計(jì)和制造產(chǎn)品。 計(jì)算機(jī)對(duì)現(xiàn)代社會(huì)的影響 計(jì)算機(jī)應(yīng)用概述科學(xué)計(jì)算：利用計(jì)算機(jī)解決科學(xué)研究和工程技術(shù)中所提出的復(fù)雜的數(shù)學(xué)問(wèn)題。研制中的第五代計(jì)算機(jī)，是一種智能計(jì)算機(jī)，具有自動(dòng)識(shí)別自然語(yǔ)言、圖形、圖像有能力，具有理解和推理能力，具有知識(shí)獲取、知識(shí)更新能力。新機(jī)器要繼承原有機(jī)器指令系統(tǒng)中的全部指令，使得同一系列計(jì)算機(jī)的指令系統(tǒng)越來(lái)越復(fù)雜，這些計(jì)算機(jī)被稱為“復(fù)雜指令系統(tǒng)計(jì)算機(jī)”，簡(jiǎn)稱CISC。莫克利（John Mauchly）和工程師普雷斯伯?？颂兀≒resperEckert）領(lǐng)導(dǎo)研制成功，取名為ENIAC（Electronic Numerical Integrator And Calculator）。日趨龐大的指令系統(tǒng)降低了系統(tǒng)性能，而機(jī)器中最常常的是一些簡(jiǎn)單指令，這些指令僅占指令系統(tǒng)中指令總數(shù)的20%，1975年提出了精簡(jiǎn)指令系統(tǒng)，簡(jiǎn)稱RISC。研制朝兩個(gè)方向努力：①創(chuàng)建非馮數(shù)據(jù)處理：利用計(jì)算機(jī)對(duì)所獲取的信息進(jìn)行記錄、整理、加工、存儲(chǔ)和傳輸?shù)取? 由信息高速公路熱引發(fā)的全球信息化浪潮在現(xiàn)代，能源、材料與信息是社會(huì)發(fā)展的三大支柱。1993年美國(guó)國(guó)家信息基礎(chǔ)設(shè)施計(jì)劃提出了一個(gè)具有大容量、高速度的電子數(shù)據(jù)傳遞系統(tǒng)。金卡工程即電子貨幣工程，是金融電子化和商業(yè)流通現(xiàn)代化的重要組成部分。當(dāng)然,高級(jí)語(yǔ)言,人雖然容易懂,但計(jì)算機(jī)又不懂,對(duì)高級(jí)語(yǔ)言進(jìn)行翻譯,比如面向?qū)ο蟮恼Z(yǔ)言,可視化的語(yǔ)言,網(wǎng)絡(luò)開發(fā)語(yǔ)言等.,在有些領(lǐng)域,低級(jí)語(yǔ)言更有用武之處,如控制領(lǐng)域,這正是低級(jí)語(yǔ)言的特點(diǎn).上述語(yǔ)言都稱為形式化的語(yǔ)言,與之相對(duì)應(yīng)的是自然語(yǔ)言,?,計(jì)算機(jī)只有執(zhí)行程序才能夠工作,語(yǔ)言就是用于編出程序來(lái),指揮計(jì)算機(jī)的工作,沒(méi)有程序,計(jì)算機(jī)能把人的語(yǔ)言翻譯成程序,否則,改變現(xiàn)在計(jì)算機(jī)的運(yùn)行模式,那樣的話,計(jì)算機(jī)就要真正的實(shí)現(xiàn)更新?lián)Q代了.第1課 認(rèn)識(shí)PASCAL語(yǔ)言請(qǐng)參閱《全國(guó)信息學(xué)奧林匹克聯(lián)賽培訓(xùn)教程（一）》P87第5章 程序設(shè)計(jì)語(yǔ)言 程序設(shè)計(jì)語(yǔ)言基礎(chǔ) 程序設(shè)計(jì)語(yǔ)言的組成PASCAL語(yǔ)言是一種高級(jí)語(yǔ)言。 VAR(*第5行：變量說(shuō)明*)r, l, s: real。write(r,l,s)。說(shuō)明部分可以包括多種類型的說(shuō)明。一個(gè)PASCAL程序由程序首部和分程序組成，分程序通常由說(shuō)明部分和語(yǔ)句部分組成（在特殊情況下可以沒(méi)有說(shuō)明部分）。 BEGINread(r)。 END.程序首部分程序說(shuō)明部分語(yǔ)句部分上例的第二行，大括號(hào){ }中的內(nèi)容，稱為注釋。例 L0_001 輸入三角形底邊和高，求該三角形的面積。PASCAL的標(biāo)準(zhǔn)數(shù)據(jù)類型數(shù)據(jù)類型類型標(biāo)識(shí)符適用的數(shù)據(jù)舉例實(shí)型real有小數(shù)表示法和指數(shù)表示法（科學(xué)表示法），+2（=102=）整型integer包括正、負(fù)整數(shù)和零25，32，0字符型char單個(gè)的字符‘A’，’b’，’C’，’0’，’4’，’+’布爾型boolean只有現(xiàn)個(gè)值，即true（真）和false（假）實(shí)型（real）實(shí)型是最常用的數(shù)據(jù)類型。例如：25，32，0。所有字符都有一個(gè)序號(hào)與之對(duì)應(yīng)。用于布爾量的運(yùn)算有布爾運(yùn)算（或稱邏輯運(yùn)算），它們是：AND（與），OR（或），NOT（非），基本運(yùn)算規(guī)則如下：運(yùn)算結(jié)果0 AND 0假 AND 假0false假0 AND 1假 AND 真0false假1 AND 0真 AND 假0false假1 AND 1真 AND 真1true真0 OR 0假 OR 假0false假0 OR 1假 OR 真1true真1 OR 0真 OR 假1true真1 OR 1真 OR 真1true真NOT 0NOT 假1true真NOT 1NOT 真0false假例L0002 寫出下列PASCAL語(yǔ)句的執(zhí)行結(jié)果 A0:=(15)。 writeln(A1 AND A0)。 writeln(A1 or A0)。而5x，xy，α，π，ε。在PASCAL語(yǔ)言中規(guī)定，表達(dá)式按下列運(yùn)算優(yōu)先規(guī)則計(jì)算：所有括起來(lái)的子表達(dá)式必須先計(jì)算，且子表達(dá)式必須從里到外計(jì)算；在同一子表達(dá)式中的運(yùn)算符按下列次序計(jì)算：①函數(shù)；②NOT；③AND，*，/，DIV，MOD；④OR，+，；⑤，=，=，=，在同一個(gè)子表達(dá)式中，同一優(yōu)先級(jí)的運(yùn)算按從左到右的次序進(jìn)行。例如：write(sum,ave)將在屏幕或打字機(jī)上輸出sum和ave的值。為了將輸出結(jié)果打印在不同的行上，可以利用writeln語(yǔ)句。若在write語(yǔ)句中不加場(chǎng)寬說(shuō)明，則按標(biāo)準(zhǔn)場(chǎng)寬輸出。+02 13257Afalse布爾型5位整型12位實(shí)型16位字符型1位例L2_2 已知三角形的兩邊及夾角，求第三邊及面積。 CONST PI=。 c:=sqrt(a*a+b*b2*a*b*cos(alfa))。PROGRAM L2_3。 writeln。 readln(ch)。,sch:39。若在圓環(huán)內(nèi)，輸出true，若在圓環(huán)外，；輸出false。xy120“（x，y）若在圓環(huán)內(nèi)”的表達(dá)式：(x2+y2≥12)且(x2+y2≤22) PROGRAM L2_4。 write(39。 write(39。 bool:=(x*x+y*y=1) and (x*x+y*y=4)。球表面積計(jì)算公式s=4πR2 ，球體積計(jì)算公式（其中R指球半徑）?！瓵’，’3’，3，true，false，12/3，12 DIV 3，53，53，105 MOD 10，round(17/3，trunc(17/3)，sqrt(ord(‘2’)ord(‘0’))， sqr(ord(‘2’)ord(‘0’))，(53) AND (53)，chr(67)XT2_3 將下列數(shù)學(xué)表達(dá)式表示成PASCAL表達(dá)式(1)(a2+b2)二次方程為：ax2+bx+c=0XT2_7 求圖形的表面積與體積。若在斜線區(qū)域內(nèi)，輸出true，否則輸出false。每個(gè)漢字（或字母用7行5列字符描述。在這種情況下，必須根據(jù)某個(gè)變量或表達(dá)式的值作出判定，以決定執(zhí)行哪些語(yǔ)句和跳過(guò)哪些語(yǔ)句不執(zhí)行。在條件為真時(shí)，執(zhí)行語(yǔ)句1，否則（條件為假）執(zhí)行語(yǔ)句2。例如不超過(guò)50kg。設(shè)托運(yùn)費(fèi)為pay。根據(jù)weight的大小選擇不同的公式計(jì)算pay。如果小于等于50應(yīng)執(zhí)行算法步驟22，否則應(yīng)執(zhí)行算法步驟23。 BEGIN write(39。 IF weight=50 THEN pay:=*weight ELSE pay:=*50+*(weight50)。即條件語(yǔ)句1假真IF （條件） THEN （語(yǔ)句）在條件為真時(shí)，執(zhí)行THEN后的語(yǔ)句。 VAR a,b,c:real。 read(a)。 read(b)。 read(c)。ZuiDaShu:39。一般形式為：BEGIN （語(yǔ)句1）； （語(yǔ)句2）； … （語(yǔ)句n）END一個(gè)復(fù)合語(yǔ)句從外部看來(lái)，相當(dāng)于一個(gè)語(yǔ)句。 BEGIN write(39。 write(39。 IF xy THEN BEGIN temp:=x。x=39。此時(shí)稱為IF語(yǔ)句的嵌套（或稱為復(fù)合IF語(yǔ)句）。有時(shí)IF語(yǔ)句可能會(huì)有兩種不同的理解。因此，上面的語(yǔ)句肯定是按第一種理解，即ELSE與后一個(gè)THEN配對(duì)。CASE語(yǔ)句（或稱情況語(yǔ)句）的一般形式是CASE （表達(dá)式） OF （值表1）：（語(yǔ)句1）； （值表2）：（語(yǔ)句2）； …… （值表n）：（語(yǔ)句n）END在CASE語(yǔ)句頭上的表達(dá)式必須是有序類型（整型、字符型、布爾型以及后面要介紹的枚舉型、子界型）。例L3_5 輸入年、月，輸出該月有幾天。它們均為整數(shù)。readln(year)。 4,6,9,11:day:=30。討論：設(shè)兩個(gè)運(yùn)算量為x和y，一個(gè)運(yùn)算符為oper，運(yùn)算結(jié)果為result。PROGRAM XT3_1。x=?39。 IF x0 THEN z:=PI/2*x+3 ELSE IF x=0 THEN z:=0 ELSE z:=PI/2*x5。, y=39。編寫一程序，讀入貨物價(jià)格，計(jì)算并輸出稅金。XT3_6 輸入二次方程的3個(gè)系數(shù)a、b、c，計(jì)算二次方程的根。XT3_7 輸入x、y，根據(jù)所處象限，用相應(yīng)公式計(jì)算z。應(yīng)用CASE語(yǔ)句編程序。 BEGINread(r)。 END.（ ）（ ）（ ）完成下面有關(guān)數(shù)據(jù)類型的表數(shù)據(jù)類型類型標(biāo)識(shí)符舉2個(gè)例子實(shí)型integer字符型boolean請(qǐng)將下列實(shí)型數(shù)據(jù)用另一種表示法表示小數(shù)表示法科學(xué)表示法小數(shù)表示法科學(xué)表示法例：+11e+2+1+2在Pascal中，有六個(gè)算術(shù)運(yùn)算符，它們是________________________________________。優(yōu)先級(jí)（ ）括號(hào)（）函數(shù)NOTAND*/DIVMODOR+－===優(yōu)先級(jí)（ ）填出下面Pascal詞匯所屬類別（在“語(yǔ)句、函數(shù)、運(yùn)算符、數(shù)據(jù)類型、符號(hào)”中選擇其一）序號(hào)詞匯類別功能序號(hào)詞匯類別功能1:=30sqr平方2abs絕對(duì)值31sqrt開方3AND邏輯運(yùn)算符“與”32succ后繼字符4BEGIN分程序開始33THEN條件語(yǔ)句IF…THEN…ELSE的一部分5boolean34TOFOR循環(huán)語(yǔ)句的一部分6CASE分支結(jié)構(gòu)語(yǔ)句35trunc去掉小數(shù)部分，取其整