主页 / 问题 / 611462
Accepted
ilya1099
Asked:2020-01-06 16:31:04 +0000 UTC2020-01-06 16:31:04 +0000 UTC

使用 Pascal 中数组中的数据迭代选项

  • 772

我有一系列从a到的字母c。如何使这些字母的所有可能组合都显示出来，仅在开头a, b, c，然后aa,ab,ac,ba,bb，等等。直到数组中的所有值都被移动。枚举没有问题，但是如何让枚举结束后，比如2个字母，她又加了一个。

pascalabc.net

1 个回答

  1. Best Answer

    要遍历所有子集，请使用二进制枚举。
    算法：

    令数组/集合的长度 = 我们l
    遍历所有从0到2^l - 1
    子集。因此，“0”表示该元素在子集中不存在。

    简而言之，代码是：

    Function bin(n: integer;): string; // Функция перевода в двоичную с.с.
... 

Function step(a, n: integer;): longint; // Функция возведения в степень
...

Var ...;
Begin
...
//a - массив подмножества которого надо найти
For i:=0 to step(2, l) - 1 do
begin
  binar:= bin(i);
  for j:=1 to l do if binar[j] = '1' then write(a[j]);
  writeln;
end;
...
End.

    示例：
    a = ['a', 'b', 'c']
    i = 5
    bin(i) = '101'
    子集 - ('a', 'c')
    控制台输出 - ac
    我们从该行：
    第一个元素 - 统一，输出数组的第一个元素a。
    第二个元素为零，我们不输出任何东西。
    第三个元素是一个，我们将显示数组的第三个元素a。

    • 1

相关问题