信息學(xué)奧林匹克競(jìng)賽培訓(xùn)教案

1、信息學(xué)奧林匹克競(jìng)賽培訓(xùn)教案(PASCAL語(yǔ)言)第1章 計(jì)算機(jī)的發(fā)展及應(yīng)用1.1 計(jì)算機(jī)發(fā)展簡(jiǎn)史 第一臺(tái)電子計(jì)算機(jī)的誕生1946年，世界上第一臺(tái)數(shù)字式電子計(jì)算機(jī)由美國(guó)賓夕法尼亞大學(xué)的物理學(xué)家約翰·莫克利（John Mauchly）和工程師普雷斯伯·埃克特（PresperEckert）領(lǐng)導(dǎo)研制成功，取名為ENIAC（Electronic Numerical Integrator And Calculator）。它可以在1秒進(jìn)行5000次加減運(yùn)算，3毫秒便可以進(jìn)行一次乘法運(yùn)算，能存儲(chǔ)20個(gè)字長(zhǎng)為10位的十進(jìn)制數(shù)。 計(jì)算機(jī)發(fā)展的幾個(gè)階段第一代（19461958）第二代（195819

2、64）第三代（19641975）第四代（1975至今）主要電子器件電子管晶體管中小規(guī)模集成電路大規(guī)模/超大規(guī)模集成電路內(nèi)存汞延遲線磁芯存儲(chǔ)器半導(dǎo)體存儲(chǔ)器半導(dǎo)體存儲(chǔ)器外存儲(chǔ)器穿孔卡片、紙帶磁帶磁帶、磁盤磁盤、光盤等大容量存儲(chǔ)器處理速度（指令數(shù)/秒）幾千條幾百萬(wàn)條幾千萬(wàn)條數(shù)億條以上第四代計(jì)算機(jī)以大規(guī)模集成電路VLSI為計(jì)算機(jī)的主要功能部件，用16K、64K或集成度更高的半導(dǎo)體存儲(chǔ)器作為主存儲(chǔ)器。新機(jī)器要繼承原有機(jī)器指令系統(tǒng)中的全部指令，使得同一系列計(jì)算機(jī)的指令系統(tǒng)越來(lái)越復(fù)雜，這些計(jì)算機(jī)被稱為“復(fù)雜指令系統(tǒng)計(jì)算機(jī)”，簡(jiǎn)稱CISC。日趨龐大的指令系統(tǒng)降低了系統(tǒng)性能，而機(jī)器中最常常的是一些簡(jiǎn)單指令，這些

3、指令僅占指令系統(tǒng)中指令總數(shù)的20%，1975年提出了精簡(jiǎn)指令系統(tǒng)，簡(jiǎn)稱RISC。馮·諾依曼型計(jì)算機(jī)是采用存儲(chǔ)程序方式進(jìn)行工作。研制中的第五代計(jì)算機(jī)，是一種智能計(jì)算機(jī)，具有自動(dòng)識(shí)別自然語(yǔ)言、圖形、圖像有能力，具有理解和推理能力，具有知識(shí)獲取、知識(shí)更新能力。研制朝兩個(gè)方向努力：創(chuàng)建非馮·諾依曼式語(yǔ)言，LISP、PROLOG、F.P.；創(chuàng)建以人腦神經(jīng)系統(tǒng)處理信息的原理為基礎(chǔ)的非馮·諾依曼式的計(jì)算機(jī)模型，生物計(jì)算機(jī)、光子計(jì)算機(jī)、量子計(jì)算機(jī)。1.2 計(jì)算機(jī)對(duì)現(xiàn)代社會(huì)的影響 計(jì)算機(jī)應(yīng)用概述1、科學(xué)計(jì)算：利用計(jì)算機(jī)解決科學(xué)研究和工程技術(shù)中所提出的復(fù)雜的數(shù)學(xué)問題。2、數(shù)據(jù)處理：利

4、用計(jì)算機(jī)對(duì)所獲取的信息進(jìn)行記錄、整理、加工、存儲(chǔ)和傳輸?shù)取?、人工智能：利用計(jì)算機(jī)來(lái)模仿人類的智力活動(dòng)。4、自動(dòng)控制：利用計(jì)算機(jī)對(duì)動(dòng)態(tài)的過程進(jìn)行控制、指揮和協(xié)調(diào)。5、計(jì)算機(jī)輔助設(shè)計(jì)和制造：利用計(jì)算機(jī)來(lái)輔助工程師們?cè)O(shè)計(jì)和制造產(chǎn)品。 由信息高速公路熱引發(fā)的全球信息化浪潮在現(xiàn)代，能源、材料及信息是社會(huì)發(fā)展的三大支柱。以蒸汽機(jī)為中心的動(dòng)力革命，使人類的體力勞動(dòng)大大得到了解放；以電子信息技術(shù)為先導(dǎo)、以計(jì)算機(jī)和現(xiàn)代通信產(chǎn)業(yè)為代表的信息革命使人類的腦力勞動(dòng)得到解放。社會(huì)發(fā)展到每一階段，都需要有相應(yīng)的基礎(chǔ)設(shè)施作支持。在農(nóng)業(yè)社會(huì)，田地是社會(huì)的基礎(chǔ)設(shè)施；19世紀(jì)進(jìn)行的工業(yè)革命時(shí)代，很多國(guó)家通過建設(shè)高速公路和鐵路等

