試題 1 (15%)

閱讀下列形成 4*5 矩陣 A 的流程圖 (a)和形成 5*4 矩陣 B 的流程圖 (b),

把應(yīng)該填入其中的1-12處的字的句, 寫在答卷的對應(yīng)欄內(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 程序, 把應(yīng)該填入________處的字句寫在答卷的對應(yīng)欄里.

[程序說明]

本程序在輸入給定數(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 個(gè)記錄按倉庫編號上升順序分類. 其余記錄的的

順序不變.

一個(gè)記錄物品代碼(deptcode), 倉庫編號(stockno)和單價(jià)(price)三部分組

成.

假定分類好的 100 個(gè)記錄仍放回原文件的前頭, 代替原來的 100 個(gè)記錄.

[程序]

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時(shí), 打印出 ABC ACB BAC BCA CAB CBA

當(dāng)輸入的字符串的長大于 10 時(shí), 取前 10 個(gè)字符.

[程序]

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.