历年计算机软考程序设计模拟试题及答案

计算机软件水平考试/真题题库历年计算机软考程序设计模拟试题及答

案一、单项选择题（在每小题的四个备选答案中，选出一个正确的答案，并将其号码填在题干的括号内。每小题1分，共10分）.下面的（）是pascal中有效的用户自定义标识符Programprog#22ndoneprog2.在ASCII码字符集中，字符'A'的序数是65,字符'B'的序数是66。变量A='B',则ord（'A'）和ord（A）的值分别是（）65和6565和B65和66A和66.假设要通过read语句分别给变量a和b赋值5和7,数据键入的顺序是：57。则()的格式是正确的(表示空格)read(ab)read(b,a)read(ab)read(a,b).下面程序段当x的值为9.95时，下面语句输出的内容是()ifx>7.5thenbeginx:=90.0;writeln('xis',x:4:2)endelsex:=25.0;writeln('xis',x:3:1);xis90.00TOC\o"1-5"\h\zx is 90.00 x is 90.0x is 90.00 x is 25.0x is 25.05.下面各程序段中，()能在一行中输出五个‘*'A.I：=0；repeatwrite('*');I:=I+1untilI=5B.I:=0;repleatwrite('*')untilI=5C.I:=0;repeatwrite('*');I:=I-1untilI=5D.I：=0；repeatwriteln('*')I:=I+2untilI=56.函数的结果类型可以是()A.数组类型和简单类型B.记录类型和简单类型C.文件类型和简单类型D.指针类型和简单类型.设定义和说明如下：TYPECOLORTYPE=(READ,BLUE,YELLOW,WHITE,BLACK)；PERSON=(MAN,WOMAN)；VARCOLOR：COLORTYPE；STUDENT:PERSON；下列()语句是不正确的FORCOLOR:=REDTOBLACKDOwrite('MAN')；WHILECOLOR=BLACKDOwrite('MAN')；IFCOLOR<>YELLOWTHENWRITE('YES');IFWOMAN>REDTHENWRITE('NO');.若有定义：TYPEAR=ARRAY[-2..2,-1..2]OFREAL；它表示AR类型是具有()的二维数组4行5列4行3列3行4列5行4列.动态变量的撤消必须使用标准过程()NOTNEW(P)DELETE(P)DISPOSE(P)ERASE(P).记录变量进行赋值运算时，要求这两个记录变量类型()A.相同相容一■致赋值相容二、填空题(每空1分，共15分).程序的功能模块设计是指程序模块应该按照程序执行的功能来划分。这种程序模块应具有简单性、 和完整性。.在PASCAL中，四种标准类型是：整型，实型， 和布尔类型。.表达式odd(succ(pred(5)))的值为 O.表达式5*2div4*4的值为 O.下面程序段的输出结果是oifsucc(6)=pred(4)thenwriteln('red')elseifpred(7)=succ(5)thenwriteln('yellow')elsewriteln('blue');.设ch为字符型变量，则条件(ch<>'x')and(ch<>'y')and(ch<>'z')用集合表示 O.标准PASCAL规定，FOR语句执行完毕后，其循环控制变量的值。.设有以下说明：vara,b,c:integer;则下面程序段的输出是。a:—5;b:—8;c:—1;whileb-a>cdobegina:=b-a;b:=b-aend;writeln(b);.下面程序的输出结果是。programpp(output);constm=10;n=5;varx,y:integer;procedurep1;vary:integer;beginy:=m+n;x:=mend;y:=m*n;pl；writeln(y)end..形式参数有，变量参数，过程参数和函数参数四种。.子界类型属于有序类型，上，下界属于同一有序类型，且要求上界下界。.设有以下说明：typeweekday=(sun,mon,tue,wed,thu,fri,sat);varday;weekday;以下赋值语句:day:=succ(wed);使用函数pred()来实现与上述语句等价的赋值语句是： O.在各种类型的数组变量中，只有—数组变量可以作为输出语句的参数。.使用标准函数，可以判断是否读到文本文件一行的行尾字符。.设varp:八T;则p是指针变量，而是类型为T的动态变量。三、改错题(指出所给程序中的错误，在错误位置处打上横线标记，并注明其错误原因。每题4分，共20分).程序功能，求绝对值小于100的任意两个非零整型数据的积和商。程序：PROGRAMcalcA(input,output);VARa,b:INTEGER；multi,div:REAL；BEGINreadln(a,b);multi=a*b;div=a/b;writeln(a:4,b:4,multi:8:2,div:8:2)END..程序功能，找出任意三个整型数据x、y、2中的最小者。程序：PROGRAMfindmin(input,output);VARx,y,z,min:INTEGER;BEGINreadln(x,y,z);IFxIFyIFzwriteln(x:4,y:4,z:4);writeln('MINIMUMIS',min:4)END..程序功能：使用尝试法检验任一自然数是否为素数。检验方法：任一自然数门，如果从2开始到根号n为止的所有自然数都不能整除(除尽)门，则门即为素数(也称质数)。程序：PROGRAMprime2(input,output);VARi,n:INTEGER;isprime:BOOLEAN;BEGINreadln(n);FORi:=2TOtrunc(sqrt(n))DOIFnMODi=0THENisprime:=FALSEENDDO;IFisprimeTHENwriteln(n,'isaprime!')ELSEwriteln(n,'isnotaprime!')END..程序功能：用自定义的过程计算一个任意整数的随机数，然后再将计算出的随机数与测试数据test运算后输出，整数r的随机数乂可用如下公式计算：x=((r*168+2159)MDO32767)/32767(设机器正整数为32767)程序：PROGRAMcalc(input,output);CONSTtest=200.88;VARa,b:REAL;PROCEDURErandom(VARr,rnd:INTEGER);BEGINrnd:=(r*168+2159)MODMaxIntmd:=trunc(rnd/MaxInt)END;BEGINrandom(400+test,a);random(400-test,b);writeln('a=',a,'b=',b);END..程序功能：将数组A中的数据复制到数组8中。程序：PROGRAMcopyarray2(input,output);VARa,b:ARRAY[10..1]OFINTEGER;BEGINreadln(a);b:=a;write(b);END.四、阅读程序(阅读给出的程序，将其运行结果写在横线上。第1、2题各4分，第3、4题各5分，第5题7分，共25分)(以下W表示回车换行符)programp5(input,output);varch:char;n:integer;beginn:=0;read(ch);repeatn:=n*2+ord(ch)-ord('0');read(ch)untilch='#';write(n)end.执行该程序，当输入1011#/时，其输出为：programp6(output)varn,k,i,s:integer;beginforn:=9to10dobegins:=0;k:=1;fori:=1tondobegins:=s+i*k;k:=-kend;writeln(s)endend.一.单项选择题(每小题1分，共10分).D.C.D4.B5.A6.D7.D8.D9.C10.A二.填空题（每空1分，共15分）.独立性.字符型.TRUE（不区分大小写字母）.8.yellow（大写字母不给分）.not（chin['x','y','z']或not（chin['x.'..'z']）.已无定义（或无确定的值，或等价的文字说明）.39.50.值参数.必须大于（或大于等于）.day:=pred（fri）（不区分大小写字母）.字符（或紧凑字符）.eoln或eoln（）（不区分大小写字母）.pT（不区分大小写字母）三.改错题（每题4分，共20分）注：①错误原因说明除这里给出的外，可为其他等同含义的描述。②错误位置指明除这里标明的外，可视具体程序灵活考虑。评卷时要根据以上两面三刀点恰当评分。1.错误位置：PROGRAMcalcA（input,output）;VARa,b:INTEGER；multi,div:REAL；（1）BEGINreadln（a,b）;multi=a*b;div=a/b;writeln（a:4,b:4,multi:8:2,div:8:2）END.错误说明：（1）div为（系统）保留字，不能用作变量名。(2)赋值语句的赋值号应为“：二”，不是“二”。评分标准：指出错误位置每处及错误原因说明每个各1分。2.错误位置：PROGRAMfindmin(input,output);VARx,y,z,min:INTEGER;BEGINreadln(x,y,z);(2)Ifx(1)(2)Ify(1)(2)Ifzwriteln(x:4,y:4,z:4);writeln('MINIMUMIS',min:4)END.错误说明：(1)各个关系式中的小于号(。应该为小于等于号(<二)否则，对于相等的特殊情形将找不出最小数。THENIF应改为THENIF。评分标准：指出错误位置每种及错误原因说明每个各1分。*其他形式的正确程序段参考：形式一IFx<=yTHENIFx<=zTHENmin:=x;IFy<=xTHENIFy<=zTHENmin:=y;IFz<=xTHENIFz<=yTHENmin:=z;形式二IFxTHENIFx<=zTHENmin:=xELSEmin:=zELSEIFy<=zTHENmin:=yELSEmin:=z;3.错误位置：PROGRAMprime2(input,output);VARi,n:INTEGER；isprime:BOOLEAN;BEGIN(1)Treadln(n);FORi:=2TOtrune(squr(n))DOIFnMODi=0THENisprime:=FALSE⑵TENDDO;IFisprimeTHENwriteln(n,'isaprime!')ELSEwriteln(n,'isnotaprime!')END.错误说明：(1)循环语句之前缺少对变量isprime赋初值的语句：isprime:=TRUE;(2)ENDDO应划去(为非法、多余成分)。评分标准：指出错误位置每种及错误原因说明每个各1分。.错误位置：PROGRAMcalc(input,output);CONSTtest=200.88;VARa,b:REAL;PROCEDURErandom(VARr,rnd:INTEGER);BEGINrandom(400+test,a);(1)(2)random(400-test,b);(1)(2)writeln('a=',a,'b=',b);END错误说明：(1)赋值不相容(形参为整型，实参为实型)。(2)形参为变量参数时实参不能为表达式。评分标准：指出错误位置每种及错误原因说明每个各1分。.错误位置：PROGRAMcopyarray2(input,output);VARa,b:ARRAY[10..1]OFINTEGER;(1)BEGINReadln(a);(2)b:=a;write(b);(2)END.错误说明；(1)数组下标的上下界必须符合下界＜上界。(2)数值型数组变量不能作为输入、输出语句参数。或说：“数值型数组不能直接整体输入、输出。”评分标准；错误(1)指出位置及说明各1分。错误(2)指出位置每处0.5分，说明1分。四.阅读程序(第1、2、题各4分，第3、4题各5分，第5题7分，共25分)1.112.5(2分)-5(2分)3.5272.7(每个数字各