Pascal程序计数器j为何反向递减而非递增？求技术解答

首先，我注意到你提到的“计数器j递减”有点让人困惑——因为你的PrintCards过程里的局部变量j是通过for j := 1 to 21 do定义的，这在Pascal里是严格递增的循环，理论上不可能出现递减的情况。我猜你可能是看到输出的卡片顺序不符合预期，或者在调试时误看了未被使用的全局变量j（这个全局j在整个程序里从来没被赋值或调用过，初始值是随机的，可能会让你产生误解）。

接下来，我们来排查代码里的实际问题，这些问题可能导致程序行为异常：

1. Randomize被错误地放在循环内部 #

你在get_cards函数的循环里每次都调用Randomize，这会重置随机数生成器的种子。因为循环执行速度很快，每次调用Randomize时系统时间几乎没有变化，会导致生成的随机数重复率极高——你会发现程序反复尝试选中同一个卡片索引，直到系统时间跳变，这会让卡片填充过程变得异常缓慢，甚至看起来像是“卡住”。

正确的做法是只在程序开头调用一次Randomize，比如在begin块的最开始：

begin
  Randomize; // 只初始化一次随机数生成器
  get_cards(cards);
  PrintCards(shuffledCards);
  readln;
end.

2. RandomRange的参数范围错误 #

在Pascal（比如Free Pascal或Delphi）中，RandomRange(A, B)返回的是大于等于A、小于B的整数。你写的RandomRange(1,21)只能生成1到20的索引，这意味着数组的第21个元素（cards[21]）永远不会被选中！

这样会导致两个问题：

• shuffledCards[21]永远不会被赋值，输出时会显示未初始化的垃圾值
• 循环Until y >=21会在y=21时停止，但此时你只填充了20张卡片，少了一张

你需要把参数改成RandomRange(1, 22)，这样才能覆盖1到21的所有索引：

x := RandomRange(1,22);

3. 依赖全局变量shuffledCards存在风险 #

你的get_cards函数依赖全局的shuffledCards来存储结果，这可能会导致意外的作用域问题。更好的做法是在函数内部创建局部数组，避免全局变量污染：

function get_cards(var cards: array of string): Tcards;
var
  localShuffled: Tcards;
  y, x: integer;
begin
  y := 1;
  Repeat
    x := RandomRange(1,22);
    If cards[x] <> 'Done' then begin
      localShuffled[y] := cards[x];
      y := y + 1;
      cards[x] := 'Done';
    end
  Until y > 21; // 这里改成y>21，确保填充完21张卡片
  result := localShuffled;
end;

修正后的完整代码 #

把这些问题修复后，程序应该能正常随机洗牌并按顺序输出卡片，你也不会再看到奇怪的“计数器递减”现象了：

program NEACardTrick;
{$APPTYPE CONSOLE}
uses SysUtils, Math;

type Tcards = array[1..21] of string;

var
  cards: Tcards = ('H A', 'H 2', 'H 3', 'H 4', 'H 5', 'H 6', 'H 7',
                   'S A', 'S 2', 'S 3', 'S 4', 'S 5', 'S 6', 'S 7',
                   'D A', 'D 2', 'D 3', 'D 4', 'D 5', 'D 6', 'D 7');
  shuffledCards:Tcards;
  x: integer;

function get_cards(var cards: array of string): Tcards;
var
  localShuffled: Tcards;
  y, x: integer;
begin
  y := 1;
  Repeat
    x := RandomRange(1,22);
    If cards[x] <> 'Done' then begin
      localShuffled[y] := cards[x];
      y := y + 1;
      cards[x] := 'Done';
    end
  Until y > 21;
  result := localShuffled;
end;

procedure PrintCards(var shuffledCards: Tcards);
var j: integer;
begin
  for j := 1 to 21 do
    writeln(shuffledCards[j]);
end;

begin
  Randomize;
  shuffledCards := get_cards(cards);
  PrintCards(shuffledCards);
  readln;
end.

最后再解释一下你看到的“j递减”：大概率是调试时误看了未被使用的全局变量j（它的初始值是随机的，没有被程序修改），而实际负责输出的局部变量j一直是递增的。修正上述代码后，程序的行为应该会符合你的预期。

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