While schleife endlos? oder nicht?

[_frank_]

der arme JumpFrog...wir finden mehr Fehler als ihm lieb ist.

einen hab ich noch:
er vergleicht immer nur das aktuelle feld mit der aktuellen Zufallszahl.es sind also doppelte werte möglich. ich denke mal, er versucht mit der inneren schleife dies zu verhindern. dazu müsste er aber feld[c] mit loZahl vergleichen und auch nur bis a (=aktuelle position) die schleife laufen lassen.

natürlich c zurücksetzen, was Chemiker schon angedeutet hat ;) oder das gleich mit for-schleifen machen...

@frog:schau dir mal den algo an, der ist auch für deinen Zweck verwendbar:
http://www.delphipraxis.net/internal...=998529#998529

Gruß Frank

[Chemiker]

Hallo JumpFrog,

Delphi-Quellcode:

procedure TfrmLotto.btMeineVersionClick(Sender: TObject);
var
  i, intTip: integer;
  LottoArr: Array[1..49] of Boolean;
begin
  for I := 1 to high(LottoArr) do  
  begin
    LottoArr[i]:= FALSE;           
  end;
  for I := 1 to 6 do
  begin
    repeat
      intTip:= Random(49)+1;      
    until not LottoArr[intTip];
    LottoArr[intTip]:= TRUE; 
  end;
  for I := 1 to high(LottoArr) do
  begin
    if LottoArr[i] then                 // Der Index i ist die Lottozahl
    begin
      ListBox1.Items.Add(inttostr(i));
    end;
  end;
end;

Mal eine andere Version.

Bis bald Chemiker

[JumpFrog]

Zitat:

Zitat von _frank_

der arme JumpFrog...wir finden mehr Fehler als ihm lieb ist.

Genau :cry: :cry:

Naja ich bin nunmal ein Ass im Programmieren. Ich merke nur wieviel mist wir hier in der Berufsschule beigebracht bekommen :( eigentlich traurig.

Ich werde mir den Quelltext den ihr mir gegeben habt anschauen, aber im ersten Moment seh ich da nicht durch :)

Bin gerade in der Berufsschule, falls ich es schaffe werde ich die Lösung vom Lehrer mal Posten.

LG JumpFrog

[_frank_]

der code, den ich angehängt hatte war doch deiner nur bisschen verändert ;)

Gruß Frank