作业帮 > 综合 > 作业

pascal矩阵 输入n(1-9),输出如下列所示的方阵(这里n=5)

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/03/28 18:32:39
pascal矩阵 输入n(1-9),输出如下列所示的方阵(这里n=5)
1 3 6 10 15
2 5 9 14 19
4 8 13 18 24
7 12 17 21 24
11 16 20 23 25
var
i,j,k,o,p,n,m:longint;
a:array[1..9,1..9]of longint;
begin
i:=1; j:=1; k:=1;
read(n);
while kn then
begin
j:=1+i-n;i:=n;
end;
end;
end;
for i:=1 to n do
for j:=1 to n do
if j=n then writeln(a[i,j]:3) else write(a[i,j]:3);
end.