HI
nur so allgemein: Prozentrechnung geht mit Delphi fast genauso wie beim Taschenrechner. Du nimmst den Ausgangswert und Multiplizierst ihn mit einem Faktor, der zu deinem Prozentwert passt.
Die Wahrscheinlichkeit liegt bei 1 zu 40. Du nimmst einfach einen Zufallsgenerator mit der Range := 40 und prüfst, ob das Ergebniss einen bestimmten Wert annimmt. (Dann sollte die Wahrscheinlichkeit etwa bei 1 zu 40 liegen).
Ich finds aber nicht nett,
wenn man eben noch zu müde war und nun plötzlich topfit ist um die Aufgabe zu lösen.
Bernhard
PS an Vorposter: Random arbeitet von 0 bis Range -1