5、交通運(yùn)輸方面的基礎(chǔ)設(shè)施取得了經(jīng)濟(jì)飛速發(fā)展；而在信息化時(shí)代，信息高速公路就自然成為國(guó)家重要的基礎(chǔ)設(shè)施。1993年美國(guó)國(guó)家信息基礎(chǔ)設(shè)施計(jì)劃提出了一個(gè)具有大容量、高速度的電子數(shù)據(jù)傳遞系統(tǒng)。該系統(tǒng)由通信網(wǎng)絡(luò)、信息設(shè)備、信息資源和信息環(huán)境組成。 我國(guó)的“三金”工程1、金橋工程即國(guó)家公用經(jīng)濟(jì)信息通信網(wǎng)絡(luò)工程，是我國(guó)信息化建設(shè)的基礎(chǔ)設(shè)施之一。2、金關(guān)工程是金橋工程的起步工程之一。3、金卡工程即電子貨幣工程，是金融電子化和商業(yè)流通現(xiàn)代化的重要組成部分。語(yǔ)言是交流的工具，人及人交流要用語(yǔ)言，其它動(dòng)物之間交流也有特定的動(dòng)物的語(yǔ)言，人及計(jì)算機(jī)交流就要用到一些符號(hào)，這些符號(hào)的集合形成了計(jì)算機(jī)的語(yǔ)言。計(jì)算機(jī)語(yǔ)言有一個(gè)發(fā)

6、展過程,從機(jī)器語(yǔ)言開始,然后是匯編語(yǔ)言,現(xiàn)在則使用高級(jí)語(yǔ)言.機(jī)器語(yǔ)言和匯編語(yǔ)言屬于低級(jí)語(yǔ)言,計(jì)算機(jī)容易懂,但人理解起來(lái)困難.高級(jí)語(yǔ)言人比較容易理解,因此使得計(jì)算機(jī)得以普及,當(dāng)然這是指60年代.實(shí)際上,隨著應(yīng)用軟件的發(fā)展,現(xiàn)在人們連語(yǔ)言也不用學(xué)了,也可以使用計(jì)算機(jī),而且使用的很好.當(dāng)然,高級(jí)語(yǔ)言,人雖然容易懂,但計(jì)算機(jī)又不懂,因此需要翻譯.所以高級(jí)語(yǔ)言都提供了編譯系統(tǒng)或解釋系統(tǒng)或集成的開發(fā)系統(tǒng),對(duì)高級(jí)語(yǔ)言進(jìn)行翻譯,使得計(jì)算機(jī)能夠識(shí)別并運(yùn)行程序.高級(jí)語(yǔ)言還在發(fā)展,比如面向?qū)ο蟮恼Z(yǔ)言,可視化的語(yǔ)言,網(wǎng)絡(luò)開發(fā)語(yǔ)言等.機(jī)器語(yǔ)言和匯編語(yǔ)言也可以稱為低級(jí)語(yǔ)言.不要認(rèn)為有了高級(jí)語(yǔ)言,低級(jí)語(yǔ)言就可以不用了.恰恰

7、相反,在有些領(lǐng)域,低級(jí)語(yǔ)言更有用武之處,如控制領(lǐng)域,電子信息領(lǐng)域.因?yàn)檫@些領(lǐng)域?qū)φZ(yǔ)言運(yùn)行的速度和效率更感興趣,這正是低級(jí)語(yǔ)言的特點(diǎn).上述語(yǔ)言都稱為形式化的語(yǔ)言,及之相對(duì)應(yīng)的是自然語(yǔ)言,也就是人使用的語(yǔ)言.人及計(jì)算機(jī)之間能否通過自然語(yǔ)言交流呢?這個(gè)恐怕很難.因?yàn)榘凑宅F(xiàn)在計(jì)算機(jī)的原理,計(jì)算機(jī)只有執(zhí)行程序才能夠工作,語(yǔ)言就是用于編出程序來(lái),指揮計(jì)算機(jī)的工作,沒有程序,計(jì)算機(jī)就不能工作.除非在人及計(jì)算機(jī)交流時(shí),計(jì)算機(jī)能把人的語(yǔ)言翻譯成程序,否則,人及計(jì)算機(jī)之間永遠(yuǎn)也不能實(shí)現(xiàn)用自然語(yǔ)言進(jìn)行交流.而目前這是不太可能的.要么就是改變現(xiàn)在計(jì)算機(jī)的結(jié)構(gòu),改變現(xiàn)在計(jì)算機(jī)的運(yùn)行模式,那樣的話,計(jì)算機(jī)就要真正的實(shí)現(xiàn)更

8、新?lián)Q代了.第1課 認(rèn)識(shí)PASCAL語(yǔ)言請(qǐng)參閱全國(guó)信息學(xué)奧林匹克聯(lián)賽培訓(xùn)教程（一）P87第5章 程序設(shè)計(jì)語(yǔ)言5.1 程序設(shè)計(jì)語(yǔ)言基礎(chǔ) 程序設(shè)計(jì)語(yǔ)言的組成PASCAL語(yǔ)言是一種高級(jí)語(yǔ)言。讓我們先來(lái)看一個(gè)PASCAL程序，通過這個(gè)程序了解PASCAL的規(guī)則。例L1_1已知半徑，求圓周長(zhǎng)和面積的程序PROGRAM circle(input,output);(* 第1行：程序首部 *)已知半徑求圓周長(zhǎng)和面積(* 第2行：注釋 *) CONST(*第3行：常量說明*)PI=3.14159; VAR(*第5行：變量說明*)r,l,s:real; BEGIN(*第7行：語(yǔ)句部分*)read(r); (*第8行

9、：輸入語(yǔ)句*)l:=2*PI*r; (*第9行：賦值語(yǔ)句*)s:=PI*r*r;write(r,l,s); (*第11行：輸出語(yǔ)句*) END.(*第12行：語(yǔ)句部分以END.結(jié)束*)程序的第一行為程序首部，每個(gè)PASCAL程序都必須以PROGRAM 開頭；circle是本程序的名字，每個(gè)程序的名字可以不同；圓括號(hào)里的內(nèi)容稱為程序的參數(shù)，程序參數(shù)指明程序及外部聯(lián)系的文件名，input是標(biāo)準(zhǔn)輸入文件，例如鍵盤打字機(jī)，output是標(biāo)準(zhǔn)輸出文件，指屏幕顯示器或打印機(jī)，為了讀入數(shù)據(jù)和輸出結(jié)果，必須寫上文件參數(shù)input和output。從第三行到最后一行為程序的分程序。分程序一般由說明部分和語(yǔ)句部分構(gòu)

