【正文】 ND A1)。 writeln(A0 or A1)。 writeln(A1 or A1)。x，y，max，min，sum，a15，a3b7都是合法的標(biāo)識(shí)符。標(biāo)識(shí)符的長(zhǎng)度一般不要超過(guò)8個(gè)字符。表達(dá)式和運(yùn)算符運(yùn)算符+ ， ， * ， /AND，OR，NOT，，，表達(dá)式就是將數(shù)據(jù)和運(yùn)算符結(jié)合使用，組成一組有意義的運(yùn)算式。下面是幾個(gè)PASCAL表達(dá)式的例子：例L0_003數(shù)學(xué)表達(dá)式PASCAL表達(dá)式b24acb*b4*a*c(a+b)/(c+d)(a+b)/c+da*b/(c*d)或a*b/c/da2+bx+c常用的函數(shù)詞匯功能abs絕對(duì)值sqr平方sqrt開(kāi)方ord取序號(hào)參數(shù)為字符型變量，結(jié)果為該字符的序號(hào)（整型）chr取字符參數(shù)為整型變量，結(jié)果為以參數(shù)為序號(hào)的字符pred前導(dǎo)字符succ后繼字符odd奇函數(shù)，判斷是否為奇數(shù)參數(shù)為整型變量，結(jié)果為布爾型trunc去掉小數(shù)部分，取其整數(shù)round四舍五入，取其整數(shù)exp以e為底的指數(shù)ln以e為底的自然對(duì)數(shù)函數(shù)的格式例：開(kāi)方函數(shù)，在PASCAL中可表示為sqrt(2)語(yǔ)句賦值語(yǔ)句（:=）讀語(yǔ)句（read，readln）當(dāng)實(shí)型數(shù)據(jù)和字符型數(shù)據(jù)一起讀入時(shí)，要先讀字符型數(shù)據(jù)。用于將計(jì)算結(jié)果通過(guò)屏幕或打字機(jī)輸出給人看。它的一般形式是write(輸出表)其中輸出表是一些由逗號(hào)分開(kāi)的輸出項(xiàng)。例如將上面的語(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é)果，較前面清楚。它的作用是在印出輸出表的最后一個(gè)輸出項(xiàng)后，結(jié)束當(dāng)前輸出行，使得下一個(gè)write（或writeln）語(yǔ)句從下一個(gè)新行的開(kāi)頭（左端）輸出。writeln(x+y=’,x+y,’x*y=’,x*y)輸出結(jié)果為：x=2 y=3x+y=5 x*y=6write語(yǔ)句可以輸出實(shí)型、整型、字符型、布爾型值，也可以輸出字符串。在這里，場(chǎng)寬是指輸出值的位數(shù)。不同計(jì)算機(jī)系統(tǒng)的標(biāo)準(zhǔn)場(chǎng)寬規(guī)定可能不同。 設(shè)三角形的兩邊及夾角分別為a，b，α，第三邊為c，面積為s。角度轉(zhuǎn)弧度的公式為：弧度=角度PROGRAM XT2_2。 VAR a,b,alfa,c,s:real。 alfa:=alfa*PI/180。 s:=1/2*a*b*sin(alfa)。 END.例L2_3 輸入一個(gè)字符，求其序號(hào)、前導(dǎo)（即前一字符）、后繼（即后一字符）。 VAR ch,pch,sch:char。 BEGIN writeln。 write(39。)。 write(39。,pred(ch),39。,succ(ch),39。,ord(ch)) END.例L2_4 輸入x，y。圓環(huán)如圖所示。設(shè)布爾變量bool，當(dāng)x，y在圓環(huán)內(nèi)時(shí)，讓它取值為true，否則取值為false。 VAR x,y:real。 BEGIN writeln。x=?39。 readln(x)。y=?39。 readln(y)。 write(bool)。XT1_3 已知地球半徑為6371km，計(jì)算并輸出地球的表面積和體積，寫出程序。XT1_4 已知?jiǎng)蚣铀龠\(yùn)動(dòng)的初速度為10m/s，加速度為2m/s2，求20s以后的速度，20s內(nèi)走過(guò)的路程及平均速度，寫出程序。轉(zhuǎn)換公式：XT2_1 下列數(shù)據(jù)哪些是整數(shù)？哪些是實(shí)數(shù)？哪些是非法的數(shù)？256，1e+06，e10，785，e5，.5，15.，0，25e，XT2_2 確定下列各常數(shù)、表達(dá)式的類型和值，表達(dá)式類型是指表達(dá)式值（結(jié)果）的類型。y4 (2)sin2(x+)+3cos(2x+4)+tan1x (3)u0(1+)(4) (5) (6)(7) (8)|3exln(1+x)| (9) (10)XT2_4 寫一程序讀入三角形的三個(gè)邊a，b，c，計(jì)算并打印三角形的面積S。其中XT2_5 按下列公式計(jì)算和打印y值rh1h2XT2_7圖XT2_6 輸入二次方程的系數(shù)a，b，c（輸入數(shù)據(jù)的選取應(yīng)保證二次方程為實(shí)根），計(jì)算并輸出二次方程的兩個(gè)實(shí)根。其中r，h1，h2的值由鍵盤讀入。XT2_9 由鍵盤輸入兩組x，y值，由程序根據(jù)它們是否在示意圖中的斜線區(qū)域內(nèi)，輸出不同的值。XT2_10 輸入一個(gè)三位整數(shù)，將它們反向輸出。XT2_11 輸出你的中文（或英文）名字。例如王平輸出如圖所示。然而，在許多情況下，語(yǔ)句執(zhí)行的順序依賴于輸入數(shù)據(jù)或中間運(yùn)算結(jié)果。我們稱這種程序結(jié)構(gòu)為選擇結(jié)構(gòu)（或稱判定結(jié)構(gòu)）。它的一般形式是IF （條件） THEN （語(yǔ)句1） ELSE （語(yǔ)句2）其中“條件”實(shí)際上是一個(gè)布爾表達(dá)式，它的值可以是真（true）或假（false）?？梢岳昧鞒虉D來(lái)描述選擇結(jié)構(gòu)。例L3_1 火車托運(yùn)行李，要根據(jù)行李的重量按不同標(biāo)準(zhǔn)收費(fèi)。若超過(guò)50kg。解：討論：設(shè)托運(yùn)行李重量為weight，該問(wèn)題要求根據(jù)weight是否超過(guò)50kg，按不同公式計(jì)算出托運(yùn)費(fèi)。weight和pay均為實(shí)型。一級(jí)算法讀入weight的值。輸出pay。根據(jù)題意，可以寫出計(jì)算pay的公式如下：weight≤50weight50二級(jí)求精weight≤50pay=50+(weight50) pay=weight假真L3_1圖第2步 計(jì)算pay21 如果weight≤5022 則pay=weight23 否則pay=50+（weight50）以上求精步驟要求首先判斷weight是否小于等于50。即算法步驟22和23不是同時(shí)執(zhí)行的，需根據(jù)情況選擇其一執(zhí)行。 VAR weight,pay:real。weight=39。 readln(weight)。 writeln(39。,pay) END.除了上面給出的IF語(yǔ)句形式外，PASCAL中還有另外一種IF語(yǔ)句形式。在條件為假時(shí)，不執(zhí)行THEN后的語(yǔ)句，在兩種情況下的后繼語(yǔ)句都是IF語(yǔ)句的下一個(gè)語(yǔ)句。解：PROGRAM L3_2。 BEGIN write(39。)。 write(39。)。 write(39。)。 IF ab THEN a:=b。 writeln(39。,a) END. 復(fù)合語(yǔ)句在IF語(yǔ)句中，跟在THEN或ELSE后的語(yǔ)句可能不止一個(gè)，這時(shí)要用到復(fù)合語(yǔ)句的概念。在BEGIN與END之間可以包括若干個(gè)語(yǔ)句，每個(gè)語(yǔ)句之間以分號(hào)分開(kāi)。例L3_3 讀兩個(gè)數(shù)，將大數(shù)存于x，小數(shù)存于y。 VAR x,y,temp:real。x=?39。 readln(x)。y=?39。 readln(y)。 x:=y。 writeln(39。,x:8:2,39。,y:8:2) END. 復(fù)合IF語(yǔ)句在IF語(yǔ)句中，THEN或ELSE后的語(yǔ)句本身也可能是IF語(yǔ)句。條件1語(yǔ)句1假真條件2假真語(yǔ)句2語(yǔ)句3例如語(yǔ)句IF（條件1） THEN（語(yǔ)句1） ELSE IF（條件2） THEN（語(yǔ)句2） ELSE（語(yǔ)句3）就是一個(gè)復(fù)合IF語(yǔ)句，在它的ELSE后又是一個(gè)IF語(yǔ)句。如果成績(jī)?cè)?0分以上，輸出評(píng)語(yǔ)：優(yōu)秀（outstanding）；如果成績(jī)?cè)?0到90之間，輸出評(píng)語(yǔ)：良好（satisfactory）；如果成績(jī)不足60分，輸出評(píng)語(yǔ)：不及格（unsatisfactory）。例如語(yǔ)句：IF （條件1） THEN IF （條件2） THEN （語(yǔ)句1） ELSE （語(yǔ)句2）我們可以認(rèn)為ELSE與后一個(gè)THEN配對(duì)，其流程圖如圖3_8(1)所示。條件1語(yǔ)句1假真條件2假真語(yǔ)句2圖3_8(1)條件1語(yǔ)句1假真條件2假真語(yǔ)句2圖3_8(2)為了避免產(chǎn)生不同的理解，PASCAL系統(tǒng)規(guī)定ELSE總是與同一層前面最靠近它的，還沒(méi)有ELSE與之配對(duì)的THEN配對(duì)。如果要求按第二種理解執(zhí)行流程圖，可以通過(guò)在IF語(yǔ)句中加BEGIN、END的辦法來(lái)實(shí)現(xiàn)。它的使用有時(shí)比IF語(yǔ)句來(lái)得簡(jiǎn)單、直觀。值表是一些由逗號(hào)分開(kāi)的常數(shù)。如果當(dāng)前表達(dá)式的值在某個(gè)值表i中出現(xiàn)，則該程序只執(zhí)行對(duì)應(yīng)該值表i的語(yǔ)句，然后執(zhí)行整個(gè)CASE語(yǔ)句后的下一語(yǔ)句。討論：每年的12月，每月有31天；11月，每月有30天；2月閏年有29天，平年有28天。用year、month、days分別表示年、月、每月天數(shù)。閏年的條件可以寫成如下的布爾表達(dá)式：(year MOD 4 = 0) AND (year MOD 100 0) OR (year MOD 400 = 0)PROGRAM L3_5。 BEGIN write(‘year=?’)。 write(‘month=?’)。CASE month OF 1,3,5,7,8,10,12:days:=31。 2:IF(year MOD 4 = 0) AND (year MOD 100 0) OR (year MOD 400 = 0) THEN days:=29 ELSE days:=28 END。這相當(dāng)于計(jì)算器計(jì)算?，F(xiàn)在假定運(yùn)算符只可能是+、*、/，將oper說(shuō)明為字符型。習(xí)題XT3_1 編制程序，根據(jù)輸入的x值，計(jì)算y與z并輸出。 CONST PI=。 BEGIN write(39。)。 IF x= THEN y:=x*x+1 ELSE y:=x*x1。 writeln(39。,x:6:2,39。,y:6:2,39。,z:6:2) END.XT3_2 對(duì)一批貨物征收稅金，價(jià)格在1萬(wàn)元以上的貨物征稅5%，在5000元以上，1萬(wàn)元以下的貨物征稅3%，在1000元以上，5000元以下的貨物征稅2%，1000元以下的貨物免稅。XT3_3 輸入某學(xué)生成績(jī)，若成績(jī)?cè)?5分以上，輸出very good，若成績(jī)?cè)?0分到85分之間，輸出good，若成績(jī)低于60分，輸出no good。XT3_5 輸入3個(gè)字母，按字母表順序從小到大輸出這3個(gè)字母。程序應(yīng)考慮實(shí)根和復(fù)根兩種情形。若為復(fù)根，應(yīng)分別計(jì)算并輸出實(shí)、虛部，在輸出時(shí)將+、與i用字符形式輸出。XT3_8 輸入x、y及象限，計(jì)算z。XT3_9 輸入班號(hào)，輸入該班學(xué)生人數(shù)。班號(hào)919293949596人數(shù)303230303225閱讀學(xué)習(xí)《全國(guó)信息奧林匹克聯(lián)賽培訓(xùn)教程（一）》（信息學(xué)奧林匹克科學(xué)委員會(huì)主編，清華大學(xué)出版社）及網(wǎng)上教案，閱讀要求見(jiàn)下表：閱讀內(nèi)容頁(yè) 碼要求 Pascal程序的一般結(jié)構(gòu)和輸入輸出語(yǔ)句《全國(guó)信息奧林匹克聯(lián)賽培訓(xùn)教程（一）》P94全看 順序結(jié)構(gòu)《全國(guó)信息奧林匹克聯(lián)賽培訓(xùn)教程（一）》P100全看 選擇結(jié)構(gòu)《全國(guó)信息奧林匹克聯(lián)賽培訓(xùn)教程（一）》P101看條件選擇結(jié)構(gòu)P101至P104 運(yùn)算對(duì)象的顯式定義《全國(guó)信息奧林匹克聯(lián)賽培訓(xùn)教程（一）》P116全看 表達(dá)式《全國(guó)信息奧林匹克聯(lián)賽培訓(xùn)教程（一）》P120全看 Pascal的簡(jiǎn)單類型《全國(guó)信息奧林匹克聯(lián)賽培訓(xùn)教程（一）》P121看整型；布爾類型；字符類型；實(shí)數(shù)類型CHH信息學(xué)奧賽培訓(xùn)教案（20071127）全看閱讀后完成下面題目Pascal程序可以分為三個(gè)部分，請(qǐng)將這三個(gè)部分的名稱填入下面括號(hào)中PROGRAM circle(input,output)。 VARr,l,s:real。l:=2*PI*r。write(r,l,s)。有六個(gè)關(guān)系運(yùn)算符，它們是________________________________________。在Pascal中，各種運(yùn)算符的運(yùn)算優(yōu)先規(guī)則如下，請(qǐng)?jiān)谙旅嬷本€上畫一個(gè)箭頭表示運(yùn)算優(yōu)先級(jí)由低到高并在直線上面的括號(hào)內(nèi)填入優(yōu)先級(jí)的高低。28real57。在第1題例中，哪些詞屬于保留字__________________。6] （2）a(md)4247。我們知道，在許多復(fù)雜的問(wèn)題中，常常需要做大量類同的計(jì)算處理。有時(shí)是難以完成的。利用循環(huán)結(jié)構(gòu)程序設(shè)計(jì)，使得我們有可能只編寫少量的語(yǔ)句，讓計(jì)算機(jī)重復(fù)執(zhí)行它許多次，從而完成大量類同的計(jì)算要求。一、FOR語(yǔ)句FOR x：=初值 TO 終值 DO 語(yǔ)句FOR X:= 1 TO 10 DO