急、计算机Pascal高手进

发布网友 发布时间：2024-10-23 19:20

我来回答

共4个回答

热心网友 时间：2024-11-14 20:20

for j := 1 to 5 do a[j] := a[j+1];

热心网友 时间：2024-11-14 20:13

。。。。。。。。。。。。。。。。
a[1]:=a[2];
a[2]:=a[3];
a[3]:=a[4];
a[4]:=a[5];
a[5]:=a[6];

热心网友 时间：2024-11-14 20:16

拉丁方阵
我会你等等
源程序如下：
program lading;
const n=5;
var a,b:array[1..n,1..n]of integer;
i,j,k,q:integer;
begin
for i:=1 to n do
read(a[1,i]);

for j:=1 to n do
for i:=1 to n do
if a[1,j]=i then
begin
b[i,1]:=j;
break;
end;

for i:=1 to n do
begin
for j:=1 to n do
if b[i,1]=a[1,j] then
begin
k:=j;
break;
end;

for j:=2 to n do
begin
q:=k+j-1;
if q>n then q:=q-n;
b[i,j]:=a[1,q];
end;
end;

for j:=1 to n do
for i:=1 to n do
a[j,b[j,i]]:=i;

for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:5);

writeln
end;
readln;
end.
输入第一行数，他会打印后面几行，自己编的嘻嘻

热心网友 时间：2024-11-14 20:16

a[i]:=a[2];a[2]:=a[3];a[3]:=a[4];a[4]:=a[5];a[5]:=a[6];