信息學奧林匹克競賽培訓教案-資料下載頁

　　

【正文】 BEGIN n:=n+1。 IF q MOD n=0 THEN qyn:=0。 END。PROGRAM T75_008。 VAR even,p,q,n,pyn,qyn:integer。 BEGIN write(39。Please input a even:39。)。 read(even)。 IF even MOD 2=0 THEN BEGIN FOR p:=2 TO trunc(even/2) DO BEGIN q:=evenp。 n:=1。 pyn:=1。 qyn:=1。 WHILE nsqrt(p) DO BEGIN n:=n+1。 IF p MOD n=0 THEN pyn:=0。 END。{WHILE1} n:=1。 WHILE nsqrt(q) DO BEGIN n:=n+1。 IF q MOD n=0 THEN qyn:=0。 END。{WHILE2} IF (pyn=1) AND (qyn=1) THEN writeln(even,39。=39。,p,39。+39。,q)。 END。{FOR} END{IF} ELSE writeln(39。You must input a even!39。)。 END.T75_009 打印楊輝三角形11 11 2 11 3 3 11 4 6 4 1…… ……1 10 45 …… 45 10 1討論：楊輝三角形中，每個數據值可以由組合來計算。上列楊輝三角形可以寫成： …… …… …… …… 已知可以由遞推公式計算為了輸出三角形，我們將中心線位置定在40格處。每一行的第一個值應往左移3格，最大數是3位整數，每個數之間留3個空格，因此輸出值的場寬可以定義為6。這是一個二重循環問題，且內循環n的次數依賴于外循環m（對應每行輸出不同的個數）。一級算法FOR m:=0 TO 10 DO BEGIN 輸出每行的第一個值，左面留空 輸出每行的其余值 換行 END二級求精第1步 輸出每行的第一個值，左面留空c:=1write(c:403*m)第2步 輸出每行的其余值FOR n:=1 TO m DO BEGIN c:=c*(mn+1) DIV n write(c:6) END第9課PASCAL編程基本知識復習20080407一、填空題：標識符是__以字母開頭的字母、數字組合__。標識符可用來表示_常量_、__變量__、類型、文件、函數、過程、程序的名字。標識符的長度是沒有限制的。但標準PASCAL規定能區分的有效標識符長度是__8__。標識符的選取最好__有一定的含義__，這樣便于記憶，也增加了程序的可讀性。（5）盡可能多地寫出你知道的函數名稱及功能（20）函數功能函數功能例：sqrt()開方round( )四舍五入，取整數abs( )絕對值exp( )以e為底的指數sqr( )平方ln( )以e為底的自然對數ord( )取序號sin( )正弦函數chr( )取字符cos( )余弦函數pred( )前導字符arctan( )余切函數succ( )后繼字符odd( )奇函數trunc( )去掉小數部分寫出四種標準數據類型標識符（4）實型 real 整型 integer字符型 char 布爾型 boolean從程序的結構看，PASCAL程序的四種基本結構包括：_順序結構_、__選擇結構_、__循環結構__、函數與過程結構。（3）Pascal程序可以分為三個部分，請將這三個部分的名稱填入下面括號中（3）PROGRAM circle(input,output)。 CONSTPI=。 VARr,l,s:real。 BEGINread(r)。l:=2*PI*r。s:=PI*r*r。write(r,l,s)。 END.（ 程序首部 ）（ 說明部分 ）（ 語句部分 ）在Pascal中，（15）有六個算術運算符，它們是__+、*、/、MOD、DIV___。有六個關系運算符，它們是__、=、=、=、__。有三個邏輯運算符，它們是__AND、OR、NOT___。優先級由高到低（）函數NOTAND*/divmodOR+===請自己設計一張圖表將第6題中的運算符，再加上函數和括號在PASCAL程序中的運算優先規則表示出來。（3）請將下列實型數據用另一種表示法表示（6）小數表示法科學表示法小數表示法科學表示法+11001e+2+2+1將下列代數式寫成Pascal的表達式（4）（1）a(md)4247。b+3y=A2 （2）(p*q*sqr(r+1))/(sqr(r+1)1)a(md)*4/b+3*y=A2abs(3exp(x)*ln(1+x))(8816)/(4715)4*a（3） （4）|3exln(1+x)|二、程序找錯（每個程序有4處錯誤，請你找出來）PROGRAM T55_002。錯誤一：第2行少“VAR”；錯誤二：第5行少分號；錯誤三：第8行，字符串應用單引號，題中用了雙引號；錯誤四：第8行字符串與變量之間少逗號。 a,h:integer。 BEGIN write(“San Jiao Xing Di:”)。 readln(a) write(“San Jiao Xing Gao:”)。 readln(h)。 writeln(“San Jiao Xing Mian Ji:”a*h/2:6:1) END.1PROGRAM T65_004。 VAR n,integer。 BEGIN write(39。Please input a number from 0 to 6 for weekday:39。) read(n)。 CASE n 0:writeln(39。Sunday39。)。錯誤一：第2行變量與數據類型之間應用冒號，這里用了逗號；錯誤二：第5行少分號；錯誤三：第7行，CASE語句少了OF；錯誤四：CASE語句沒有END與之配對。 1:writeln(39。Monday39。)。 2:writeln(39。Tuesday39。)。 3:writeln(39。Wednesday39。)。 4:writeln(39。Thursday39。)。 5:writeln(39。Friday39。)。 6:writeln(39。Saturday39。)。 END.1PROGRAM T75_002。 VAR ch:char。 ZiMu,ShuZi,FuHao:integer。 BEGIN ZiMu:=0。 ShuZi:=0。 FuHao:=0。 WHILE ch39。?39。 BEGIN read(ch)。錯誤一：第9行WHILE語句少DO；錯誤二：第12行IF語句中，字符沒有加單引號；錯誤三：第13行，賦值語句不對，應為:=錯誤四：第14行，IF語句中，AND兩邊的邏輯判斷應各自加括號，即（ord(ch)=48） AND （ord(ch)=57）。 IF (chA) AND (chZ) OR (cha) AND (chz) THEN ZiMu=ZiMu+1 ELSE IF ord(ch)=48 AND ord(ch)=57 THEN ShuZi:=ShuZi+1 ELSE FuHao:=FuHao+1。 END。 writeln(39。Zi Mu Ge Shu: 39。,ZiMu)。 writeln(39。Shu Zi Ge Shu: 39。,ShuZi)。 writeln(39。Qi Ta Fu Hao Ge Shu: 39。,FuHao) END.第10課 函數（一）20080414以前我們用過由PASCAL系統提供的標準函數，例如sqrt()（開方）、ord()（取數字）、pred()（取前導字符）、abs()（絕對值）等。在表達式中調用這些函數是相當簡單的，只需寫出函數名，并將自變量寫在函數名后的括號中即可。函數使用方便實用，但PASCAL提供的標準函數并不多，不能滿足一些復雜問題的求解，這時就需要定義新的函數。T85_001 輸入x值，計算y。已知其中sh是雙曲正弦函數，它不是PASCAL 的標準函數。該問題要求4次計算雙曲正弦函數，可以將它定義成一個函數，然后調用4次，以得到問題的解。已知計算雙曲正弦的公式如下：FUNCTION sh(t:real):real。 BEGIN sh:=(exp(t)exp(t))/2 END。函數首部函數語句部分（函數體）函數說明部分函數分程序按此寫出的雙曲正弦函數說明如下：函數說明的第一行稱函數首部。它必須以保留字FUNCTION開頭，然后是函數名，參數表和函數類型標識符。在此例中，函數名是sh，參數表是(t:real)，在參數表中給出了形式參數t和它的類型real，函數類型是real。在函數首部的后面是函數分程序。它由說明部分和語句部分構成。說明部分有時可以沒有。語句部分又稱函數體，它必須用BEGIN和END括起來 。函數體對形式參數進行處理，處理結果賦給函數名，作為函數結果傳給調用它的程序。此例中沒有說明部分。函數體由給函數名sh賦值的語句組成。這個值作為函數執行的結果被回送。函數說明的一般形式如下：FUNCTION 函數名 （參數表）：函數類型；說明部分；BEGIN函數體END；為了調用非標準函數，必須預先將函數定義（或稱函數說明）寫在程序的說明部分（處于變量說明之后）。然后在程序中需要調用的地方，將函數名和相應的自變量（稱實在參數）寫在表達式中即可。一個表達式中可以包括多個函數調用。T85_001的程序如下：PROGRAM T85_001。 VAR x,y:real。 FUNCTION sh(t:real):real。 BEGIN sh:=(exp(t)exp(t))/2。 END。 BEGIN read(x)。 writeln(39。x=39。,x:6:2)。 y:=sh(1+sh(x))/(sh(2*x)+sh(3*x))。 writeln(39。y=39。,y:6:2) END.l1l2l3l4l5l6l7S1S2S3函數調用的一般形式為函數名（實在參數表）T85_002 求五邊形的面積（如圖）。邊長l1l7由鍵盤讀入。討論：求五邊形的面積可以變成求3個三角形面積的和。已知三邊長為a、b、c，求三角形面積S公式：，其中第10課 函數（二）20080421調用函數，就是在程序中使用一個函數。如下面PASCAL語句：c:=sqrt(a*a+b*b2*a*b*cos(alfa))。och:=ord(ch)。pch:=pred(ch)。y:=sh(1+sh(x))/(sh(2*x)+sh(3*x))。調用函數的書寫一般格式：函數名(參數表)函