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 静态/动态调用dl

Delphi 获取当前系统语言环境（en，fr，ja等）

Delphi生成的webservice appdebug的程序，编译时出错

Delphi fdconnection1获取查询语句的第一个值

winapi 字符及字符串函数(4): charupperbuff - 把缓冲区中指定数目的字符转大写

Delphixe 如何调用stringtojstring

Delphi idmessage1 idsmtp1 发送邮件支持https

Delphi 如何在桌面添加右键菜单

Delphi 十六进制数转换十进制数

Delphi利用scrollbox实现图像漫游

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

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