作业帮怎么用pascal语言编写这个表?1 2 9 10 25 26 |——————|4 3 8 11 24 27 |有规律的啊啊|5 6 7 12 23 28 |有规律的啊啊|16 15 14 13 22 29 |有规律的啊啊|17 18 19 20 21 30 |有规律的啊啊|36 35 34 33 32 31 |————
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/13 04:11:34
怎么用pascal语言编写这个表?1 2 9 10 25 26 |——————|4 3 8 11 24 27 |有规律的啊啊|5 6 7 12 23 28 |有规律的啊啊|16 15 14 13 22 29 |有规律的啊啊|17 18 19 20 21 30 |有规律的啊啊|36 35 34 33 32 31 |————
怎么用pascal语言编写这个表?
1 2 9 10 25 26 |——————|
4 3 8 11 24 27 |有规律的啊啊|
5 6 7 12 23 28 |有规律的啊啊|
16 15 14 13 22 29 |有规律的啊啊|
17 18 19 20 21 30 |有规律的啊啊|
36 35 34 33 32 31 |——————|
怎么用pascal语言编写这个表?1 2 9 10 25 26 |——————|4 3 8 11 24 27 |有规律的啊啊|5 6 7 12 23 28 |有规律的啊啊|16 15 14 13 22 29 |有规律的啊啊|17 18 19 20 21 30 |有规律的啊啊|36 35 34 33 32 31 |————
var
n,round,i,j,k:integer;
a:array[1..100,1..100]of integer;
begin
readln(n);k:=1;
for round:=1 to n do
if round mod 2=1 then
begin
i:=round;
for j:=1 to i do
begin
a[i,j]:=k;
k:=k+1;
end;
for i:=j-1 downto 1 do
begin
a[i,j]:=k;
k:=k+1;
end;
end
else
begin
i:=round;
for j:=1 to i do
begin
a[j,i]:=k;
k:=k+1;
end;
for i:=j-1 downto 1 do
begin
a[j,i]:=k;
k:=k+1;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j],' ');
writeln;
end;
end.
P.S. n表示行、列数；如输入5,则表示5行5列