10、成。說明部分可以包括多種類型的說明。此例包括以CONST開始的常量說明和以VAR開始的變量說明，常量說明必須以CONST開始，變量說明必須以VAR開始。，特別注意其中的小圓點(diǎn)（.）不可缺少。中間是一些用分號(hào)分開的語(yǔ)句。一個(gè)PASCAL程序由程序首部和分程序組成，分程序通常由說明部分和語(yǔ)句部分組成（在特殊情況下可以沒有說明部分）。PROGRAM circle(input,output); CONSTPI=3.14159; VARr,l,s:real; BEGINread(r);l:=2*PI*r;s:=PI*r*r;write(r,l,s); END.程序首部分程序說明部分語(yǔ)句部分上例的第二行，

11、大括號(hào) 中的內(nèi)容，稱為注釋。被小括號(hào)及星號(hào)（* *）括起來(lái)的內(nèi)容也是注釋。注釋除了給人看，以增加程序的可讀性外，對(duì)編譯和運(yùn)行都不起作用，一個(gè)程序可以包含多個(gè)出現(xiàn)在不同地方的注釋，也可以沒有注釋。程序的書寫格式：1、PROGRAM寫在最左邊頂格；2、注釋的大括號(hào)、和CONST、VAR、BEGIN、END等語(yǔ)句上下對(duì)齊，且它們比PROGRAM向右移兩個(gè)字符；3、各個(gè)語(yǔ)句和程序語(yǔ)句也是上下對(duì)齊，它們比第2點(diǎn)中的各語(yǔ)句又向右移兩個(gè)字符；4、使用大寫字母的語(yǔ)句：PROGRAM、CONST、VAR、BEGIN、END；5、使用大寫字母的標(biāo)識(shí)符：常量標(biāo)識(shí)符。例 L0_001 輸入三角形底邊和高，求該三角形的

12、面積。寫出程序。第二課PASCAL的數(shù)據(jù)類型、標(biāo)識(shí)符、表達(dá)式、語(yǔ)句PASCAL的數(shù)據(jù)類型數(shù)據(jù)對(duì)于一門程序語(yǔ)言是非常重要的，數(shù)據(jù)的一個(gè)非常重要的特征就是它的類型。PASCAL規(guī)定：程序中出現(xiàn)的變量必須先說明才能使用。PASCAL的標(biāo)準(zhǔn)數(shù)據(jù)類型數(shù)據(jù)類型類型標(biāo)識(shí)符適用的數(shù)據(jù)舉例實(shí)型real有小數(shù)表示法和指數(shù)表示法（科學(xué)表示法）×102=132.67）整型integer包括正、負(fù)整數(shù)和零25，-32，0字符型char單個(gè)的字符A，b，C，0，4，+布爾型boolean只有現(xiàn)個(gè)值，即true（真）和false（假）1、實(shí)型（real）實(shí)型是最常用的數(shù)據(jù)類型。在PASCAL，實(shí)數(shù)有兩種表示方法：

13、小數(shù)表示法和指數(shù)表示法（或稱科學(xué)表示法）。以科學(xué)表示法表示這些數(shù)，可以寫成1.25e0，1.3267e+2，0e0，1e2在科學(xué)表示法中，e后的數(shù)字代表10的冪。上列各數(shù)可以解釋成：×100×102×10-3×100=-1.56，0e0=0×100=0.0，1e2=1×1022、整型（integer）整型數(shù)包括正、負(fù)整數(shù)和零。例如：25，-32，0。在整數(shù)中不得包括不數(shù)點(diǎn)（.）。3、字符型（char）字符型數(shù)是括在兩個(gè)單引號(hào)中的一個(gè)字符。例如：A，b，C，0，4，+，*，代表空字符代表字符abc不是字符型數(shù)，因?yàn)閱我?hào)中只能有一個(gè)字符

14、。所有字符都有一個(gè)序號(hào)及之對(duì)應(yīng)。如0對(duì)應(yīng)48，1對(duì)應(yīng)49，A對(duì)應(yīng)65，B對(duì)應(yīng)66。及字符有關(guān)的幾個(gè)函數(shù)函數(shù)功能舉例ord()返回及字符對(duì)應(yīng)的序號(hào)ord(A)=65chr()返回及數(shù)字對(duì)應(yīng)的字符chr(65)=Apred()返回前一字符pred(B)=Asucc()返回后一字符succ(A)=B用函數(shù)可取得對(duì)應(yīng)的序號(hào)，用4、布爾型（boolean）布爾類型的值只有兩個(gè)：false（假）和true（真）。且false的序號(hào)為0，true的序號(hào)為1。用于布爾量的運(yùn)算有布爾運(yùn)算（或稱邏輯運(yùn)算），它們是：AND（及），OR（或），NOT（非），基本運(yùn)算規(guī)則如下：運(yùn)算結(jié)果0 AND 0假 AND 假0fa

15、lse假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假例L0-002 寫出下列PASCAL語(yǔ)句的執(zhí)行結(jié)果 A0:=(1>5); A1:=(1<5); writeln(A0 AND A0); writeln(A0 AND A1); writeln(A1 AND A0); writeln(A1 AND

16、 A1); writeln(A0 or A0); writeln(A0 or A1); writeln(A1 or A0); writeln(A1 or A1);標(biāo)識(shí)符標(biāo)識(shí)符是以字母開頭的字母、數(shù)字組合，用來(lái)表示常量、變量、類型、文件、函數(shù)、過程或程序的名字。x，y，max，min，sum，a15，a3b7都是合法的標(biāo)識(shí)符。而5x，x-y，ex10.5都是非法的標(biāo)識(shí)符。標(biāo)識(shí)符的長(zhǎng)度一般不要超過8個(gè)字符。標(biāo)識(shí)符的選取最好有一定意義，這樣便于記憶，也增加了程序的可讀性。表達(dá)式和運(yùn)算符運(yùn)算符AND，OR，NOT表達(dá)式就是將數(shù)據(jù)和運(yùn)算符結(jié)合使用，組成一組有意義的運(yùn)算式。在PASCAL語(yǔ)言中規(guī)定，表達(dá)式

