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 通过进程id获取进程名

Delphi 调用cmd获取java 版本号

Delphi xe使用tjsonobject解析json数据

Delphi 处理之文本文件

Delphi fmx关闭安卓程序

Delphi获取内存及cpu信息的函数

Delphi自带的indy控件实现md5加密

Delphi纯api窗体程序

Delphi下载官方svn中的示例原码

Delphi x 的 y 次方

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

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