【正文】 5_001。n!=39。 FOR i:=1 TO n DO sum:=sum*i。 BEGIN read(n)。 writeln(‘s=’,s) END.T75_014 輸入10個任意整數(shù)，求它們的平均值T75_015 按正序和反序輸出26個英文字母T75_016 輸入20個整數(shù)，輸出其中最大數(shù)T75_017 輸入20個整數(shù)，統(tǒng)計其中正、負和零的個數(shù)T75_001,T75_012~T75_017共七題的答案：PROGRAM T75_012。 s:=s+a。 BEGIN s:=0。 writeln(‘s=’,s) END.T75_012 計算n!（n!=123…n）T75_013 輸入10個任意整數(shù)，求它們的和PROGRAM T75_001。 BEGIN s:=0。當n=2 s=s+n=1+2=3當n=3 s=s+n=3+3=6當n=4 s=s+n=6+4=10當n=5 s=s+n=10+5=15當n=6 s=s+n=15+6=21當n=7 s=s+n=21+7=28當n=8 s=s+n=28+8=36當n=9 s=s+n=36+9=45當n=10 s=s+n=45+10=55T75_001 計算1+2+3+…+10PROGRAM T75_001。在PASCAL中，實現(xiàn)循環(huán)程序設計的主要語句有FOR語句、WHILE語句和REPEAT語句。循環(huán)結構程序設計可以幫助我們有效地解決這一難題。盡管計算機的運算速度很快，然而要把這些大量類同的計算處理的每一步都寫成語句，并輸入計算機中，其工作量是相當大的。b+3y=A2（3） （4）下列符號中，能作標識符的是：AI, Wang, 4D4g, IF, MAX, ABS, PI, SIN, ABS_1, Begin寫出以下表達式的值及類型(1)10/2+2重復控制結構（循環(huán)結構）循環(huán)結構（或稱重復結構）是程序中的一個基本結構，在解許多問題中是很有用的。將下列代數(shù)式寫成Pascal的表達式（1）4[（134）247。29round四舍五入，取其整數(shù)在第1題例中，語句write與writeln有何不同__________________。優(yōu)先級（ ）括號（）函數(shù)NOTAND*/DIVMODOR+－===優(yōu)先級（ ）填出下面Pascal詞匯所屬類別（在“語句、函數(shù)、運算符、數(shù)據(jù)類型、符號”中選擇其一）序號詞匯類別功能序號詞匯類別功能1:=30sqr平方2abs絕對值31sqrt開方3AND邏輯運算符“與”32succ后繼字符4BEGIN分程序開始33THEN條件語句IF…THEN…ELSE的一部分5boolean34TOFOR循環(huán)語句的一部分6CASE分支結構語句35trunc去掉小數(shù)部分，取其整數(shù)7char36VAR說明變量8chr取字符37WHILE循環(huán)語句WHILE9CONST定義常量38sin10DIV整數(shù)商39cos11DOWHILE DO語句的一部分40arctan12ELSE條件語句IF…THEN…ELSE的一部分41+13END結束分程序4214exp以e為底的指數(shù)43*15FORFOR循環(huán)語句44/16GOTO4517IFIF條件語句46=18integer47=19ln以e為底的自然對數(shù)48=20MOD取余，整除后的余數(shù)4921NOT邏輯運算符“非”5022odd奇函數(shù)，判斷是否為奇數(shù)51write23OF分支結構語句CASE…OF的一部分52writeln24OR邏輯運算符“或”53read25ord取序號54readln26pred前導字符55:27PROGRAM程序首部5639。有三個邏輯運算符，它們是________________________________________。 END.（ ）（ ）（ ）完成下面有關數(shù)據(jù)類型的表數(shù)據(jù)類型類型標識符舉2個例子實型integer字符型boolean請將下列實型數(shù)據(jù)用另一種表示法表示小數(shù)表示法科學表示法小數(shù)表示法科學表示法例：+11e+2+1+2在Pascal中，有六個算術運算符，它們是________________________________________。s:=PI*r*r。 BEGINread(r)。 CONSTPI=。應用CASE語句編程序。z的計算公式同XT3_7題，要求用CASE語句編程序。XT3_7 輸入x、y，根據(jù)所處象限，用相應公式計算z。二次方程如下：ax2+bx+c=0z=lnx+lnysinx+sinye2x+e3xtan(x+y)Ⅰ象限Ⅱ象限Ⅲ象限Ⅳ象限提示：PASCAL不能表示復數(shù)。XT3_6 輸入二次方程的3個系數(shù)a、b、c，計算二次方程的根。XT3_4 輸入3個數(shù)，將其中最小數(shù)輸出。編寫一程序，讀入貨物價格，計算并輸出稅金。, z=39。, y=39。x=39。 IF x0 THEN z:=PI/2*x+3 ELSE IF x=0 THEN z:=0 ELSE z:=PI/2*x5。 read(x)。x=?39。 VAR x,y,z:real。PROGRAM XT3_1。x、y和result說明為實型。討論：設兩個運算量為x和y，一個運算符為oper，運算結果為result。 writeln(‘year=’,year,’,month=’,month,’,days=’days) END.例L3_6 輸入兩個運算量及一個運算符，輸出運算結果。 4,6,9,11:day:=30。readln(month)。readln(year)。 VAR year,month,days:integer。它們均為整數(shù)。年號能被4整除，但不能被100整除，或者年號能被400整除的年均是閏年。例L3_5 輸入年、月，輸出該月有幾天。表達式所有可能的值必須在值表中出現(xiàn)，且每個值只能出現(xiàn)一次。CASE語句（或稱情況語句）的一般形式是CASE （表達式） OF （值表1）：（語句1）； （值表2）：（語句2）； …… （值表n）：（語句n）END在CASE語句頭上的表達式必須是有序類型（整型、字符型、布爾型以及后面要介紹的枚舉型、子界型）。寫成IF（條件1）THEN BEGIN IF（條件2） THEN（語句1） ENDELSE（語句2） CASE語句CASE語句是實現(xiàn)選擇結構程序設計的另一種語句。因此，上面的語句肯定是按第一種理解，即ELSE與后一個THEN配對。但是，我們也可以認為ELSE與前一個THEN配對，其流程圖如圖3_8(2)所示。有時IF語句可能會有兩種不同的理解。例L3_4 輸入某學生成績，根據(jù)成績的好壞輸出相應評語。此時稱為IF語句的嵌套（或稱為復合IF語句）。,y=39。x=39。 y:=temp END。 IF xy THEN BEGIN temp:=x。)。 write(39。)。 BEGIN write(39。解：PROGRAM L3_3。一般形式為：BEGIN （語句1）； （語句2）； … （語句n）END一個復合語句從外部看來，相當于一個語句。復合語句是一個以BEGIN開始，以END結束的語句。ZuiDaShu:39。 IF ac THEN a:=c。 read(c)。c=?39。 read(b)。b=?39。 read(a)。a=?39。 VAR a,b,c:real。例L3_2 讀入三個數(shù)，找出并打印其中的最大數(shù)。即條件語句1假真IF （條件） THEN （語句）在條件為真時，執(zhí)行THEN后的語句。pay=39。 IF weight=50 THEN pay:=*weight ELSE pay:=*50+*(weight50)。)。 BEGIN write(39。 PROGRAM L3_1。如果小于等于50應執(zhí)行算法步驟22，否則應執(zhí)行算法步驟23。其中第2步需求精。根據(jù)weight的大小選擇不同的公式計算pay。下面給出算法。設托運費為pay。現(xiàn)輸入托運行李重量，要求計算并輸出托運費。例如不超過50kg。在流程圖中用菱形框表示要執(zhí)行的判定，其余步驟用矩形框表示，箭頭表示執(zhí)行的順序。在條件為真時，執(zhí)行語句1，否則（條件為假）執(zhí)行語句2。PASCAL中有兩個語句可實現(xiàn)選擇結構：IF語句（條件語句）和CASE語句（情況語句） IF語句 IF語句的兩種形式條件語句2語句1假真IF語句又稱如果語句（或稱條件語句）。在這種情況下，必須根據(jù)某個變量或表達式的值作出判定，以決定執(zhí)行哪些語句和跳過哪些語句不執(zhí)行。xy22220XT2_9圖***** * ****** * ************************ * **XT2_11圖第3課 選擇結構程序設計（20071224）請參閱《全國信息學奧林匹克聯(lián)賽培訓教程（一）》P101 選擇結構 引言通常，計算機按在程序中書寫的順序執(zhí)行語句。每個漢字（或字母用7行5列字符描述。例如輸入127，輸出應為721。若在斜線區(qū)域內，輸出true，否則輸出false。XT2_8 輸入三個字符，然后按輸入字符次序輸出這三個字符，再輸出每個字符的序號，最后按與輸入字符相反的次序輸出這三個字符。二次方程為：ax2+bx+c=0XT2_7 求圖形的表面積與體積?？衫孟铝泄接嬎?。‘A’，’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ù)學表達式表示成PASCAL表達式(1)(a2+b2)設初速度為v0，加速度為a，時間為t，末速度為vt，路程為s，平均速度為vave，求末速度公式：vt=v0+at，路程的公式：，平均速度為vave=XT1_5 讀入攝氏溫度c，將它轉換成華氏溫度輸出，寫出程序。球表面積計算公式s=4πR2 ，球體積計算公式（其中R指球半徑）。 END.習題XT1_1 判斷下列標識符，哪些是合法的？哪些是非法的？x3，3x，a17，p5q，π，β，ε，abcd，x2，XT1_2 輸入三個數(shù)，計算并輸出它們的平均值以及三個數(shù)的乘積，寫出程序。 bool:=(x*x+y*y=1) and (x*x+y*y=4)。)。 write(39。)。 write(39。 bool:boolean。xy120“（x，y）若在圓環(huán)內”的表達式：(x2+y2≥12)且(x2+y2≤22) PROGRAM L2_4。討論：如圖所示，若下式1≤