17、按下列運(yùn)算優(yōu)先規(guī)則計(jì)算：1、所有括起來(lái)的子表達(dá)式必須先計(jì)算，且子表達(dá)式必須從里到外計(jì)算；2、在同一子表達(dá)式中的運(yùn)算符按下列次序計(jì)算：函數(shù)；NOT；AND，*，/，DIV，MOD；OR，+，-；<，<=，=，>，>=，<>3、在同一個(gè)子表達(dá)式中，同一優(yōu)先級(jí)的運(yùn)算按從左到右的次序進(jìn)行。下面是幾個(gè)PASCAL表達(dá)式的例子：例L0_003數(shù)學(xué)表達(dá)式PASCAL表達(dá)式b2-4acb*b-4*a*c(a+b)/(c+d)(a+b)/c+da*b/(c*d)或a*b/c/da2+bx+c常用的函數(shù)詞匯功能abs絕對(duì)值sqr平方sqrt開方ord取序號(hào)參數(shù)為字符型變量，結(jié)果

18、為該字符的序號(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ù)的格式例：開方函數(shù)，在PASCAL中可表示為sqrt(2)語(yǔ)句賦值語(yǔ)句（:=）讀語(yǔ)句（read，readln）當(dāng)實(shí)型數(shù)據(jù)和字符型數(shù)據(jù)一起讀入時(shí)，要先讀字符型數(shù)據(jù)。例如a、b、c為實(shí)型變量，ch1、ch2、ch3為字符型變量，可以寫如下語(yǔ)句：read(ch1,ch2,ch3,a,b,c)不能寫成：read(a,b,c,ch1,ch2

19、,ch3)寫語(yǔ)句（write，writeln）write語(yǔ)句是寫語(yǔ)句（或稱輸出語(yǔ)句）。用于將計(jì)算結(jié)果通過屏幕或打字機(jī)輸出給人看。例如：write(sum,ave)將在屏幕或打字機(jī)上輸出sum和ave的值。它的一般形式是write(<輸出表>)其中輸出表是一些由逗號(hào)分開的輸出項(xiàng)。例如：write(x,y,x+y,x*y)若x的值為2，y的值為3（整數(shù)類型），則輸出結(jié)果為：2 3 5 6為了標(biāo)記輸出結(jié)果，可輸出相應(yī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é)果，

20、較前面清楚。為了將輸出結(jié)果打印在不同的行上，可以利用writeln語(yǔ)句。它的作用是在印出輸出表的最后一個(gè)輸出項(xiàng)后，結(jié)束當(dāng)前輸出行，使得下一個(gè)write（或writeln）語(yǔ)句從下一個(gè)新行的開頭（左端）輸出。例如：writeln(x=,x,y=,y);writeln(x+y=,x+y,x*y=,x*y)輸出結(jié)果為：x=2 y=3x+y=5 x*y=6write語(yǔ)句可以輸出實(shí)型、整型、字符型、布爾型值，也可以輸出字符串。若在write語(yǔ)句中不加場(chǎng)寬說明，則按標(biāo)準(zhǔn)場(chǎng)寬輸出。在這里，場(chǎng)寬是指輸出值的位數(shù)。數(shù)據(jù)類型場(chǎng)寬實(shí)型以科學(xué)表示法輸出，占16位整型12位字符型1位布爾型輸出true或false，分別

