uses SysUtils; var i, j, l, r:integer; a:array[0..17] of integer; n:Integer = 0; begin a[0]:=0; a[1]:=1; while ((n < 1)or(n > 16)) do begin Write('请输入杨辉三角形的行数:'); Readln(n); end;
for i :=1 to n do begin l:=0; for j:=1 to i do begin r :=a[j] ; a[j]:=l + r; l :=r; write(a[j]); Write(' '); end; Writeln; end; Readln; end.
请发表评论