首页
后端开发
Delphi
Delphi实现杨辉三角算法

Delphi实现杨辉三角算法

19 次浏览 0 条评论
rar
rar

杨辉三角，也称帕斯卡三角形，其数字排列呈现独特的规律性，可使用 Delphi 语言高效实现。

核心思想是利用杨辉三角形的性质：每个数字等于其上方两数之和。边界上的数字为 1。

以下是使用 Delphi 实现杨辉三角形的示例代码：

program PascalTriangle;

uses
  SysUtils, Math;

var
  i, j, rows: Integer;
  pascal: array of array of Integer;

begin
  Write('请输入杨辉三角形的行数: ');
  ReadLn(rows);

  SetLength(pascal, rows + 1, rows + 1); 

  // 初始化杨辉三角形
  for i := 0 to rows do
  begin
    pascal[i, 0] := 1; // 每行第一个元素为 1
    pascal[i, i] := 1; // 每行最后一个元素为 1
  end;

  // 计算杨辉三角形
  for i := 2 to rows do
    for j := 1 to i - 1 do
      pascal[i, j] := pascal[i - 1, j - 1] + pascal[i - 1, j];

  // 打印杨辉三角形
  for i := 0 to rows do
  begin
    for j := 0 to rows - i -1 do 
      Write('  '); // 打印空格以对齐

    for j := 0 to i do
      Write(pascal[i, j]:4);
    WriteLn;
  end;
  ReadLn;
end.

这段代码首先创建一个二维数组 pascal 来存储杨辉三角形。然后，它使用嵌套循环计算每个元素的值，并使用 Write 和 WriteLn 过程打印三角形。

rar 文件大小：174.17KB