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
