pascal少兒信息學(xué)競賽教程

小試牛刀：1、以下幾個符號是Pascal語言規(guī)定的根本符號的是〔〕。Aa0+{},；#@_!

知識回憶：字母：A~Z，a~z數(shù)字：0~9特殊字符：+-*/=<><>>=<=()[]括號{}注釋號:=.,;’^..子界分隔符#$@_下劃線2、下面單詞是保存字的是〔〕。programconstvarelseforifthentomodvidandnotorbeginend五種類型：1〕程序、函數(shù)、過程的起始符號：programfunctionprocedure說明局部的專定義符號：arrayconstvartypeofstring語句專用定義符號：casedodowntoelseforifrepeatthentountilwhile運算符號：divmodandnotor分隔符號：beginend3、下面〔〕是非法的標(biāo)識符。

A、3yB、s7C、a2_1D、p3aA標(biāo)識符形成的規(guī)那么是必須由一個英文字母或下劃線開頭，后面跟英文字母、數(shù)字和下劃線的任意組合。4、整型常量書寫正確的選項是〔〕。A、5B、5.0C、6,543D、0.0A數(shù)字之間不可以有小數(shù)點或逗號。名稱類型標(biāo)識符數(shù)據(jù)范圍短整型Shortint-128~127長整形Longint-2147483648~2147483647字節(jié)型Byte0~255字型word0~65535

Interger的范圍是-32768~327675、實型常量書寫不正確的選項是〔〕。A、0B、-0.3C、1.34E2D、2.4E-3A在小數(shù)表示法中必須有小數(shù)點，而且小數(shù)點前后都應(yīng)有數(shù)字。在指數(shù)表示法中，E后面的數(shù)字代表10的冪次。6、以下式子中，正確的關(guān)系表達(dá)式為〔〕。A.'B’<‘C’B.3<y<9C.22<22.4D.‘a(chǎn)’<100C在ASCII碼表中，字符‘0’的編號是48；字符‘A’的編號是65；字符‘a(chǎn)’的編號是98。函數(shù)含義自變量類型函數(shù)值類型sqr(x)平方根整型或?qū)嵭团cx相同trunk(x)求x的整數(shù)部分實型整型round(x)最接近x的整數(shù)實型整型ord(x)求x的序號順序類型整型chr(x)求序號為x的字符整型字符型pred(x)求x的前趨值順序類型與x相同succ(x)求x的后繼值順序類型與x相同odd(x)x為奇數(shù)值為truex為偶數(shù)時為false整型布爾型標(biāo)準(zhǔn)函數(shù)：表達(dá)式：數(shù)、變量、函數(shù)用運算符號和圓括號連接起來就構(gòu)成了表達(dá)式，單個常量、變量、函數(shù)也可以看成表達(dá)式，程序中所有的運算都是由表達(dá)式完成的。Pascal表達(dá)式實際上代表一個值，根據(jù)這個值可以把表達(dá)式分為算術(shù)表達(dá)式、字符表達(dá)式和布爾表達(dá)式等；1〕算術(shù)表達(dá)式由整型或?qū)嵭偷某?shù)、變量、函數(shù)用運算符號和圓括號連接起來就構(gòu)成了表達(dá)式。例如：3.14159；x;2*pi*r;(i-j)/(i+j);2)字符表達(dá)式字符表達(dá)式是一個字符型的常量、變量或函數(shù)。例如：‘A’；char(65);3)關(guān)系表達(dá)式關(guān)系表達(dá)式是由一個關(guān)系運算符將兩個算術(shù)表達(dá)式或兩個字符表達(dá)式等連接起來的式子。例如：a+b<c注:兩個關(guān)系運算符不能連用，如：a<b<c是不允許的。在寫Pascal表達(dá)式，要注意一下幾點：〔1〕所有表達(dá)式必須以線性形式寫出，因此分子、分母、指數(shù)、下標(biāo)等必須寫在同一行?！?〕乘號必須用“*”明確指出，不得忽略；〔3〕表達(dá)式有一定的優(yōu)先運算等級：Ⅰ.所有括起來的子表達(dá)式必須先計算，且子表達(dá)式必須從里到外計算；Ⅱ.在同一子表達(dá)式中的運算符按以下次序計算：①函數(shù)；②not；③and，*，/，div，mod；④or，+，-；⑤<，<=，=，>，>=，<>Ⅲ.在同一個子表達(dá)式中，同一優(yōu)先級的運算按從左到右的次序進(jìn)行。7.把整數(shù)6轉(zhuǎn)換成字符’6’的表達(dá)式是〔〕。A.chr(6)-ord(‘0’)B.chr(6-ord(0))C.chr(6+ord(‘0’))D.chr(6)+ord(‘0’)8.以下函數(shù)值是整型的是〔〕。A.odd(56)B.chr(16)C.succ(flase)D.ord(flase)9.將實型數(shù)x四舍五入到百分之一的pascal表達(dá)式是〔〕。A.round(x*100)B.round(x)/100C.round(x*100)/100D.round(x/100)CCD10.以下pascal常量定義中，正確的書寫形式是〔〕。A.consti:=12;B.constch=‘*’;ch=‘sun’;C.constvar=2;D.ts=falseD1.賦值語句賦值語句的一般形式：<變量>：=<表達(dá)式>例如：m:=6;m:=m+1；ch:=‘A’；2.輸入語句兩種形式：read(<變量表>)；readln(<變量表>)；3.輸出語句兩種形式：write〔<輸出項表>〕;writeln〔<輸出項表>〕;單域?qū)捿敵龈袷剑簑riteln(i:n);n必須是整數(shù)，在n個字符寬的輸出域上按右對齊方式輸出i的值。雙域?qū)捿敵龈袷剑簑riteln(a:n:m);n,m必須是整數(shù)，在n個字符寬的輸出域上按右對齊方式用小數(shù)點形式輸出a的值；m是小數(shù)點后的位數(shù)。programex1consts=‘letusbegin’;r=3;pi=3.14;beginwriteln(s);writeln(‘radiumis:’,r);writeln(‘Areaofcircleis:’,pi*r*r);writeln(‘Areaofcircleis:’,pi*r*r:10);writeln(‘Areaofcircleis:’,pi*r*r:10:3);end.輸出結(jié)果：letusbeginradiumis:3Areaofcircleis:2.82600000000000E+01Areaofcircleis:2.826E+01Areaofcircleis:28.260例1：例2.輸入一個字符，輸出這個字符的序號、前導(dǎo)和后繼。programex2;varch,pch,sch:char;och:integer;beginread(ch);och:=ord(ch);pch:=pred(ch);sch:=succ(ch);writeln(‘och=’,och,‘pch=’,pch,’sch=’,sch)end.輸入：C輸出：och=99pch=bsch=d例3：編一程序，實現(xiàn)交換兩個變量a,b的值。programex3vara,b,c:integer;beginread(a,b);c:=a;a:=b;b:=c;writeln(a:3,b:3)end.輸入：45輸出：54例4.輸入一個三位數(shù)，然后把這個數(shù)的百位數(shù)與個位數(shù)對調(diào)，再輸出對調(diào)后的數(shù)。programex4;vara,b,c,m:integer;beginreadln(m);a:=mdiv100;b:=(mdiv10)mod10;c:=mmod10;n:=c*100+b*10+a;writeln(n)end.例5.編寫一個求某學(xué)生語文、數(shù)學(xué)、英語三科總分和平均分的程序。programex5;varchina,math,english:real;sum,aver:real;beginread(china,math,english);sum:=china+math+english;aver:=sum/3;writeln(‘sum=’,sum:4:0)writeln(‘a(chǎn)ver=’,aver:4:1)end.輸入：9085輸出：sum=253aver=84.3有兩種形式的IF語句：

