pascal 语言练习题

《pascal 语言练习题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、呼家庄中学信息学奥赛练习题Pascal语言练习题一、Pascal语言1.Pascal语言规定,程序一律以保留字___________开始,作为程序标志。5.结构化程序设计的3种基本结构是_________、_________、_________。9.表达式PRED(CHR(ORD(′E′)+1))的值为___________。11.将一万分之一写成Pascal数的形式应为___________。14.Pascal语言的数据类型按其特点可分3大类,即_____________类型,___________类型和___________类型。15.将6552

2、6.0034写成Pascal数的形式应为___________。22.表达式ORD(′6′)>=ORD(6)的值是___________。二、基本语句和顺序结构1.请写出把256.0赋给整型变量I的赋值语句是___________。2.设I为整型变量,L为布尔型变量(l:boolean),odd函数是判断一个数是否为奇数，如odd(5)=true,语句L:=ODD(I)ORODD(I+1);执行后L的值为___________。3.以下程序的运行结果为___________。PROGRAMEX(OUTPUT);VARA,B,C,N,SUM:INTEG

3、ER;BEGINN:=126;A:=NDIV100;B:=(N-A*100)DIV10;C:=N-A*100-B*10;SUM:=A+B+C;WRITELN(′SUM=′,SUM:3)END.4.有以下程序:PROGRAMP1(input,output);VARch:char;BEGINREADLN(ch);writeln(pred(pred(ch)),pred(ch),ch,succ(ch),succ(succ(ch)))END.假设输入字母C,则输出为___________。6.表达式trunc(-sqrt(sqr(17MOD5)*2*(15DI

4、V2)+sqr(1／2)))的值是__________。7.设变量说明如下:VARch1,ch2,ch:char;i1,i2:integer;r1,r2:real;现在要把值A,b,15,128,2.3E-5,-18.96依次赋给变量ch1,ch2,i1,i2,r1,r2,设输入数据格式为:abl5:1282.3E-5-18.96;请写出读语句___________。8.以下程序段的作用是:将读入的一个三位数字的正整数反向输出。如输入123,则输出321,请填空:PROGRAMexa(input,output);VARm,a,b,c,x:intege

5、r;BEGINreadln(m);a:＝___________;b:＝___________MOD10;c:＝mDIV100;x:＝a*100+b*10+c;writeln(x)END.三、选择语句1.阅读下面程序体,其运行结果是___________。A:=5;B:=4;C:=3;IFODD(PRED(4))THENA:=B+C;A:=A-C;WRITELN(A);2.以下程序段将A,B,C三个数,按由小到大的顺序输出。请在空内填上正确的内容。READLN(A,B,C);IFA>BTHENBEGINTEMP:=A;A:=B;B:=TEMPEND;I

6、F___________THENBEGINTEMP:=A;A:=C;C:=TEMPEND;IF___________THENBEGINTEMP:=B;B:=C;C:=TEMPEND;WRITELN(A:3,B:3,C:3)3.有下列两个IF语句:IFA>BTHENX:=1ELSEX:=2;IFA<=BTHENREAD(Y)ELSEREAD(Z);将它们合并成与上面两个IF语句功能完全相同的一个不嵌套IF语句:IFA>BTHEN___________;26呼家庄中学信息学奥赛练习题ELSE;___________;4.以下程序段执行后,DATA的值是_

7、__________。L1:=FALSE;L2:=TRUE;L3:=FALSE;DATA:=0;IFL1THENDATA:=5ELSEIFNOTL2THENELSEIFNOTL3THENDATA:=10ELSEDATA:15;5.以下程序从键盘读入一个三位数的正整数,然后将其反向输出。如输入456,输出654.请在空白处填入正确内容。PROGRAMTURNOVER(INPUT,OUTPUT);VARX,Y,A,B,C:INTEGER;BEGINWRITELN(′INPUTANUMBERX(100

8、100)OR(X>=1000)THENWRITELN(′INPUTERROR!′)ELSEBEGINA:=X