閱讀下列形成 4*5 矩陣 A 的流程圖 (a)和形成 5*4 矩陣 B 的流程圖 (b),
把應該填入其中的1-12處的字的句, 寫在答卷的對應欄內.
矩陣 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 程序, 把應該填入________處的字句寫在答卷的對應欄里.
[程序說明]
本程序在輸入給定數 n 后,打印出所有不超過 n 的, 其平方為回文的數.
回文指的的是字符串兩端的字符左右對稱. 例如 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=d[j]) and _________ do
begin i:=i+1; j:=j-1;
end;
if __________ then writeln(m)
end
end.
試題 3 (20%)
[程序說明]
本程序將倉庫文件的前 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;
stocklist:=____________________________________;
________________________________: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);
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:=false; read(letter)
end
permute(length)
end.
延伸閱讀
文章來源于領測軟件測試網 http://www.kjueaiud.com/