代码: program Project1; {$APPTYPE CONSOLE} uses SysUtils; var Num :Array of Array of Integer; i,ii,p,x :Integer; begin Write('请输入杨辉三角的行数:'); Readln(x); SetLength(Num,x+1,x+1); Num[0,0] :=1; Num[1,1] :=1; p :=0; for i :=x downto 1 do begin inc(p); for ii :=x downto p do Write(' '); for ii :=x downto i do begin Num[p,x-ii+1] :=Num[p-1,x-ii+1]+Num[p-1,x-ii+1-1]; Write(Num[p,x-ii+1]:5); end; Writeln; end; //Over Readln; end. |
|