Zitat von
me2u:
Delphi-Quellcode:
while fehlend > 0 do
begin
Tafeln := 0;
fehlend := bilder_gesamt;
//Zuerst müssen alle Bilder den Wert 0 haben
for i := 0 to (bilder_gesamt - 1) do
begin
Bilder[i]:=0;
end;
Tafeln := Tafeln + 1;
x := Random(bilder_gesamt);
//Bild wird als gekauft "markiert"
Bilder[x] := Bilder[x] + 1;
//Wenn man das Bild hat, wird fehlend verringert
IF Bilder[x] = 1 THEN
begin
fehlend := fehlend - 1;
end;
end;
Diese while Schleife muss ja ins Endlose laufen... Kuck mal genau hin. EIn Schleifendurchlauf kann Fehlend höchstens um 1 verringern. Und beim nächsten Schleifendurchlauf setzt du Fehlend wieder auf Bilder_gesamt, dessen Wert sicherlich > 1 ist.