arrays vergleichen

[BrunoT]

Hallo dinu_ch!

am besten ist es, beim Ziehen der Lottozahlen gleich zu testen, ob die selbe Zahl

schon gezogen worden ist

Delphi-Quellcode:

Procedure ziehe;
Var
  Test:Boolean;
  i,j,Zahl:integer;
  arr:array[1..7 ] of integer; 

Begin
  randomize;
  For i:=1 to 7 Do
  Begin
    Test:=True;
    Repeat
      zahl:=random(49)+1;
      For j:=1 To 7 Do
      if arr[j] = zahl Then 
         Test:=False;        {Schon mal gezogen}
    Until Test=True;
    arr[i]:=Zahl;
  end;
writeln; 
writeln(' Lottozahlen : ',arr[1],' ',arr[2],' ',arr[3],' ',arr[4],' ',arr[5],' ',arr[6]); 
writeln(' Zusatzzahl : ',arr[7]); 
readln; 
end;

Die Eingabe kann ebenfalls so gestaltet werden:

Delphi-Quellcode:

For i:=1 to 6 Do
  Begin
    Test:=True;
    Repeat
      Readln(Zahl);
      For j:=1 To 7 Do
      if arrz[j] = zahl Then 
         Test:=False;        {Schon mal gezogen}
    Until Test=True;
    arrz[i]:=Zahl;
  end;

Gruss

BrunoT

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]