求哪位pascal高手帮我写一下杨辉三角形的程序，输入n就输出n行。
展开全部
var p:array[0..10000]of longint;
a,b,n:longint;
begin
p[0]:=1;
read(n);
for a:=0 to n-1 do
begin
for b:=a downto 0 do
begin
inc(p[b],p[b-1]);
write(p[b],' ');
end;
writeln;
end;
end.
a,b,n:longint;
begin
p[0]:=1;
read(n);
for a:=0 to n-1 do
begin
for b:=a downto 0 do
begin
inc(p[b],p[b-1]);
write(p[b],' ');
end;
writeln;
end;
end.
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
