2
3
4
5
6
7
8
9
10
試題 1 ( 15分 )
閱讀下列程序流程圖 ,從供選擇的答案中找出應(yīng)該填入 ( )處的字句
,并寫在答卷的對應(yīng)欄內(nèi) .
供選擇的答案:
(a) 2, 0, -3, 7 (b) 0, -3, 2, 7 (c) -3, 0, 7, 2 (d) 7, 2, 0, -3
(e) 2, 0, -3, -3 (f) -3, 0, 2, 7 (g) 2, 2, 0, -3 (h) 2, 0, 7, -3
設(shè) N=4 ,數(shù)組 A 的初值為 2,0,-3,7 (即 A[1]=2,A[2]=0,A[3]=-3,A[4]=7 ).
<1> 程序執(zhí)行完后, A 的值為 ( ).
<2> 若原流程圖中,僅把I)框改為 I->J,則程序執(zhí)行完后,A的值為( ).
<3> 若原流程圖中,僅把III)框改為J:N-1,則程序執(zhí)行完后,A的值為( ).
<4> 若原流程圖中,僅把II)框改為 A[I]->A[J]
A[J]->T
T->A[I]
則程序執(zhí)行完后, A 的值為 ( ).
試題 2 (15)
閱讀下列求 S= X 的流程圖, 從供選擇的答案中找出應(yīng)填入 a-g 處的字句.
供選擇的答案
1,2: a. 讀入X b. 讀入S c. 讀 入j d. 讀入N e. 讀入X
3,5: a. i:2 b. i:3 c. i:4 d. i:N e. j:2 f. j:3 g. j:4 h. i:j i. j:N
4: a.S*X ->S b. M*X ->S c. S+M ->S d. S+M ->S e. S+X ->S f. M+X ->S
6,7: a. <= b. < c. = d. >= e. > f. <>
閱讀下列 pascal 程序, 把應(yīng)該填入_______處的字句寫在答卷的對應(yīng)欄內(nèi).
試題3 ( 15分 )
[程序的說明] 本程序以如下格式打印楊輝三角形 (又稱pascal三角形 )的前10行.
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
[程序]
program pascaltriangle (output);
const lastrow = 10;
var row,col:2..lastrow;
fe:1..lastrow;
pascal: array [1..lastrow] of integer;
begin pascal[1] := 1;
writeln (pascal[1]);
for row := 2 to lastrow do
begin pascal[row] := 1;
for col := _________ do
pascal[col] := pascal[_______] + pascal[_______];
for fe := 1 to _______ do
write (pascal[fe]);
__________
end
end.
試題 4 (20分)
[程序的說明] 本程序用來打印讀入的正文, 并統(tǒng)計和打印該正文中所包含的行,
句和字的數(shù)目以及娒扛鱟幟賦魷值鈉刀*. 規(guī)定句號(.)作為句子的結(jié)束, 不作它
用 ; 字僅由字母組成且每個字不跨行.
[程序]
program textprocess (input,output);
var ch: char; g: boolean; i: integer;
letter: array [`A'..`Z'] of integer;
begin g:=false;
for ch:=`A' to `Z' do letter [ch]:=0;
wordnum:=0; sentencenum:=0;
linenum:=0;
read (ch);
while not eof do
if not eoln then
if ________ then
begin while (ch >= _______ ) and (ch <=_______ )do
begin write (ch);
letter [ch] := letter[ch] + 1;
____________ ;
g := true
end;
if g then
begin ___________;
wordnum := wordnum + 1
end
else begin write (ch); read (ch)
end
end
___________ begin _________________________ ;
write (ch); read (ch)
end
else begin _________________________ ;
writeln; read (ch)
end;
writeln; writeln;
writeln (`linenum = ' , linenum);
writeln (`sentencenum = ' , sentencenum);
writeln (`wordnum = ' , wordnum);
for ch:=______ to ______ do
writeln (ch:3,`:',letter[ch] :6);
writeln
end.
試題 5 ( 25分 )*
[程序的說明] 讀入一串整數(shù), 按遞增次序枸成一個二叉樹.例如: 對以下八個數(shù):
97, -426, 278, 9, -627, 301, 156, 98 構(gòu)成如右圖所示的二叉樹.
[程序]
program binarytree (input,output);
type trees = ^boxes;
boxes = record value:integer;
left,right:trees
end;
var valofnode: integer;
root: trees
procedure add (int: integer; var t: trees);
begin if t = nil then
begin ________________ ;
with t^ do
begin value := ____________ ;
left := ____________ ;
right := ____________
end
end
else with t^ do
if ___________ then
add(int,left)
else ____________
end; {add}
begin {main program}
root := nil;
repeat read (valofnode);
________________
until eof
end.
轉(zhuǎn)帖于:軟件水平考試_考試吧- 推薦給朋友
- 收藏此頁
·2008年下半年軟考信息系統(tǒng)項目管理師試題(下午II) (2008-12-21 22:39:30)
·2008年下半年計算機軟考網(wǎng)絡(luò)工程師試題(下午) (2008-12-21 22:26:13)
·2008下半年軟考系統(tǒng)分析師考試試題(下午)II (2008-12-21 22:20:49)
·2008年下半年計算機軟考程序員試題(下午) (2008-12-21 22:18:18)
·2008年下半年計算機軟考程序員試題(上午) (2008-12-21 22:11:38)
如果軟件水平考試網(wǎng)所轉(zhuǎn)載內(nèi)容不慎侵犯了您的權(quán)益,請與我們聯(lián)系,我們將會及時處理。如轉(zhuǎn)載本軟件水平考試網(wǎng)內(nèi)容,請注明出處。