21、占5位和4位當(dāng)輸出值不滿規(guī)定場(chǎng)寬時(shí)，左面用空格代替。不同計(jì)算機(jī)系統(tǒng)的標(biāo)準(zhǔn)場(chǎng)寬規(guī)定可能不同。1e+02 13257Afalse布爾型5位整型12位實(shí)型16位字符型1位例L2_2 已知三角形的兩邊及夾角，求第三邊及面積。 設(shè)三角形的兩邊及夾角分別為a，b，第三邊為c，面積為s。則 ，若以角度值輸入，在計(jì)算sin和cos時(shí)應(yīng)轉(zhuǎn)換為弧度。角度轉(zhuǎn)弧度的公式為：弧度=角度×PROGRAM XT2_2; CONST PI=3.14159; VAR a,b,alfa,c,s:real; BEGIN read(a,b,alfa); alfa:=alfa*PI/180; c:=sqrt(a*a+b*b-

22、2*a*b*cos(alfa); s:=1/2*a*b*sin(alfa); write(alfa,c,s); END.例L2_3 輸入一個(gè)字符，求其序號(hào)、前導(dǎo)（即前一字符）、后繼（即后一字符）。PROGRAM L2_3; VAR ch,pch,sch:char; num:integer; BEGIN writeln; writeln; write('Please input a character:'); readln(ch); write('pch:',pred(ch),',sch:',succ(ch),',num:',ord

23、(ch) END.例L2_4 輸入x，y。若在圓環(huán)內(nèi)，輸出true，若在圓環(huán)外，；輸出false。圓環(huán)如圖所示。討論：如圖所示，若下式1x2+y24成立則在圓環(huán)內(nèi)，否則在圓環(huán)外。設(shè)布爾變量bool，當(dāng)x，y在圓環(huán)內(nèi)時(shí)，讓它取值為true，否則取值為false。xy120“（x，y）若在圓環(huán)內(nèi)”的表達(dá)式：(x2+y212)且(x2+y222)PROGRAM L2_4; VAR x,y:real; bool:boolean; BEGIN writeln; write('x=?'); readln(x); write('y=?'); readln(y); bool:=

24、(x*x+y*y>=1) and (x*x+y*y<=4); write(bool); END.習(xí)題XT1_1 判斷下列標(biāo)識(shí)符，哪些是合法的？哪些是非法的？x3，3x，a17，p5q，abcd，x2XT1_2 輸入三個(gè)數(shù)，計(jì)算并輸出它們的平均值以及三個(gè)數(shù)的乘積，寫出程序。XT1_3 已知地球半徑為6371km，計(jì)算并輸出地球的表面積和體積，寫出程序。球表面積計(jì)算公式s=4R2 ，球體積計(jì)算公式（其中R指球半徑）。XT1_4 已知?jiǎng)蚣铀龠\(yùn)動(dòng)的初速度為10m/s，加速度為2m/s2，求20s以后的速度，20s內(nèi)走過的路程及平均速度，寫出程序。設(shè)初速度為v0，加速度為a，時(shí)間為t，末速度

25、為vt，路程為s，平均速度為vave，求末速度公式：vt=v0+at，路程的公式：，平均速度為vave=XT1_5 讀入攝氏溫度c，將它轉(zhuǎn)換成華氏溫度輸出，寫出程序。轉(zhuǎn)換公式：XT2_1 下列數(shù)據(jù)哪些是整數(shù)？哪些是實(shí)數(shù)？哪些是非法的數(shù)？256，2.50，1e+06，2.2e5，e10，-785，e-5，.5，15.，15.0，0.12，0，0.0，25e，XT2_2 確定下列各常數(shù)、表達(dá)式的類型和值，表達(dá)式類型是指表達(dá)式值（結(jié)果）的類型。A，3，3，true，false，12/3，12 DIV 3，5>3，5<3，105 MOD 10，round(17/3，trunc(17/3)，

26、sqrt(ord(2)-ord(0)，sqr(ord(2)-ord(0)，(5>3) AND (5<3)，chr(67)XT2_3 將下列數(shù)學(xué)表達(dá)式表示成PASCAL表達(dá)式(1)-(a2+b2)·y4 (2)sin2(x+0.5)+3cos(2x+4)+tan-1x (3)u0(1+e)(4) (5) (6)(7) (8)|3-exln(1+x)| (9) (10)XT2_4 寫一程序讀入三角形的三個(gè)邊a，b，c，計(jì)算并打印三角形的面積S?？衫孟铝泄接?jì)算。其中XT2_5 按下列公式計(jì)算和打印y值rh1h2XT2_7圖XT2_6 輸入二次方程的系數(shù)a，b，c（輸入數(shù)據(jù)的

27、選取應(yīng)保證二次方程為實(shí)根），計(jì)算并輸出二次方程的兩個(gè)實(shí)根。二次方程為：ax2+bx+c=0XT2_7 求圖形的表面積及體積。其中r，h1，h2的值由鍵盤讀入。，XT2_8 輸入三個(gè)字符，然后按輸入字符次序輸出這三個(gè)字符，再輸出每個(gè)字符的序號(hào)，最后按及輸入字符相反的次序輸出這三個(gè)字符。XT2_9 由鍵盤輸入兩組x，y值，由程序根據(jù)它們是否在示意圖中的斜線區(qū)域內(nèi)，輸出不同的值。若在斜線區(qū)域內(nèi)，輸出true，否則輸出false。XT2_10輸入一個(gè)三位整數(shù)，將它們反向輸出。例如輸入127，輸出應(yīng)為721。XT2_11 輸出你的中文（或英文）名字。每個(gè)漢字（或字母用7行5列字符描述。例如王平輸出如圖所

28、示。xy22-2-20XT2_9圖* * * * * * *XT2_11圖第3課 選擇結(jié)構(gòu)程序設(shè)計(jì)（20071224）請(qǐng)參閱全國(guó)信息學(xué)奧林匹克聯(lián)賽培訓(xùn)教程（一）P101 選擇結(jié)構(gòu)3.1 引言通常，計(jì)算機(jī)按在程序中書寫的順序執(zhí)行語(yǔ)句。然而，在許多情況下，語(yǔ)句執(zhí)行的順序依賴于輸入數(shù)據(jù)或中間運(yùn)算結(jié)果。在這種情況下，必須根據(jù)某個(gè)變量或表達(dá)式的值作出判定，以決定執(zhí)行哪些語(yǔ)句和跳過哪些語(yǔ)句不執(zhí)行。我們稱這種程序結(jié)構(gòu)為選擇結(jié)構(gòu)（或稱判定結(jié)構(gòu)）。PASCAL中有兩個(gè)語(yǔ)句可實(shí)現(xiàn)選擇結(jié)構(gòu)：IF語(yǔ)句（條件語(yǔ)句）和CASE語(yǔ)句（情況語(yǔ)句）3.2 IF語(yǔ)句 IF語(yǔ)句的兩種形式條件語(yǔ)句2語(yǔ)句1假真IF語(yǔ)句又稱如果語(yǔ)句（或

29、稱條件語(yǔ)句）。它的一般形式是IF （條件） THEN （語(yǔ)句1） ELSE （語(yǔ)句2）其中“條件”實(shí)際上是一個(gè)布爾表達(dá)式，它的值可以是真（true）或假（false）。在條件為真時(shí)，執(zhí)行語(yǔ)句1，否則（條件為假）執(zhí)行語(yǔ)句2?？梢岳昧鞒虉D來(lái)描述選擇結(jié)構(gòu)。在流程圖中用菱形框表示要執(zhí)行的判定，其余步驟用矩形框表示，箭頭表示執(zhí)行的順序。例L3_1 火車托運(yùn)行李，要根據(jù)行李的重量按不同標(biāo)準(zhǔn)收費(fèi)。例如不超過50kg，按每公斤0.35元收費(fèi)。若超過50kg，則其中50kg按每公斤0.35元收費(fèi)，其余超過部分按每公斤0.50元收費(fèi)?，F(xiàn)輸入托運(yùn)行李重量，要求計(jì)算并輸出托運(yùn)費(fèi)。解：討論：設(shè)托運(yùn)行李重量為weigh

30、t，該問題要求根據(jù)weight是否超過50kg，按不同公式計(jì)算出托運(yùn)費(fèi)。設(shè)托運(yùn)費(fèi)為pay。weight和pay均為實(shí)型。下面給出算法。一級(jí)算法1、讀入weight的值。2、根據(jù)weight的大小選擇不同的公式計(jì)算pay。3、輸出pay。其中第2步需求精。根據(jù)題意，可以寫出計(jì)算pay的公式如下：weight50weight>50二級(jí)求精weight50pay=50×+(weight-50) ×pay=weight×假真L3_1圖第2步 計(jì)算pay2-1 如果weight502-2 則pay=weight×2-3 否則pay=50×0.35+

31、（weight-50）×以上求精步驟要求首先判斷weight是否小于等于50。如果小于等于50應(yīng)執(zhí)行算法步驟2-2，否則應(yīng)執(zhí)行算法步驟2-3。即算法步驟2-2和2-3不是同時(shí)執(zhí)行的，需根據(jù)情況選擇其一執(zhí)行。PROGRAM L3_1; VAR weight,pay:real; BEGIN write('weight='); readln(weight); IF weight<=50 THEN pay:=0.35*weight ELSE pay:=0.35*50+0.5*(weight-50); writeln('pay=',pay) END.除了上

32、面給出的IF語(yǔ)句形式外，PASCAL中還有另外一種IF語(yǔ)句形式。即條件語(yǔ)句1假真IF （條件） THEN （語(yǔ)句）在條件為真時(shí)，執(zhí)行THEN后的語(yǔ)句。在條件為假時(shí)，不執(zhí)行THEN后的語(yǔ)句，在兩種情況下的后繼語(yǔ)句都是IF語(yǔ)句的下一個(gè)語(yǔ)句。例L3_2 讀入三個(gè)數(shù)，找出并打印其中的最大數(shù)。解：PROGRAM L3_2; VAR a,b,c:real; BEGIN write('a=?'); read(a); write('b=?'); read(b); write('c=?'); read(c); IF a<b THEN a:=b; IF a&l

33、t;c THEN a:=c; writeln('ZuiDaShu:',a) END. 復(fù)合語(yǔ)句在IF語(yǔ)句中，跟在THEN或ELSE后的語(yǔ)句可能不止一個(gè)，這時(shí)要用到復(fù)合語(yǔ)句的概念。復(fù)合語(yǔ)句是一個(gè)以BEGIN開始，以END結(jié)束的語(yǔ)句。在BEGIN及END之間可以包括若干個(gè)語(yǔ)句，每個(gè)語(yǔ)句之間以分號(hào)分開。一般形式為：BEGIN （語(yǔ)句1）； （語(yǔ)句2）； （語(yǔ)句n）END一個(gè)復(fù)合語(yǔ)句從外部看來(lái)，相當(dāng)于一個(gè)語(yǔ)句。例L3_3 讀兩個(gè)數(shù)，將大數(shù)存于x，小數(shù)存于y。解：PROGRAM L3_3; VAR x,y,temp:real; BEGIN write('x=?'); re

34、adln(x); write('y=?'); readln(y); IF x<y THEN BEGIN temp:=x; x:=y; y:=temp END; writeln('x=',x:8:2,',y=',y:8:2) END. 復(fù)合IF語(yǔ)句在IF語(yǔ)句中，THEN或ELSE后的語(yǔ)句本身也可能是IF語(yǔ)句。此時(shí)稱為IF語(yǔ)句的嵌套（或稱為復(fù)合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è)

35、IF語(yǔ)句。例L3_4 輸入某學(xué)生成績(jī)，根據(jù)成績(jī)的好壞輸出相應(yīng)評(píng)語(yǔ)。如果成績(jī)?cè)?0分以上，輸出評(píng)語(yǔ)：優(yōu)秀（outstanding）；如果成績(jī)?cè)?0到90之間，輸出評(píng)語(yǔ)：良好（satisfactory）；如果成績(jī)不足60分，輸出評(píng)語(yǔ)：不及格（unsatisfactory）。有時(shí)IF語(yǔ)句可能會(huì)有兩種不同的理解。例如語(yǔ)句：IF （條件1） THEN IF （條件2） THEN （語(yǔ)句1） ELSE （語(yǔ)句2）我們可以認(rèn)為ELSE及后一個(gè)THEN配對(duì)，其流程圖如圖3_8(1)所示。但是，我們也可以認(rèn)為ELSE及前一個(gè)THEN配對(duì)，其流程圖如圖3_8(2)所示。條件1語(yǔ)句1假真條件2假真語(yǔ)句2圖3_8(1

36、)條件1語(yǔ)句1假真條件2假真語(yǔ)句2圖3_8(2)為了避免產(chǎn)生不同的理解，PASCAL系統(tǒng)規(guī)定ELSE總是及同一層前面最靠近它的，還沒有ELSE及之配對(duì)的THEN配對(duì)。因此，上面的語(yǔ)句肯定是按第一種理解，即ELSE及后一個(gè)THEN配對(duì)。如果要求按第二種理解執(zhí)行流程圖，可以通過在IF語(yǔ)句中加BEGIN、END的辦法來(lái)實(shí)現(xiàn)。寫成IF（條件1）THEN BEGINIF（條件2） THEN（語(yǔ)句1） ENDELSE（語(yǔ)句2）3.3 CASE語(yǔ)句CASE語(yǔ)句是實(shí)現(xiàn)選擇結(jié)構(gòu)程序設(shè)計(jì)的另一種語(yǔ)句。它的使用有時(shí)比IF語(yǔ)句來(lái)得簡(jiǎn)單、直觀。CASE語(yǔ)句（或稱情況語(yǔ)句）的一般形式是CASE （表達(dá)式） OF （值表1

