急！！用Pascal编程求杨辉三角前六行！
答案:2 悬赏:50 手机版
解决时间 2021-04-12 14:57
- 提问者网友：wodetian
- 2021-04-12 08:02
急！用二维数组！
最佳答案
- 五星知识达人网友：人類模型
- 2021-04-12 09:34
program cc
var yh:array[1..10,1..10]of integer;
i,j:integer;
begin
yh[1,1]:=1;
for i:=2 to 10 do
begin
yh[i,1]:=1;yh[i,i]:=1;
for j:=2 to i-1 do
yh[i.j]:=yh[i-1,j-1]+yh[i-1,j];
end;
writeln('yang hui:');
for i:=1 to 10 do
begin
write('':40-3*i);
for j:=1 to i do write(yh[i,j]:6);
writeln;
end;
end.
全部回答
- 1楼网友：不想翻身的咸鱼
- 2021-04-12 10:51
const n=6;
var a:array [1..6,1..6] of longint;
i,j,k,s:integer;
begin
for i:=1 to 6 do
begin
a[i,1]:=1; a[i,i]:=1;
for j:=2 to i-1 do a[i,j]:=a[i-1,j]+a[i-1,j-1];
end;
k:=11;
for i:=1 to n do
begin
for s:=1 to k do write(' ');
k:=k-1;
for j:=1 to i do
write(a[i,j]:6);
writeln;
end;
readln;
end.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