(1)if<條件>then<語句>；

(2)if<條件>then<語句1>else

<語句2>；例6:輸入一個整數(shù)ａ，判斷他的奇偶性?！彩桥紨?shù)輸出“ｙｅｓ”，奇數(shù)輸出“ｎｏ”〕。programex6;vara:integer;beginreadln(a);Ifamod2=0thenwriteln(‘yes’)；

ifamod2<>0thenwriteln(‘no’);end.例7.編一程序，判斷某一年份是否是閏年。programex7;vary:integer;beginreadln(y);if((ymod4=0)and(ymod100<>0))or(ymod400=0)thenwriteln(‘year’y,‘isaleapyear!’)thenwriteln(‘year’y,‘isnotaleapyear!’)end.輸入：2006輸出：year2006isnotaleapyear!programtest1;varx,y,z,t:integer;beginwrite(‘Pleaseinputx,y,z:’);readln(x,y,z);ifx<ythenbegint:=x;x:=y;y:=t;end;ifx<zthenbegint:=x;x:=y;y:=t;end;ify<zthenbegint:=x;x:=z;z:=t;end;writeln(x,y:4,z:4);end.練一練：程序如下，輸出程序運行的結(jié)果。輸入數(shù)據(jù)：123345結(jié)果為：453312練習(xí)case語句當(dāng)多分支選擇的各個條件由同一個表達(dá)式的不同結(jié)果值決定時，可以用case語句實現(xiàn)。case語句的一般表達(dá)式：case表達(dá)式of

常量表1：語句1；

常量表2：語句2；……

常量表n:語句n；else語句n+1;end.case語句在使用時有幾點要注意：

1.end與case對應(yīng)；標(biāo)號與語句之間用“：”分隔；else與語句之間不用分隔符。

2.標(biāo)號必須是一常量，其類型與表達(dá)式的類型一致。

3.可以多個標(biāo)號對應(yīng)同一條語句，標(biāo)號之間用“，”分隔。

4.語句可以是多個語句，但必須用語句括號begin……end括起

5.case語句也可以嵌套programexample8;varx,y,s:real;ch:char;beginwrite(‘Pleaseinputx,y,s:’);readln(x,y);readln(ch);casechof‘+’:s:=x+y;‘-’:s:=x-y;‘*’:s:=x*y;‘/’:s:=x/y;end;writeln(x:8:2,ch,y:8:2,’=’,s:8:3)end.例8：設(shè)計一個簡單的計算器，具有加、減、乘、除。例9：從鍵盤上讀入年和月，輸出該月有多少天。programex9;

var

year,month,day:integer;