FREE PASCAL编程问题

来源：百度知道 编辑：UC知道 时间：2024/05/05 00:05:56
用二维数组来做出这样一个图
程序中要用到REPEAT..UNTIL语句
1 2 6 7 15
3 5 8 14 16
4 9 13 17 22
10 12 18 21 23
11 19 20 24 25
谢谢!!
要巧一点啊．！！用上IF语句的．．．太长了不好啊

program Project1;
var a:array[0..10000,0..10000]of integer;
i,j,k,l,m,n:integer;
begin
k:=0;
repeat
k:=k+1;
case k of
1:a[1,1]:=k;
2:a[1,2]:=k;
3:a[2,1]:=k;
4:a[3,1]:=k;
5:a[2,2]:=k;
6:a[1,3]:=k;
7:a[1,4]:=k;
8:a[2,3]:=k;
9:a[3,2]:=k;
10:a[4,1]:=k;
11:a[5,1]:=k;
12:a[4,2]:=k;
13:a[3,3]:=k;
14:a[2,4]:=k;
15:a[1,5]:=k;
16:a[2,5]:=k;
17:a[3,4]:=k;
18:a[4,3]:=k;
19:a[5,2]:=k;
20:a[5,3]:=k;
21:a[4,4]:=k;
22:a[3,5]:=k;
23:a[4,5]:=k;
24:a[5,4]:=k;
25:a[5,5]:=k;
end;
until k=25;
fo