帕斯卡（Pascal）三角形输出居中对齐实现技术求助

嘿，我之前也踩过控制台输出对齐的坑，其实核心就是先确定整个三角形的最大宽度，再给每一行补左侧空格，结合你的Pascal代码，给你几个可行的实现思路：

核心思路：先算总宽度，再补空格居中 #

控制台输出居中的关键是，每一行的起始位置要以整个三角形最宽的那行为基准来计算。步骤很清晰：

1. 给每个数字设定固定的输出宽度（比如占4个字符位），再加上数字之间的分隔空格，这样每一行的总长度能精确计算。
2. 算出最后一行（最宽的行）的总长度，作为整个三角形的基准宽度。
3. 对每一行，计算需要填充的左侧空格数：(基准宽度 - 当前行宽度) div 2，先输出这些空格，再输出该行的数字。

具体代码调整方案 #

第一步：修正阶乘函数（避免小数乱对齐） #

你的fat函数返回real类型，会导致帕斯卡数出现小数（比如1.000000），对齐会乱糟糟的。改成整数类型更合适（用longint可以支持到12阶的帕斯卡三角形，足够日常使用）：

Function fat(X: byte): longint; // 改成longint返回整数
Var fat1: longint;
Begin
fat1:=1;
If X <= 1 Then fat:=1
Else Begin
Repeat
fat1:=fat1 * X;
X:=X - 1;
Until X <= 1;
fat:=fat1;
End;
End;

第二步：实现居中输出的主逻辑 #

这里用固定数字宽度+左侧补空格的方式，直接整合到你的代码里：

Program Tri_pas;
Uses Crt;
Var linha, ordem, a, b: byte;
    max_width, current_width, space_count: integer;

Function fat(X: byte): longint;
Var fat1: longint;
Begin
fat1:=1;
If X <= 1 Then fat:=1
Else Begin
Repeat
fat1:=fat1 * X;
X:=X - 1;
Until X <= 1;
fat:=fat1;
End;
End;

Begin
  Write('Digite a ordem do triângulo: '); // 输入三角形阶数
  Readln(ordem);

  // 计算最宽行的总宽度：每个数字占4位，数字之间留1个空格
  max_width := ordem * 4 + (ordem - 1) * 1; 

  for linha := 1 to ordem do
  begin
    // 计算当前行的总宽度
    current_width := linha * 4 + (linha - 1) * 1;
    // 计算左侧需要填充的空格数
    space_count := (max_width - current_width) div 2;

    // 先输出左侧空格
    Write(' ':space_count);

    // 输出当前行的帕斯卡数
    for a := 0 to linha-1 do
    begin
      // 计算组合数C(linha-1, a)，用整数除法避免小数
      b := fat(linha-1) div (fat(a) * fat(linha-1 - a));
      Write(b:4); // 每个数字固定占4位，右对齐更整齐
      if a <> linha-1 then Write(' '); // 数字之间加空格，最后一个不加
    end;
    Writeln; // 换行
  end;
  Readln; // 暂停看结果
End.

另一种更灵活的方案：预存所有行再居中 #

如果想后期灵活调整数字格式（比如改成占5位），可以先把每一行的内容存成字符串，再统一计算居中：

// 在主程序里替换成这段逻辑
Var
  lines: array of string;
  i, max_len: integer;
  s: string;
Begin
  Write('Digite a ordem do triângulo: ');
  Readln(ordem);

  SetLength(lines, ordem);
  max_len := 0;

  // 第一步：生成所有行的字符串并记录最长长度
  for linha := 1 to ordem do
  begin
    lines[linha-1] := '';
    for a := 0 to linha-1 do
    begin
      b := fat(linha-1) div (fat(a) * fat(linha-1 - a));
      Str(b:4, s); // 把数字转成4位字符串
      lines[linha-1] := lines[linha-1] + s;
      if a <> linha-1 then lines[linha-1] := lines[linha-1] + ' ';
    end;
    if Length(lines[linha-1]) > max_len then max_len := Length(lines[linha-1]);
  end;

  // 第二步：输出每一行，居中对齐
  for i := 0 to ordem-1 do
  begin
    Writeln(' ':((max_len - Length(lines[i])) div 2) + lines[i]);
  end;
  Readln;
End.

额外技巧：用Crt的GotoXY实现屏幕居中 #

如果想让整个三角形在控制台屏幕中间（而不是相对自身居中），可以用Crt的GotoXY函数定位：

// 在输出每一行前添加这段代码
x_pos := (80 - current_width) div 2; // 假设屏幕宽度是80列
y_pos := linha + 5; // 从第5行开始输出
GotoXY(x_pos, y_pos);

这种方式适合固定大小的控制台窗口，调整80和5可以适配不同的屏幕尺寸。

内容的提问来源于stack exchange，提问作者qwapp