怎么用pascal语言编写这个表?

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/05/10 03:24:43

怎么用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列
再问：为什么运行后没有输出？
再答：。。。。。。。。。。。。。。。。。。。。。。。。。你傻啊，按Alt+F5

怎么用pascal语言编写这个表? 这个程序用pascal语言怎么写? 这个程序用pascal语言怎么写. pascal语言编写一个程序十六进制转换,请用free Pascal语言编写代码? 求高手用Pascal语言编写以下程序请高手用Pascal语言编写下列程序用pascal语言编程, 用PASCAL语言编写一个求1+2+3+...+N的程序 2001 USACO 绿组奶牛表达式 (要求用PASCAL语言编写) 用pascal编写的一道题目. noip 用pascal语言设计