计算机程序试题答案,历年计算机软考程序设计模拟试题及答案
一、單項選擇題(在每小題的四個備選答案中，選出一個正確的答案，并將其號碼填在題干的括號內。每小題1分，共10分)
1．下面的( )是pascal中有效的用戶自定義標識符
A． Program
B． prog#2
C． 2ndone
D． prog2
2．在ASCII碼字符集中，字符'A'的序數是65，字符'B'的序數是66。變量A＝'B'，則ord('A')和ord(A)的值分別是(
)
A． 65和65
B． 65和B
C． 65和66
D． A和66
3．假設要通過read語句分別給變量a和b賦值5和7，數據鍵入的順序是：57。則(
)的格式是正確的(表示空格)
A． read(ab)
B． read(b,a)
C． read(ab)
D． read(a,b)
4．下面程序段當x的值為9.95時，下面語句輸出的內容是(
)
if x>7.5 then
begin
x:=90.0;
writeln('x is',x:4:2)
end
else x:=25.0;
writeln('x is',x:3:1);
A. x is 90.00
B. x is 90.00 x is 90.0
C. x is 90.00 x is 25.0
D. x is 25.0
5．下面各程序段中，( )能在一行中輸出五個'＊'
A.I:=0;
repeat
write('*');
I:=I+1
until I=5
B.I:=0;
repleat
write('*')
until I=5
C.I:=0;
repeat
write('*');
I:=I-1
until I=5
D.I:=0;
repeat
writeln('*')
I:=I+2
until I=5
6．函數的結果類型可以是( )
A． 數組類型和簡單類型
B． 記錄類型和簡單類型
C． 文件類型和簡單類型
D． 指針類型和簡單類型
7．設定義和說明如下：
TYPE COLORTYPE=(READ,BLUE,YELLOW,WHITE,BLACK);
PERSON=(MAN,WOMAN);
VAR COLOR:COLORTYPE;
STUDENT:PERSON;
下列( )語句是不正確的
A. FOR COLOR:=RED TO BLACK DO write('MAN');
B. WHILE COLOR=BLACK DO write('MAN');
C. IF COLOR<>YELLOW THEN WRITE('YES');
D. IF WOMAN>RED THEN WRITE('NO');
8．若有定義：TYPE AR＝ARRAY[-2..2,-1..2]OF REAL；它表示AR類型是具有(
)的二維數組
A． 4行5列
B． 4行3列
C． 3行4列
D． 5行4列
9．動態變量的撤消必須使用標準過程( )
A． NOT NEW(P)
B． DELETE(P)
C． DISPOSE(P)
D． ERASE(P)
10．記錄變量進行賦值運算時，要求這兩個記錄變量類型(
)
A． 相同
B． 相容
C． 一致
D． 賦值相容
二、填空題(每空1分，共15分)
1．程序的功能模塊設計是指程序模塊應該按照程序執行的功能來劃分。這種程序模塊應具有簡單性、＿＿＿＿＿＿＿＿＿＿＿和完整性。
2．在PASCAL中，四種標準類型是：整型，實型，＿＿＿＿＿＿＿＿＿＿＿和布爾類型。
3．表達式odd(succ (pred(5)))的值為＿＿＿＿＿＿＿＿＿＿＿。
4．表達式5 * 2 div 4 * 4的值為＿＿＿＿＿＿＿＿＿＿＿。
5．下面程序段的輸出結果是＿＿＿＿＿＿＿＿＿＿＿。
if succ(6)=pred(4) then writeln ('red')
else if pred(7)=succ(5) then writeln('yellow')
else writeln('blue');
6．設ch為字符型變量，則條件(ch<>'x')and(ch<>'y')and(ch<>'z')用集合表示＿＿＿＿＿＿＿＿＿＿＿。
7．標準PASCAL規定，FOR語句執行完畢后，其循環控制變量的值＿＿＿＿＿＿＿＿＿＿＿。
8．設有以下說明：
var a,b,c:integer;
則下面程序段的輸出是＿＿＿＿＿＿＿＿＿＿＿。
a:=5;b:=8;c:=1;
while b-a>c do
begin
a:=b-a;b:=b-a
end;
writeln(b);
9．下面程序的輸出結果是＿＿＿＿＿＿＿＿＿＿＿。
program pp(output);
const m=10;n=5;
var x,y:integer;
procedure p1;
var y:integer;
begin
y:=m+n;x:=m
end;
y:=m*n;
pl;
writeln(y)
end.
10．形式參數有＿＿＿＿＿＿＿＿＿＿＿，變量參數，過程參數和函數參數四種。
11．子界類型屬于有序類型，上，下界屬于同一有序類型，且要求上界＿＿＿＿＿＿＿＿＿＿＿下界。
12．設有以下說明：
type weekday=(sun,mon,tue,wed,thu,fri,sat);
var day;weekday;
以下賦值語句：
day:=succ(wed);
使用函數pred()來實現與上述語句等價的賦值語句是：＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿。
13．在各種類型的數組變量中，只有＿＿＿＿＿＿＿＿＿＿＿數組變量可以作為輸出語句的參數。
14．使用標準函數＿＿＿＿＿＿＿＿＿＿＿，可以判斷是否讀到文本文件一行的行尾字符。
15．設var p:^T；則p是指針變量，而＿＿＿＿＿＿＿＿＿＿＿是類型為T的動態變量。
三、改錯題(指出所給程序中的錯誤，在錯誤位置處打上橫線標記，并注明其錯誤原因。每題4分，共20分)
1．程序功能，求絕對值小于100的任意兩個非零整型數據的積和商。
程序：PROGRAM calcA(input,output);
VAR a,b:INTEGER;
multi,div:REAL;
BEGIN
readln(a,b);
multi=a*b; div=a/b;
writeln(a:4,b:4,multi:8:2,div:8:2)
END.
2．程序功能，找出任意三個整型數據x、y、z中的最小者。
程序：PROGRAM findmin(input,output);
VAR x,y,z,min:INTEGER;
BEGIN
readln(x,y,z);
IF x
IF y
IF z
writeln(x:4,y:4,z:4);
writeln('MINIMUM IS',min:4)
END.
3．程序功能:使用嘗試法檢驗任一自然數是否為素數。
檢驗方法：任一自然數n，如果從2開始到根號n為止的所有自然數都不能整除(除盡)n，則n即為素數(也稱質數)。
程序：PROGRAM prime2(input,output);
VAR i,n: INTEGER;
isprime: BOOLEAN;
BEGIN
readln(n);
FOR i:=2 TO trunc(sqrt(n)) DO
IF nMOD i=0
THEN isprime:=FALSE
ENDDO;
IF isprime
THEN writeln(n,'is a prime!')
ELSE writeln(n,'is not a prime!')
END.
4．程序功能：用自定義的過程計算一個任意整數的隨機數，然后再將計算出的隨機數與測試數據test運算后輸出，整數r的隨機數x可用如下公式計算：
x=((r*168+2159) MDO 32767)/32767
(設機器正整數為32767)
程序：PROGRAM calc(input,output);
CONST test=200.88;
VAR a,b: REAL;
PROCEDURE random(VAR r,rnd:INTEGER);
BEGIN
rnd:=(r*168+2159) MOD MaxInt
md:=trunc(rnd/MaxInt)
END;
BEGIN
random(400+test,a);
random(400-test,b);
writeln('a=',a,'b=',b);
END.
5．程序功能：將數組A中的數據復制到數組B中。
程序：PROGRAM copyarray2(input,output);
VAR a,b: ARRAY[10..1] OF INTEGER;
BEGIN
readln(a);
b:=a;
write(b);
END.
四、閱讀程序(閱讀給出的程序，將其運行結果寫在橫線上。第1、2題各4分，第3、4題各5分，第5題7分，共25分)
(以下↙表示回車換行符)
1． program p5(input,output);
var ch:char;
n:integer;
begin
n:=0;
read(ch);
repeat
n:=n*2+ord(ch)-ord('0');
read(ch)
until ch='#';
write(n)
end.
執行該程序，當輸入1011#↙時，其輸出為：＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
2．program p6(output)
var n,k,i,s:integer;
begin
for n:=9 to 10 do
begin
s:=0;
k:=1;
for i:=1 to n do
begin
s:=s+i*k;
k:=-k
end;
writeln(s)
end
end.
一.單項選擇題(每小題1分，共10分)
1.D
2.C
3.D
4.B
5.A
6.D
7.D
8.D
9.C
10.A
二.填空題(每空1分，共15分)
1.獨立性
2.字符型
3.TRUE(不區分大小寫字母)
4.8
5.yellow(大寫字母不給分)
6.not(ch in ['x','y','z']或not (ch in [‘x.'..'z'])
7.已無定義(或無確定的值，或等價的文字說明)
8.3
9.50
10.值參數
11.必須大于(或大于等于)
12.day:=pred(fri)(不區分大小寫字母)
13.字符(或緊湊字符)
14.eoln或eoln()(不區分大小寫字母)
15.p↑(不區分大小寫字母)
三.改錯題(每題4分，共20分)
注：①錯誤原因說明除這里給出的外，可為其他等同含義的描述。
②錯誤位置指明除這里標明的外，可視具體程序靈活考慮。
評卷時要根據以上兩面三刀點恰當評分。
1.錯誤位置：PROGRAM calcA(input,output);
VAR a,b: INTEGER;
multi,div: REAL;
(1)
BEGIN
readln(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.錯誤位置：PROGRAM findmin (input,output);
VAR x,y,z,min: INTEGER;
BEGIN
readln(x,y,z);
(1) (2) If x(1) (2) If y(1) (2) If z writeln(x:4,y:4,z:4);
writeln('MINIMUM IS',min:4)
END.
錯誤說明：(1)各個關系式中的小于號( (2)THENIF應改為 THEN IF。
評分標準：指出錯誤位置每種及錯誤原因說明每個各1分。
*其他形式的正確程序段參考：
形式一 IF x<=y THEN IF x<=z THEN min:=x;
IF y<=x THEN IF y<=z THEN min:=y;
IF z<=x THEN IF z<=y THEN min:=z;
形式二 IF x THEN IFx<=z
THEN min:=x
ELSE min:=z
ELSE IF y<=z
THEN min:=y
ELSE min:=z;
3.錯誤位置：PROGRAM prime2(input,output);
VAR i,n: INTEGER;
isprime:BOOLEAN;
BEGIN
(1)→readln(n);
FOR i:=2TO trune(squr(n))DO
IF n MOD i=0
THEN isprime:=FALSE
(2)→ENDDO;
IF isprime
THEN writeln(n,'is a prime!')
ELSE writeln(n,'is not a prime!')
END.
錯誤說明：(1)循環語句之前缺少對變量isprime賦初值的語句：isprime:=TRUE;
(2)ENDDO應劃去(為非法、多余成分)。
評分標準：指出錯誤位置每種及錯誤原因說明每個各1分。
4．錯誤位置： PROGRAM calc(input,output);
CONST test=200.88;
VAR a,b: REAL;
PROCEDURE random(VAR r,rnd:INTEGER);
BEGIN
random(400+test,a);(1)(2)
random(400-test,b);(1)(2)
writeln(‘a=',a,'b=',b);
END
錯誤說明：(1)賦值不相容(形參為整型，實參為實型)。
(2)形參為變量參數時實參不能為表達式。
評分標準：指出錯誤位置每種及錯誤原因說明每個各1分。
5．錯誤位置：PROGRAM copyarray2(input,output);
VAR a,b: ARRAY[10..1]OF INTEGER;
(1)
BEGIN
Readln(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.11
2.5(2分) -5(2分)
3.5 2 7
2.7 (每個數字各1分)
1.head→(4)()→(2)()→(4)()→(6)()→(8)(nil)
(各結點值的順序及值正確，每一結點1分，共5分)
2.3 5 7 11 13 17
每個數字各1分
五.編程題(第1、2、題各4分，第3題10分，第4、5題各6分，共30分)
1．①100 to 999(1分)
②i div 100;(1分)
③(a=b)and (a< >c)or(a=c)and(a< >b)or(b=c)and(a< >b)(2分)
2. ①n>0(或n< >0)(1分)
②n:=n div 10 (或 n:=trunc(n/10));(1分)
③inverse:=t(1分)
④inverse(n)(1分)
3. ①w:=b[i](1分)
②1 to 5(1分)
③a[j]:=w mod 10(或a[b-j]:=w mod 10)(1分)
④s:=s+a[j](1分)
⑤writeln(‘',s)(1分)
4. ①file of integer;(1分)
②eof(f1)\ 可交換次序(1分)
③eof(f2)/ (1分)
④num1< >num2(1分)
⑤eof(f1)\可交換次序(1分)
⑥eof(f2)/(1分)
5．①p∧.next< >nil(1分)
②j+1(1分)
③find:=p(1分)
歷年計算機軟考程序設計模擬試題及答案.doc
下載Word文檔到電腦，方便收藏和打印[全文共5768字]
編輯推薦：
下載Word文檔
總結
以上是生活随笔為你收集整理的计算机程序试题答案,历年计算机软考程序设计模拟试题及答案的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： UE 资源网站
- 下一篇： 计算机科学丛书(2014-2018.Q1