
编写一个程序,输出杨辉三角形,其一般形式为,1.1-1.1.2.1-1.3.3.1-1.4.6.4.1-1.5.10.10.5.1要求
2个回答
展开全部
const n=6;
var a:array[1..n,1..n]of integer;
i,j,k:integer;
begin
a[1,1]:=1;
for i:=2 to n do
for j:=1 to i do
if j=1 then a[i,j]:=a[i-1,j]
else a[i,j]:=a[i-1,j-1]+a[i-1,j];
for i:=1 to n do begin
for j:=1 to n-i do write(a[i,j],' ');
for j:=1 to i do write(a[i,j],' ');
writeln;
end;
end.
我是打的三角形,你要打一排的话就自己改吧
var a:array[1..n,1..n]of integer;
i,j,k:integer;
begin
a[1,1]:=1;
for i:=2 to n do
for j:=1 to i do
if j=1 then a[i,j]:=a[i-1,j]
else a[i,j]:=a[i-1,j-1]+a[i-1,j];
for i:=1 to n do begin
for j:=1 to n-i do write(a[i,j],' ');
for j:=1 to i do write(a[i,j],' ');
writeln;
end;
end.
我是打的三角形,你要打一排的话就自己改吧
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询