Ordung muss sein

[Christian Seehase]

Moin block35plus1,

für die Auslosung ist mir gerade noch was eingefallen:

Delphi-Quellcode:

Procedure Zahlen_ermittelnOHNEDoppelte(var Lottozahlen:TLottozahlen);
var
  i      : integer;
  afList : array [1..49] of boolean;
  iCount : integer;
  iZahl  : integer;

begin
  randomize;
  for i := 1 to 6 do begin
    Lottozahlen[i] := 0;
  end;
  for i := 1 to 49 do begin
    afList[i] := false;
  end;
  iCount := 6;
  while iCount > 0 do begin
    iZahl := Random(49)+1;
    if not afList[iZahl] then begin
      Lottozahlen[iCount] := iZahl;
      afList[iZahl]       := true;
      dec(iCount);
    end;
  end;
end;

Da hast Du jetzt wenigstens schon mal ein wenig Material zum analysieren.
Dein Lehrer wird wohl sicherlich danach fragen, wie Du auf die Lösung gekommen bist, also Copy&Paste wird nicht ganz reichen