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中的free和nil

Delphi 最简单的升级下载代码

Delphi 创建一个进程并读取其控制台输出内容

Delphi打开关闭光驱

Delphi拷贝整个目录(包括子目录)

Delphi 随意将函数执行权限提高到ring0源代码

Delphi 校验文件大小

解决 Delphi 程序在不同操作系统中 shellexecute 调用 chrome.exe 偶尔无效的问题

Delphi 禁用本地网络连接/启用本地网络连接

Delphi 三层架构简单例子(经测试成功)

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

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