Hilfe en algorithmus zu entwickeln...

[negaH]

mit

Delphi-Quellcode:

procedure Test;
var
  Numbers: array of Integer;
  I: Integer;
begin

  SetLength(Numbers, 6);
  for I := Low(Numbers) to High(Numbers) do
    Numbers[I] := 1 shl I;

  WriteLn( Kombinationen(Numbers):5 );
end;

wird bei mir

Code:

    1
    3
    7
   15
   31
   63
   47
   23
   55
   39
   11
   27
   59
   43
   19
   51
   35
    5
   13
   29
   61
   45
   21
   53
   37
    9
   25
   57
   41
   17
   49
   33
    2
    6
   14
   30
   62
   46
   22
   54
   38
   10
   26
   58
   42
   18
   50
   34
    4
   12
   28
   60
   44
   20
   52
   36
    8
   24
   56
   40
   16
   48
   32
   63

ausgegeben. Delphi 5.

Gruß hagen