pascal课程测试一(初中) 4页

信息奥赛培训系列PASCAL课程测试（初中）姓名：__________________一、选择题（每小题只有一个正确答案）1、PASCAL中，条件A>B的值可能是（A）0（B）1（C）TRUE或FALSE（D）-12、Real是类型数据（A）整数（B）实数（C）布尔（D）字符3、下面个表示中，实数的是________（A）100（B）0.1（C）'0'（D）04、设实型变量x的值为12.345，若要求按12.345的形式输出，应该使用的输出语句是____（A）Writeln(x)（B）Writeln(x:6:3)（C）Writeln(x:3:6)（D）Writeln(x:5)5、下列程序段运行后，变量V的值为________X:=20；ifx>=10thenv:=5*xelsev:=4*x;（A）100（B）80（C）90（D）706、语句VARx：array[1..5,1..3]ofinteger；说明了________个二维下标变量（A）5（B）2（C）8（D）157、下列程序段运行后，变量max的值为_______a:=5;b:=10;max:=a;ifb>maxthenmax:=b;（A）5（B）10（C）5和10（D）以上都不是8、表达式35div3mod4的值是______（A）0（B）2（C）3（D）69、语句Fori：=0to9dowrite('*');执行后，输出‘*’的个数是_______（A）0（B）9（C）10（D）110、求1×2×3×...×10的值，应选用的程序段是______B.p:=1;n:=1;whilen<10dobeginp:=p*n;n:=n+1end;writeln(p);A.p:=1;forn:=1to10dorepeatp:=p*n;n:=n+1untiln>=10;writeln(p);D.p:=1;forn:=1to10dop:=p*n;writeln(p);C.p:=1;forn:=1to10dobeginp:=p*n;n:=n+1end;writeln(p);2.programp2;varx,y:integer;beginread(x,y);x:=x+y;y:=x-y;x:=x-y;write(x:3,y:3);end.输入为：1024输出结果：二、阅读下面程序，写出各程序的运行结果1、programp1;BeginWriteln(‘*’:8);Writeln(‘***’:9)Writeln(‘*****’:10);输出结果：End.4/42021/9/20\n信息奥赛培训系列4、Programp4；VarA:integer；Begin Forb:=1to3dobeginWrite('':10-b);Fora:=1to2*b-1do    write(‘*’);writeln;endEnd.输出：3.programp3;varm,y,k:integer;constx:array[1..10]ofinteger=(89,79,86,67,68,54,91,84,92,85);beginy:=1;m:=a[1]fork:=2to10dobeginifa[y]>a[k]theny:=k;end;writeln(y:5);end.输出：6.programp6;varx:array[1..5]ofinteger;t,j,i:integer;beginfori:=1to5doreadln(x[i]);fori:=1to4doforj:=i+1to5doifx[i]s(B)a[k]a[k])and(a[k]y[k+1-i]thenp:=FALSE;Writeln(m1);Until(_____________)or(_______________);End.4/42021/9/20\n信息奥赛培训系列3、适当完善(或修改）程序，使该程序运行后得到如图所示的图形。程序如下：programpx;OOOOOOKKKKKKKKOOOOOOKKKKKKKKOOOOOOKKKKKKKKOOOOOOKKKKKKKKOOOOOOKKKKKKKKOOOOOOKKKKKKKKOOOOOOKKKKKKKKconstn=7;Varx,i,j:integer;beginfori:=1tondoBeginif(i=1)or(_______)thenwrite('OOOOOO':8)Elsewrite('OOOOOO');write('KKKK');ifi