打印杨辉三角行的前N行数据
来源:百度知道 编辑:UC知道 时间:2024/07/07 18:04:01
pascal(这里的n<=1000)
var
n,i,j:longint;
a:array[1..1000,1..1000] of longint;
begin
readln(n);
for i:=1 to 1000 do a[i,1]:=1;
for i:=2 to n do
for j:=2 to i do
begin
a[i,j]:=a[i-1,j-1]+a[i-1,j];
end;
for i:=1 to n do
begin
for j:=1 to i do
write(a[i,j],' ');
writeln;
end;
end.