Sammelbilder [lineares Feld]

[Jelly]

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.