Einzelnen Beitrag anzeigen

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.737 Beiträge
 
Delphi 6 Enterprise
 
#7

AW: Zahlenkombinationen generieren

  Alt 9. Mai 2011, 17:28
Vom Ansatz her könnte es wie unten gehen. Da gerade ohne Delphi nur ungetestet.

Delphi-Quellcode:
var
  stellen, max, i, j : Integer;
  pos : Array of Integer;
  s : String;
begin
  stellen := 3;
  max:= 15;
  SetLength(pos, stellen);
  
  for i:= 0 To stellen-1 do
    pos[i]:=1;

  for i:= 1 to max*stellen
    begin
      s:='';
      Inc(pos[0]);

      for j:=0 To stellen -1 do
        if pos[j]=max+1 then
          begin
            pos[j]:=1;
            Inc(pos[j+1]);
          end;


      for j:=0 To stellen -1 do
        s:=s+IntToStr(pos[j]);
      Memo_Output.Lines.Add(s);
    end;
end;
Edit:
for i:= 1 to max*stellen //Das muss natürlich max hoch stellen sein, wie ich bei BUG gesehen habe
Ralph

Geändert von Jumpy ( 9. Mai 2011 um 17:46 Uhr) Grund: Variable fehlte
  Mit Zitat antworten Zitat