Pascal 语言练习题

《Pascal 语言练习题》由会员分享，可在线阅读，更多相关《Pascal 语言练习题（26页珍藏版）》请在金锄头文库上搜索。

1、呼家庄中学信息学奥赛练习题Pascal 语言练习题一、Pascal 语言1. Pascal语言规定,程序一律以保留字_开始,作为程序标志。5. 结构化程序设计的3种基本结构是_、_、_。9. 表达式PRED(CHR(ORD(E)+1)的值为_。11. 将一万分之一写成Pascal数的形式应为_。14. Pascal语言的数据类型按其特点可分3大类,即_类型,_类型和_类型。15. 将65526.0034写成Pascal数的形式应为_。22. 表达式ORD(6)=ORD(6)的值是_。二、基本语句和顺序结构1. 请写出把256.0赋给整型变量I的赋值语句是_。2. 设I为整型变量,L为布尔型变量

2、(l:boolean),odd函数是判断一个数是否为奇数，如odd(5)=true,语句L:=ODD(I) OR ODD(I+1);执行后L的值为_。3. 以下程序的运行结果为_。 PROGRAMEX(OUTPUT); VAR A,B,C,N,SUM:INTEGER; BEGIN N:=126; A:=N DIV 100; B:=(N-A*100) DIV 10; C:=N-A*100-B*10; SUM:=A+B+C; WRITELN(SUM=,SUM:3) END.4. 有以下程序: PROGRAM P1(input,output); VAR ch:char; BEGIN READLN(c

3、h); writeln(pred(pred(ch),pred(ch),ch,succ(ch),succ(succ(ch) END. 假设输入字母C,则输出为_。6. 表达式trunc(-sqrt(sqr(17 MOD 5)*2*(15 DIV 2)+sqr(12)的值是_。7. 设变量说明如下: VAR ch1,ch2,ch:char; i1,i2:integer; r1,r2:real; 现在要把值A,b,15,128,2.3E-5,-18.96依次赋给变量ch1, ch2,i1,i2,r1,r2,设输入数据格式为: a b l5: 128 2.3E-5 -18.96; 请写出读语句_。8.

4、 以下程序段的作用是:将读入的一个三位数字的正整数反向输出。如输入123,则输出321,请填空: PROGRAM exa(input,output); VAR m,a,b,c,x:integer; BEGIN readln(m); a:_; b:_ MOD 10; c:m DIV 100; x:a*100+b*10+c; writeln(x) END.三、选择语句1. 阅读下面程序体,其运行结果是_。 A:=5;B:=4;C:=3; IF ODD(PRED(4) THEN A:=B+C; A:=A-C; WRITELN(A);2. 以下程序段将A,B,C三个数,按由小到大的顺序输出。请在空内填

5、上正确的内容。 READLN(A,B,C); IF AB THEN BEGIN TEMP:=A; A:=B; B:=TEMP END; IF_ THEN BEGIN TEMP:=A; A:=C; C:=TEMP END; IF_ THEN BEGIN TEMP:=B; B:=C; C:=TEMP END; WRITELN(A:3,B:3,C:3)3. 有下列两个IF语句: IF AB THEN X:=1 ELSE X:=2; IF AB THEN_; ELSE;_;4. 以下程序段执行后,DATA的值是_。 L1:=FALSE;L2:=TRUE;L3:=FALSE;DATA:=0; IF L1

6、 THEN DATA:=5 ELSE IF NOT L2 THEN ELSE IF NOT L3 THEN DATA:=10 ELSE DATA:15;5. 以下程序从键盘读入一个三位数的正整数,然后将其反向输出。如输入 456,输出654.请在空白处填入正确内容。 PROGRAM TURNOVER(INPUT,OUTPUT); VAR X,Y,A,B,C:INTEGER; BEGIN WRITELN (INPUT A NUMBERX(100X=1000):); READLN (X); IF (X=1000) THEN WRITELN(INPUTERROR!) ELSE BEGIN A:=X

7、DIV 100; B:=_; C:=X MOD 10; Y:=_; WRITELN(X,TURNOVERIS:,Y) END END.6. 以下程序实现了将24小时制表示的时间转换为12小时制表示的时间。如:输入1325(13点25分),则输出1:25PM。请在_。处填入正确内容。 PROGRAM EXCHTIME(INPUT,OUTPUT); VAR TIME,HOUR,MINUTES:INTEGER; BEGIN READLN(TIME); HOUR:=_ MOD 12; IF HOUR=0 THEN HOUR:=12; WRITE(HOUR:2,:); MINUTES:=_; WRITE

8、(MINUTES:2); IF (TIME1200) OR (TIME=2400)THEN WRITELN(AM) ELSE WRITELN (PM) END.7. 以下程序实现:输入一个日期,计算出是星期几,请在空白处填入正确内容。 PROGRAM COUNTWEEK (INPUT,OUTPUT); VAR DAY,MONTH,YEAR,M,Y,SUM,WEEK:INTEGER; LEAP:BOOLEAN; BEGIN READLN(DAY,MONTH,YEAR); Y:=YEAR-1; Y:=Y+Y DIV 4-Y DIV 100+Y DIV 400; CASE MONTH OF 1,10

9、:M:=0; 5:M:=1; 8:M:=2; 2,3,11:M:=3; 6:M:=4; 9,12:M:=5; 4,7:M:=6; END; SUM:=Y+M+DAY;总天数 IF(YEAR MOD 4=0)_ (YEAR MOD 1000)_ (YEAR MOD 400=0)AND(MONTH2)THEN SUM:=SUM+1;闰年加一天 WEEK:=SUM MOD 7; CASE_ OF 0:WRITELN(SUNDAY); 1:WRITELN(MONDAY); 2:WRITELN(TUESDAY); 3:WRITELN(WEDNESDAY); 4:WRITELN(THURSDAY); 5:

10、WRITELN(FRIDAY); 6:WRITELN(SATURDAY) END END.8. 下列程序段计算1100中既不能被3整除,也不能被4整除的所有整数之积,请填写完全。 p:=1FOR i:1 TO 100 D0 IF (i MOD 30) AND (i MOD 40) THEN_;9. 本程序是在3个整数中找出最大的数,并输出到屏幕上。分析下面的程序,填上适当的内容。 PROGRAM exa(input,output); VAR a,b,c,largest:integer; BEGIN writeln(input a,b,c=); readln(a,b,c); IF ab THEN

11、 largest_; ELSE largest_; IF c_ THEN largest:c; write1n (The1 argest number is,largest) END.四、循环语句1. 设A=TRUE,B=FALSE,I=1,且C为布尔类型变量,则循环语句FOR C:=B TO A DO I:=I+2;执行后,变量I的值为_。2. 以下程序段计算150中既不能被3整除也不能被5整除的所有整数之积。请在空格内填入适当内容。 R:=1; FOR I:= 1 TO 50 DO IF(I MOD 30) AND (I MOD 50) THEN_;3. 以下程序段用以找出满足的最大整数N

12、,其中A,B都是正整数,且B1。请在空格内填上正确的内容。 READLN(A,B); N:=0;MULT:=1; WHILE MULT=A DO BEGIN N:=N+1; MULT:=_ END; _ WRITELN(LARGESTNIS:,N:1)4. 以下程序实现从键盘读入10个无序数,去掉一个最大数和一个最小数然后求平均值,请在_处填入正确内容。 PROGRAM COUNTAVE(INPUT,OUTPUT); VAR I,MAX,MIN,X,SUM:INTEGER; AVE:REAL; BEGIN READLN(X); MAX:=X;MIN:=X;SUM:=X; FOR I:=1 TO 9 DO BEGIN READLN(X); SUM:=SUM+X; IF XMIN THEN _ ELSE I