pascal矩阵 输入n(1-9),输出如下列所示的方阵(这里n=5)1 3 6 10 15 2 5 9 14 194 8 13 18 247 12 17 21 2411 16 20 23 25
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 02:15:58
![pascal矩阵 输入n(1-9),输出如下列所示的方阵(这里n=5)1 3 6 10 15 2 5 9 14 194 8 13 18 247 12 17 21 2411 16 20 23 25](/uploads/image/z/5426877-21-7.jpg?t=pascal%E7%9F%A9%E9%98%B5+%E8%BE%93%E5%85%A5n%281-9%29%2C%E8%BE%93%E5%87%BA%E5%A6%82%E4%B8%8B%E5%88%97%E6%89%80%E7%A4%BA%E7%9A%84%E6%96%B9%E9%98%B5%EF%BC%88%E8%BF%99%E9%87%8Cn%3D5%291+3+6+10+15+2+5+9+14+194+8+13+18+247+12+17+21+2411+16+20+23+25)
pascal矩阵 输入n(1-9),输出如下列所示的方阵(这里n=5)1 3 6 10 15 2 5 9 14 194 8 13 18 247 12 17 21 2411 16 20 23 25
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
pascal矩阵 输入n(1-9),输出如下列所示的方阵(这里n=5)1 3 6 10 15 2 5 9 14 194 8 13 18 247 12 17 21 2411 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.