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 外壳扩展创建快捷方式和获取快捷方式的目标对象

Delphi textfile读取文本文件

Delphi spcomm 接收数据不完整

Delphi tgauge类的定义在哪个单元中定义的?

Delphi xe [dcc32 fatal error] f2039 could not create output file 问题的解决

Delphi x 的 y 次方

Delphi 如何确定access数据库中存在某一个已知名的表

Delphi access数据库 主键

Delphi savelog 日志

Delphi 把流中的字符串转换为 utf 格式

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    暂无评论...