pascal矩阵

帕斯卡矩阵

帕斯卡矩阵：由杨辉三角形表组成的矩阵称为帕斯卡(Pascal)矩阵。
杨辉三角形表是二次项 (x+y)^n 展开后的系数随自然数 n 的增大组成的一个三角形表。
如4阶帕斯卡矩阵为：
Pascal(4)=
[1 1 1 1
1 2 3 4
1 3 6 10
1 4 10 20]
pascal(n)是矩阵实验室（Matrix Laboratory）MATLAB中的命令，利用pascal（）命令可以在矩阵实验室中方便的得到任意阶帕斯卡矩阵。设A为帕斯卡矩阵，则在MATLAB命令窗口中输入A=pascal(n)，n为正整数，可得到阶数为n的帕斯卡矩阵。

const max=100;
var a:array[1..max,1..max]of longint;
n,i,j,sum,m,mm:longint;
begin
readln(n);
i:=1;j:=1;m:=n;mm:=1;
while sum<>n*n do begin
for i:=mm to m do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
for j:=mm+1 to m do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
for i:=m-1 downto mm do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
for j:=m-1 downto mm+1 do begin
inc(sum);
a[i,j]:=sum;
if sum=n*n then break;
end;
dec(m);inc(mm);
end;
for j:=1 to n do begin
for i:=1 to n do write(a[i,j]:4);
writeln;
end;
readln;
end.