37、）：（語(yǔ)句1）； （值表2）：（語(yǔ)句2）； （值表n）：（語(yǔ)句n）END在CASE語(yǔ)句頭上的表達(dá)式必須是有序類型（整型、字符型、布爾型以及后面要介紹的枚舉型、子界型）。值表是一些由逗號(hào)分開的常數(shù)。表達(dá)式所有可能的值必須在值表中出現(xiàn)，且每個(gè)值只能出現(xiàn)一次。如果當(dāng)前表達(dá)式的值在某個(gè)值表i中出現(xiàn)，則該程序只執(zhí)行對(duì)應(yīng)該值表i的語(yǔ)句，然后執(zhí)行整個(gè)CASE語(yǔ)句后的下一語(yǔ)句。例L3_5 輸入年、月，輸出該月有幾天。討論：每年的1、3、5、7、8、10、12月，每月有31天；4、6、9、11月，每月有30天；2月閏年有29天，平年有28天。年號(hào)能被4整除，但不能被100整除，或者年號(hào)能被400整除的年均是閏年

38、。用year、month、days分別表示年、月、每月天數(shù)。它們均為整數(shù)。閏年的條件可以寫成如下的布爾表達(dá)式：(year MOD 4 = 0) AND (year MOD 100 <> 0) OR (year MOD 400 = 0)PROGRAM L3_5; VAR year,month,days:integer; BEGIN write(year=?);readln(year); write(month=?);readln(month);CASE month OF 1,3,5,7,8,10,12:days:=31; 4,6,9,11:day:=30; 2:IF(year MOD

39、 4 = 0) AND (year MOD 100 <> 0) OR (year MOD 400 = 0) THEN days:=29 ELSE days:=28 END; writeln(year=,year,month=,month,days=days) END.例L3_6 輸入兩個(gè)運(yùn)算量及一個(gè)運(yùn)算符，輸出運(yùn)算結(jié)果。這相當(dāng)于計(jì)算器計(jì)算。討論：設(shè)兩個(gè)運(yùn)算量為x和y，一個(gè)運(yùn)算符為oper，運(yùn)算結(jié)果為result?，F(xiàn)在假定運(yùn)算符只可能是+、-、*、/，將oper說明為字符型。x、y和result說明為實(shí)型。習(xí)題XT3_1 編制程序，根據(jù)輸入的x值，計(jì)算y及z并輸出。PROGRAM X

