35、program p37(output);
const n=3
type t=1..n;
var i,j,k,s:integer;
a,b,c:array[t,t]of integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=(i div j)*(j div i);
for i:=1 to do
for j:=1 to do
b[i,j]:=10*i+j;
for i:=1 to n do
for j:=1 to n do
begin
s:=0;
for k:=1 to n do
s:=s+a[i,k]*b[k,j];
c[i,j]:=s*2
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);
writeln
end;
for i:=1 to n do
begin
for j:=1 to n do write(b[i,j]:3;)
writeln
end;
for i:=1 to n do
begin
for j:=1 to n do write(c[i,j]:3);
writeln
end
end.
执行该程序,其输出为:
___________________________________________________________________________
五、编程题(本大题共5小题,第1、2题各4分,第3题10分,第4、5题各6分,共30分)阅读给出的程序,在横线是填入适当的语句、表达式或其它成分,以完善程序。
36、读入一列整数,此数列以一个负数结束,分别输出该数列奇数之和与偶数之和。
program prog44(input,output);
var num,oddsum,evensum:integer;
begin
oddsum:0;evensum:=0;
①____________;
while②____________ do
begin
if③____________
then oddsum:=oddsum+num
else evensum:=evensum+num;
④____________
end;
writeln(‘The
oddsum of sequence is:',oddsum:4);
writlen(‘The
evensum of sequence is:',evensum:4)
end.
37、找出在1000以内使p,p+10,p+22都是素数的p的值,所谓素数:只能被1和它本身整除的数,称为素数,例如:2,3,5,7…。
program prog52(output);
var n,p,i:integer;
function isprime(i:integer):boolean:{求素数函数}
var j:integer;
b:boolean;
begin
b:= ①____________ ;
for j:=round(sqrt(i))downto 3 do
if②____________ then b:=false:
③____________
end;
begin
writeln;
for i:=1 to 499 do
begin
p:=2*i+1;
if④____________
then write(‘p=',p:6)
end
end.
38、本题给出的是将数组a元素a[0],a[1],a[2]…,a[n]的值从小到大排序的程序。
算法 :第i项与其余项进行比较,统计比它小的个数,以决定该项的最后位置,引进辅助数组c,如果比ai小的元素有ti个,则放在c的c[ti+1],即c[ti+1]:=a[i]。
program sort(input,output);
const n=100;
type tindex=1..n;
at=array[tindex]of integer;
var i,j,t:integer;
a,c:at
begin
for i:=1 to n do read(a[i]);
for i:=①____________ do
begin
t:=1;
for j:=1②____________ do
if i<>j
then begin
if③____________ then t:=t+1
else if④____________ then t:=t+1
end;
c[t]=a[i]
end;
for i:=1 to n do
begin
⑤____________;
if i mod 10=0 then writeln
end
end.
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
责任编辑:cyth