Question

PASCAL语言怎么编杨辉三角

Answer 1

program triangle;
function yh(i, j: longint): longint;
begin
if (j = 1) or (j = i) then
yh := 1
else
yh := yh(i - 1, j - 1) + yh(i - 1, j);
end;
var
n, i, j: integer;
begin
assign(input, 'triangle.in');
assign(output, 'triangle.out');
reset(input);
read(n);
close(input);
rewrite(output);
for i := 1 to n do
begin
write('1');
for j := 2 to i do
write(' ', yh(i, j));
writeln;
end;
close(output);
end.