40、T3_1; CONST PI=3.14159; VAR x,y,z:real; BEGIN write('x=?'); read(x); THEN y:=x*x+1 ELSE y:=x*x-1; IF x<0 THEN z:=-PI/2*x+3 ELSE IF x=0 THEN z:=0 ELSE z:=PI/2*x-5; writeln('x=',x:6:2,', y=',y:6:2,', z=',z:6:2) END.XT3_2對(duì)一批貨物征收稅金，價(jià)格在1萬(wàn)元以上的貨物征稅5%，在5000元以上，1萬(wàn)元以下的貨物征稅3%

41、，在1000元以上，5000元以下的貨物征稅2%，1000元以下的貨物免稅。編寫一程序，讀入貨物價(jià)格，計(jì)算并輸出稅金。XT3_3 輸入某學(xué)生成績(jī)，若成績(jī)?cè)?5分以上，輸出very good，若成績(jī)?cè)?0分到85分之間，輸出good，若成績(jī)低于60分，輸出no good。XT3_4 輸入3個(gè)數(shù)，將其中最小數(shù)輸出。XT3_5 輸入3個(gè)字母，按字母表順序從小到大輸出這3個(gè)字母。XT3_6 輸入二次方程的3個(gè)系數(shù)a、b、c，計(jì)算二次方程的根。程序應(yīng)考慮實(shí)根和復(fù)根兩種情形。二次方程如下：ax2+bx+c=0z=lnx+lnysinx+sinye2x+e3xtan(x+y)象限象限象限象限提示：PASCA

42、L不能表示復(fù)數(shù)。若為復(fù)根，應(yīng)分別計(jì)算并輸出實(shí)、虛部，在輸出時(shí)將+、-及i用字符形式輸出。XT3_7輸入x、y，根據(jù)所處象限，用相應(yīng)公式計(jì)算z。XT3_8 輸入x、y及象限，計(jì)算z。z的計(jì)算公式同XT3_7題，要求用CASE語(yǔ)句編程序。XT3_9 輸入班號(hào)，輸入該班學(xué)生人數(shù)。應(yīng)用CASE語(yǔ)句編程序。班號(hào)919293949596人數(shù)303230303225閱讀學(xué)習(xí)全國(guó)信息奧林匹克聯(lián)賽培訓(xùn)教程（一）（信息學(xué)奧林匹克科學(xué)委員會(huì)主編，清華大學(xué)出版社）及網(wǎng)上教案，閱讀要求見下表：閱讀內(nèi)容頁(yè) 碼要求5.2 Pascal程序的一般結(jié)構(gòu)和輸入輸出語(yǔ)句全國(guó)信息奧林匹克聯(lián)賽培訓(xùn)教程（一）P94全看 順序結(jié)構(gòu)全國(guó)信息

