Durch die globalen Variablen statt Parametern und Rückgabewerten ist der Quelltext vollkommen unübersichtlich und praktisch nicht zu durchschauen.
Wie da was passiert kann man so erst einmal gar nicht erkennen.
Zitat von
mr_emre_d:
Wäre hier ein einfaches mod 10 nicht besser? {0..10}
Das gibt doch ein vollkommen anderes Ergebnis...
Beispiel 25:
(25 - 1) mod 13 = 11, 11 > 10, also ist das Ergebnis 10.
25 mod 10 ist aber 5...
// EDIT:
Das -1 ist aber bei dem Quelltext im Projekt falsch.
Delphi-Quellcode:
Wert := Zufallszahl mod 13;
if Wert > 10 then
Wert := 10;
Das reicht schon.