試題 1 (15%)
閱讀下列形成 4*5 矩陣 A 的流程圖 (a)和形成 5*4 矩陣 B 的流程圖 (b),
把應該填入其中的1-12處的字的句, 寫在答卷的對應欄內(nèi).
矩陣 A
1 2 3 4 5
6 7 8 9 10
11 12 13 14 15
16 17 18 19 20
矩陣 B
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
17 18 19 20
試題 2 (15%)
閱讀下列 pascal 程序, 把應該填入________處的字句寫在答卷的對應欄里.
[程序說明]
本程序在輸入給定數(shù) n 后,打印出所有不超過 n 的, 其平方為回文的數(shù).
回文指的的是字符串兩端的字符左右對稱. 例如 1, 22, 121, 121, 4224 等均
是回文.
[程序]
program palindrome(input,output);
const max=1000;
var n,m,i,j,s,:integer;
d:array [1..max] of integer;
begin
read(n);
for m:=1 to n do
begin
______________ ;
j:=0;
while ________ do
begin j:=j+1;
d[j]:=s mod 10;
______________;
end;
i:=1;
while (d[i]=d[j]) and _________ do
begin i:=i+1; j:=j-1;
end;
if __________ then writeln(m)
end
end.
試題 3 (20%)
[程序說明]
本程序?qū)}庫文件的前 100 個記錄按倉庫編號上升順序分類. 其余記錄的的
順序不變.
一個記錄物品代碼(deptcode), 倉庫編號(stockno)和單價(price)三部分組
成.
假定分類好的 100 個記錄仍放回原文件的前頭, 代替原來的 100 個記錄.
[程序]
program sort (stockfile,f,input,output);
const max=100;
type stockrecord=record deptcode:char;*
stockno:integer;
price:real
end
stock=array [1..max] of stockrecord;
var stocklist : stock;
f,stockfile : file of stock;
i,posnsmallest,next,next : integer;
begin reset (stockfile); rewrite(f);
while not eof(stockfile) do
begin f^:=stockfile^;; put(f); get(stockfile)
end;
reset(stockfile);
stocklist:==________________;
for i:=1 to max-1 do
begin posnsmall:=i;
for next:=________ to max do
if _____________________________<stocklist[posnsmall].stokno
then posnsmall:=_______;
temp:=stocklist[i];
stocklist[i]:=____________________________________;
________________________________:temp;;
end;
rewrite(stockfile); stockfile^:=_____________;
put(_________);
_____________; get(f);
while not eof(f) do
begin stockfile^:=f^;
put(stockfile); get(f)
end;
rewrite(f);
end.
試題 4 (25%)
[程序說明]
本程序輸入字符串長度(不為0)的字符串的所有排列. 例如,
輸入長度為 3 的字符ABC時, 打印出 ABC ACB BAC BCA CAB CBA
當輸入的字符串的長大于 10 時, 取前 10 個字符.
[程序]
program anagram(input,output);
var i,length:integer;
letter,newword:array[1..10] of char;
used:array[1..10] of boolean;
procedure permute(countdown:integer);
var j:integer;
begin
if countdown=___
then begin
for i:=______ downto __ do write(newword[i]);
writeln
end
else begin
for j:=1 to _________ do
begin if not used[j]
then begin
used[j]:=ture;
newword[countdown]:=letter[j];
_____________________________;
__________:=false
end
end
end
end;(*permute*)
begin
writeln('please type in----->);
read(length);
if __________ then length:= 10;
for i:=1 to length do
begin
used[i]:=false; read(letter[i])
end
permute(length)
end.
轉(zhuǎn)帖于:軟件水平考試_考試吧
- 推薦給朋友
- 收藏此頁
·2008年下半年軟考信息系統(tǒng)項目管理師試題(下午II) (2008-12-21 22:39:30)
·2008年下半年計算機軟考網(wǎng)絡工程師試題(下午) (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)容不慎侵犯了您的權益,請與我們聯(lián)系,我們將會及時處理。如轉(zhuǎn)載本軟件水平考試網(wǎng)內(nèi)容,請注明出處。