试题 1 (15%)
阅读下列形成 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[i]=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
