pascal 输出杨辉三角的详细解释。
1个回答
展开全部
支持1-13的杨辉三角
Var
a:array[1..13,1..13] of longint;
i,j,n:longint;
Begin
readln(n);
a[1,1]:=1;
for i:=2 to n do
Begin
a[i,1]:=1;
for j:=2 to i-1 do
a[i,j]:=a[i-1,j]+a[i-1,j-1];
a[i,i]:=1;
End;
for i:=1 to n do
Begin
for j:=1 to 2*n-2*i do
write(' ');
for j:=1 to i do
write(a[i,j]:4);
writeln;
End;
End.
Var
a:array[1..13,1..13] of longint;
i,j,n:longint;
Begin
readln(n);
a[1,1]:=1;
for i:=2 to n do
Begin
a[i,1]:=1;
for j:=2 to i-1 do
a[i,j]:=a[i-1,j]+a[i-1,j-1];
a[i,i]:=1;
End;
for i:=1 to n do
Begin
for j:=1 to 2*n-2*i do
write(' ');
for j:=1 to i do
write(a[i,j]:4);
writeln;
End;
End.
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
黄先生
2024-12-27 广告
矩阵切换器就是将一路或多路视音频信号分别传输给一个或者多个显示设备，如两台电脑主机要共用一个显示器，矩阵切换器可以将两台电脑主机上的内容renyi切换到同一个或多个显示器上；迈拓维矩矩阵切换器种类齐全，性价比高，支持多种控制方式，为工程商采...
点击进入详情页
本回答由黄先生提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