43、奧林匹克聯(lián)賽培訓(xùn)教程（一）P100全看 選擇結(jié)構(gòu)全國(guó)信息奧林匹克聯(lián)賽培訓(xùn)教程（一）P101看1、條件選擇結(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看1、整型；2、布爾類型；4、字符類型；6、實(shí)數(shù)類型CHH信息學(xué)奧賽培訓(xùn)教案（20071127）全看閱讀后完成下面題目1、Pascal程序可以分為三個(gè)部分，請(qǐng)將這三個(gè)部分的名稱填入下面括號(hào)中PROGRAM circle(input,output); CONSTPI=3.14159; VA

44、Rr,l,s:real; BEGINread(r);l:=2*PI*r;s:=PI*r*r;write(r,l,s); END.（ ）（ ）（ ）2、完成下面有關(guān)數(shù)據(jù)類型的表數(shù)據(jù)類型類型標(biāo)識(shí)符舉2個(gè)例子實(shí)型integer字符型boolean3、請(qǐng)將下列實(shí)型數(shù)據(jù)用另一種表示法表示小數(shù)表示法科學(xué)表示法小數(shù)表示法科學(xué)表示法1.25e+11e+2-3.05e+13.8e+24、在Pascal中，有六個(gè)算術(shù)運(yùn)算符，它們是_。有六個(gè)關(guān)系運(yùn)算符，它們是_。有三個(gè)邏輯運(yùn)算符，它們是_。5、在Pascal中，各種運(yùn)算符的運(yùn)算優(yōu)先規(guī)則如下，請(qǐng)?jiān)谙旅嬷本€上畫一個(gè)箭頭表示運(yùn)算優(yōu)先級(jí)由低到高并在直線上面的括號(hào)內(nèi)填入優(yōu)先

45、級(jí)的高低。優(yōu)先級(jí)（ ）括號(hào)（）函數(shù)NOTAND*/DIVMODOR+<<=>=><>優(yōu)先級(jí)（ ）6、填出下面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ǔ)句IFTHENELSE的一部分5boolean34TOFOR循環(huán)語(yǔ)句的一部分6CASE分支結(jié)構(gòu)語(yǔ)句35trunc去掉小數(shù)部分，取其整數(shù)7char36VAR說明變量8chr取字符37WHILE循環(huán)語(yǔ)句WHILE9C

46、ONST定義常量38sin10DIV整數(shù)商39cos11DOWHILE DO語(yǔ)句的一部分40arctan12ELSE條件語(yǔ)句IFTHENELSE的一部分41+13END結(jié)束分程序42-14exp以e為底的指數(shù)43*15FORFOR循環(huán)語(yǔ)句44/16GOTO45<17IFIF條件語(yǔ)句46<=18integer47=19ln以e為底的自然對(duì)數(shù)48>=20MOD取余，整除后的余數(shù)49>21NOT邏輯運(yùn)算符“非”50<>22odd奇函數(shù)，判斷是否為奇數(shù)51write23OF分支結(jié)構(gòu)語(yǔ)句CASEOF的一部分52writeln24OR邏輯運(yùn)算符“或”53read25or

47、d取序號(hào)54readln26pred前導(dǎo)字符55:27PROGRAM程序首部56'28real57;29round四舍五入，取其整數(shù)2、在第1題例中，語(yǔ)句write及writeln有何不同_。3、在第1題例中，哪些詞屬于保留字_。5、將下列代數(shù)式寫成Pascal的表達(dá)式（1）4×（13-4）÷6 （2）a-(m-d)×4÷b+3y=A2（3） （4）6、下列符號(hào)中，能作標(biāo)識(shí)符的是：AI, Wang, 4D4g, IF, MAX, ABS, PI, SIN, ABS_1, Begin7、寫出以下表達(dá)式的值及類型(1)10/2+2重復(fù)控制結(jié)構(gòu)（循環(huán)結(jié)

48、構(gòu)）循環(huán)結(jié)構(gòu)（或稱重復(fù)結(jié)構(gòu)）是程序中的一個(gè)基本結(jié)構(gòu)，在解許多問題中是很有用的。我們知道，在許多復(fù)雜的問題中，常常需要做大量類同的計(jì)算處理。盡管計(jì)算機(jī)的運(yùn)算速度很快，然而要把這些大量類同的計(jì)算處理的每一步都寫成語(yǔ)句，并輸入計(jì)算機(jī)中，其工作量是相當(dāng)大的。有時(shí)是難以完成的。循環(huán)結(jié)構(gòu)程序設(shè)計(jì)可以幫助我們有效地解決這一難題。利用循環(huán)結(jié)構(gòu)程序設(shè)計(jì)，使得我們有可能只編寫少量的語(yǔ)句，讓計(jì)算機(jī)重復(fù)執(zhí)行它許多次，從而完成大量類同的計(jì)算要求。在PASCAL中，實(shí)現(xiàn)循環(huán)程序設(shè)計(jì)的主要語(yǔ)句有FOR語(yǔ)句、WHILE語(yǔ)句和REPEAT語(yǔ)句。一、FOR語(yǔ)句FOR x：=<初值> TO <終值> DO

49、<語(yǔ)句>FOR X:= 1 TO 10 DOFOR X:=10 DOWNTO 1 DOFOR X:= A TO Z DOFOR X:=Z DOWNTO A DOs=0當(dāng)n=1 s=s+n=0+1=1;當(dāng)n=2 s=s+n=1+2=3當(dāng)n=3 s=s+n=3+3=6當(dāng)n=4 s=s+n=6+4=10當(dāng)n=5 s=s+n=10+5=15當(dāng)n=6 s=s+n=15+6=21當(dāng)n=7 s=s+n=21+7=28當(dāng)n=8 s=s+n=28+8=36當(dāng)n=9 s=s+n=36+9=45當(dāng)n=10 s=s+n=45+10=55T75_001 計(jì)算1+2+3+10PROGRAM T75_001; VAR s,n:integer; BEGINs:=0; FOR n:=1 TO 10 DO s:=s+n;writeln(s=,s) END.T75_012計(jì)算n!（n!=1×2×3××n）T75_013 輸入10個(gè)任意整數(shù)，求它們的和PROGRAM T75_001; VAR s,n,a:integer; BEGIN s:=0; FOR n:=1 TO 10 DO BEGIN read(a); s:=s+a; END; writeln(s=,s)