Beim Würfeln werden zufällige Zahlen
erzeugt. Diese
könne 1, 2, 3, 4, 5 oder 6 sein.
Ähnliche zufällige Zahlen
werden auch in manchen Programmen benötigt. Wikipedia
beschreibt Zufallszahlen wie folgt. Wikipedia beschreibt Zufallszahlen wie folgt.
Zur Erzeugung der Zahlen in Delphi benötigt man die Anweisungen:
randomize und random.
In der Delphi-Hilfe, die man mit der Taste F1aufrufen kann, steht
dazu:
Die Funktion Random
erzeugt eine Zufallszahl innerhalb eines bestimmten Bereichs. function Random [ (
Range: Integer) ]; Beschreibung Random gibt eine
Zufallszahl im Bereich 0 <= X < Range zurück. Wird der Parameter
Range nicht angegeben, liefert Random einen Real-Wert im Bereich 0 <= X
< 1. Um den
Zufallszahlengenerator zu
initialisieren, rufen Sie Randomize einmal auf oder weisen der Variable
RandSeed vor dem Aufruf von Random einen Wert zu.
Beispiel aus einem Würfelprogramm:
var zahl : integer; //Variable für die Zufallszahl vereinbaren
begin
randomize; //Zufallszahlengenerator starten
zahl := random(6)+1; // der Variablen
zahl einen zufälligen Wert zwischen 1 und 6 zuweisen
(1<=zahl<=6)
writeln('Du hast eine ',zahl,' gewuerfelt.'); // Ausgabe der Zufallszahl in einem Satz auf dem Bildschirm.
Weitere Beispiele:
a := random(10); // erzeugt eine Zufallszahl zwischen 0 und 9
(0 <= a < 10)
a := random(10)+1; // erzeugt eine Zufallszahl zwischen 1 und 10
(1 <= a <= 10)
a := random(100); //
erzeugt eine Zufallszahl zwischen 0 und 99 (0 <= a
< 100)
a := random(10) + 20;
// erzeugt eine Zufallszahl zwischen 20 und 29 (20
<= a < 30)
Aufgaben:
Gesucht sind die Anweisugen, um Zufallszahlen in folgenden Bereichen zu
erzeugen:
a) 0 <= Zufallszahl <= 20
b) 1 <= Zufallszahl <= 20
c) 10 <= Zufallszahl <= 20
d) 10 <= Zufallszahl < 20
e) 0 <= Zufallszahl < 1