Zitat von
jaenicke:
Das -1 ist aber bei dem Quelltext im Projekt falsch.
Stümmt.
Zitat von
jaenicke:
Delphi-Quellcode:
Wert := Zufallszahl mod 13;
if Wert > 10 then
Wert := 10;
Das reicht schon.
Dann fehlt noch ein Fall für die Eingabe 13:
Delphi-Quellcode:
Wert := Zufallszahl mod 13;
if (Wert = 0) or (Wert > 10) then
Wert := 10;
oder (mit himitsus Einwurf)
Wert := Max(Succ(Pred(Zufallszahl) mod 13), 10);
. (Alles ungetestet.)
ÄHM: Min, nicht Max.
