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 调用cmd命令行并取得返回结果

Delphi 安卓app自动升级

Delphi urunpe

Delphi 删除整个目录

Delphi xe5开发的android手机截屏功能

Delphi 开启内存泄漏报告模式

Delphi 计算程序运行时间

Delphi dateutils.ispm - 判断时间是否是下午

Delphi 的tjpegimage跟image区别

Delphi程序不受windows日期格式的影响

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

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