【正文】 代社會的影響 計算機應用概述科學計算：利用計算機解決科學研究和工程技術(shù)中所提出的復雜的數(shù)學問題。中間是一些用分號分開的語句。PASCAL規(guī)定：程序中出現(xiàn)的變量必須先說明才能使用。 writeln(A0 AND A1)。用于將計算結(jié)果通過屏幕或打字機輸出給人看。角度轉(zhuǎn)弧度的公式為：弧度=角度PROGRAM XT2_2。)。 BEGIN writeln。轉(zhuǎn)換公式：XT2_1 下列數(shù)據(jù)哪些是整數(shù)？哪些是實數(shù)？哪些是非法的數(shù)？256，1e+06，e10，785，e5，.5，15.，0，25e，XT2_2 確定下列各常數(shù)、表達式的類型和值，表達式類型是指表達式值（結(jié)果）的類型。然而，在許多情況下，語句執(zhí)行的順序依賴于輸入數(shù)據(jù)或中間運算結(jié)果。一級算法讀入weight的值。,pay) END.除了上面給出的IF語句形式外，PASCAL中還有另外一種IF語句形式。)。 readln(x)。如果成績在90分以上，輸出評語：優(yōu)秀（outstanding）；如果成績在60到90之間，輸出評語：良好（satisfactory）；如果成績不足60分，輸出評語：不及格（unsatisfactory）。用year、month、days分別表示年、月、每月天數(shù)。習題XT3_1 編制程序，根據(jù)輸入的x值，計算y與z并輸出。,z:6:2) END.XT3_2 對一批貨物征收稅金，價格在1萬元以上的貨物征稅5%，在5000元以上，1萬元以下的貨物征稅3%，在1000元以上，5000元以下的貨物征稅2%，1000元以下的貨物免稅。 VARr,l,s:real。我們知道，在許多復雜的問題中，常常需要做大量類同的計算處理。 END。 VAR ave:real。s=39。 BEGIN Zheng:=0。在循環(huán)體中通常包括改變布爾表達式值的語句。當描述算法時，可以改變數(shù)據(jù)定義。處于內(nèi)部的循環(huán)叫作內(nèi)循環(huán)，處于外部的循環(huán)叫作外循環(huán)。一開始讓yn=1，當有一個數(shù)能除盡時，讓yn=0表示能除盡，這時i不是素數(shù)；若循環(huán)結(jié)束時，yn仍等于1，表示都除不盡，這時i是素數(shù)。{IF} END。一級算法：讀入一個數(shù)even；判斷even是否為偶數(shù)，如果是偶數(shù)，則繼續(xù)，否則結(jié)束程序；FOR p:=2 TO trunc(even/2)31 q:=evenp32 判斷p是否為素數(shù)（pyn:=1表示p為素數(shù)，pyn:=0表示p不是素數(shù)）33 判斷q是否為素數(shù)（qyn:=1表示q為素數(shù)，qyn:=0表示q不是素數(shù)）34 IF pyn=1 AND qyn=1 THEN writeln(even,’=’,p,’+’,q) 二級求精：read(even)IF even MOD 2=0 THEN 第3步3n:=2WHILE nsqrt(p) DO BEGIN n:=n+1。 WHILE nsqrt(p) DO BEGIN n:=n+1。 END.T75_009 打印楊輝三角形11 11 2 11 3 3 11 4 6 4 1…… ……1 10 45 …… 45 10 1討論：楊輝三角形中，每個數(shù)據(jù)值可以由組合來計算。write(r,l,s)。) read(n)。)。錯誤一：第9行WHILE語句少DO；錯誤二：第12行IF語句中，字符沒有加單引號；錯誤三：第13行，賦值語句不對，應為:=錯誤四：第14行，IF語句中，AND兩邊的邏輯判斷應各自加括號，即（ord(ch)=48） AND （ord(ch)=57）。該問題要求4次計算雙曲正弦函數(shù)，可以將它定義成一個函數(shù)，然后調(diào)用4次，以得到問題的解。一個表達式中可以包括多個函數(shù)調(diào)用。已知三邊長為a、b、c，求三角形面積S公式：，其中第10課 函數(shù)（二）20080421調(diào)用函數(shù)，就是在程序中使用一個函數(shù)。y=39。函數(shù)體由給函數(shù)名sh賦值的語句組成。在表達式中調(diào)用這些函數(shù)是相當簡單的，只需寫出函數(shù)名，并將自變量寫在函數(shù)名后的括號中即可。 FuHao:=0。Wednesday39。 writeln(“San Jiao Xing Mian Ji:”a*h/2:6:1) END.1PROGRAM T65_004。 VARr,l,s:real。 END。 IF even MOD 2=0 THEN BEGIN FOR p:=2 TO trunc(even/2) DO BEGIN q:=evenp。我們這里只是對有限范圍內(nèi)的數(shù)，用計算機加以驗證，不算嚴格證明。 IF counter MOD 5=0 THEN writeln(i) ELSE write(i,39。用反證法證明：假設有大于的數(shù)j能除盡i，則它的商k必小于，且k能除盡i（其商為j）。實現(xiàn)多重循環(huán)結(jié)構(gòu)仍可以用前面講的三種循環(huán)語句。可能一次循環(huán)也沒有不確定，由循環(huán)體后的布爾表達式?jīng)Q定，當值為“真”時結(jié)束循環(huán)。,Ling) END.二、WHILE語句當循環(huán)次數(shù)未知，例如它依賴于某個布爾表達式的值，而此值在循環(huán)執(zhí)行過程中會改變。 writeln(39。 FOR n:=1 TO 10 DO BEGIN read(a)。 FOR n:=1 TO 10 DO s:=s+n。 VAR s,n,a:integer。在第1題例中，哪些詞屬于保留字__________________。XT3_9 輸入班號，輸入該班學生人數(shù)。,x:6:2,39。這相當于計算器計算。如果當前表達式的值在某個值表i中出現(xiàn)，則該程序只執(zhí)行對應該值表i的語句，然后執(zhí)行整個CASE語句后的下一語句。,y:8:2) END. 復合IF語句在IF語句中，THEN或ELSE后的語句本身也可能是IF語句。 VAR x,y,temp:real。)。 readln(weight)。解：討論：設托運行李重量為weight，該問題要求根據(jù)weight是否超過50kg，按不同公式計算出托運費。XT2_11 輸出你的中文（或英文）名字。XT1_3 已知地球半徑為6371km，計算并輸出地球的表面積和體積，寫出程序。設布爾變量bool，當x，y在圓環(huán)內(nèi)時，讓它取值為true，否則取值為false。 BEGIN writeln。不同計算機系統(tǒng)的標準場寬規(guī)定可能不同。表達式和運算符運算符+ ， ， * ， /AND，OR，NOT，，，表達式就是將數(shù)據(jù)和運算符結(jié)合使用，組成一組有意義的運算式。且false的序號為0，true的序號為1。程序的書寫格式：PROGRAM寫在最左邊頂格；注釋的大括號{、和CONST、VAR、BEGIN、END等語句上下對齊，且它們比PROGRAM向右移兩個字符；各個語句和程序語句也是上下對齊，它們比第2點中的各語句又向右移兩個字符；使用大寫字母的語句：PROGRAM、CONST、VAR、BEGIN、END；使用大寫字母的標識符：常量標識符。分程序一般由說明部分和語句部分構(gòu)成。金關(guān)工程是金橋工程的起步工程之一。研制中的第五代計算機，是一種智能計算機，具有自動識別自然語言、圖形、圖像有能力，具有理解和推理能力，具有知識獲取、知識更新能力。日趨龐大的指令系統(tǒng)降低了系統(tǒng)性能，而機器中最常常的是一些簡單指令，這些指令僅占指令系統(tǒng)中指令總數(shù)的20%，1975年提出了精簡指令系統(tǒng)，簡稱RISC。1993年美國國家信息基礎設施計劃提出了一個具有大容量、高速度的電子數(shù)據(jù)傳遞系統(tǒng)。write(r,l,s)。 END.程序首部分程序說明部分語句部分上例的第二行，大括號{ }中的內(nèi)容，稱為注釋。所有字符都有一個序號與之對應。而5x，xy，α，π，ε。若在write語句中不加場寬說明，則按標準場寬輸出。PROGRAM L2_3。若在圓環(huán)內(nèi)，輸出true，若在圓環(huán)外，；輸出false。 bool:=(x*x+y*y=1) and (x*x+y*y=4)。若在斜線區(qū)域內(nèi)，輸出true，否則輸出false。例如不超過50kg。 BEGIN write(39。 read(a)。一般形式為：BEGIN （語句1）； （語句2）； … （語句n）END一個復合語句從外部看來，相當于一個語句。x=39。CASE語句（或稱情況語句）的一般形式是CASE （表達式） OF （值表1）：（語句1）； （值表2）：（語句2）； …… （值表n）：（語句n）END在CASE語句頭上的表達式必須是有序類型（整型、字符型、布爾型以及后面要介紹的枚舉型、子界型）。 4,6,9,11:day:=30。 IF x0 THEN z:=PI/2*x+3 ELSE IF x=0 THEN z:=0 ELSE z:=PI/2*x5。XT3_7 輸入x、y，根據(jù)所處象限，用相應公式計算z。優(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分支結(jié)構(gòu)語句35trunc去掉小數(shù)部分，取其整數(shù)7char36VAR說明變量8chr取字符37WHILE循環(huán)語句WHILE9CONST定義常量38sin10DIV整數(shù)商39cos11DOWHILE DO語句的一部分40arctan12ELSE條件語句IF…THEN…ELSE的一部分41+13END結(jié)束分程序4214exp以e為底的指數(shù)43*15FORFOR循環(huán)語句44/16GOTO4517IFIF條件語句46=18integer47=19ln以e為底的自然對數(shù)48=20MOD取余，整除后的余數(shù)4921NOT邏輯運算符“非”5022odd奇函數(shù)，判斷是否為奇數(shù)51write23OF分支結(jié)構(gòu)語句CASE…OF的一部分52writeln24OR邏輯運算符“或”53read25ord取序號54readln26pred前導字符55:27PROGRAM程序首部5639。 BEGIN s:=0。 END.PROGRAM T75_001。,ave:6:2) END.PROGRAM T75_013。 FOR i:=1 TO 19 DO BEGIN read(n)。 Fu Shu You: 39。…ch:char。問題解的描述在對問題有了清楚的分析后，可以仔細地構(gòu)造求解步驟——算法。下面介紹的是其中一種辦法。 IF i MOD n=0 THEN yn:=0。而真正的哥德巴赫猜想是：對任一充分大的偶數(shù)even，可以找到兩個素數(shù)p、q。Please input a even:39。,p,39。（5）盡可能多地寫出你知道的函數(shù)名稱及功能（