Question

pascal这个杨辉三角打印有点问题

var
n,i,j:longint;
///////////////////////////////////
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;
//////////////////////////////////
begin
readln(n);
for i:=1 to n do
begin
write('1');
for j:=2 to i do
write(' ',yh(i,j));
writeln;
end;
end.

Answer 1

var

 n,i,j:longint;

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;

begin

  readln(n);

  for i:=1 to n do

  begin

    write('1':(n+1-i)*2);

    for j:=2 to i do

       write(yh(i,j):4);

       writeln;

  end;

end.

Answer 2

事实证明，程序源代码没问题。应该是pascal本身的问题。重装下，或者重下个