Delphi 杨辉三角

本文整理自网络，侵删。

 代码: 
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. 
 

相关阅读 >>

Delphi连接access提示密码无效解决一例

Delphi xe5中移动平台的字符串要注意的事项

Delphi2010 无法继承窗体的bug

Delphi 判断两个时间差是否在一个指定范围内

Delphi实现自我删除

Delphi中获取guid的函数

Delphi sqlite vacuum 压缩数据库体积

Delphi xe8安卓下汉字转gb2312

Delphi 让socket支持域名上线

Delphi 调用单元unit代码

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 杨辉三角