TurboPL Referenz

Random Prozedur

Top  Previous  Next

Syntax

Random(Zahl: Integer): Integer;

Kategorie

Basisfunktion

Erklärung

Liefert eine Zufallszahl zwischen 0 und Zahl - 1.

Laufzeitfehler

Keine

Beispiel

Eine Tabelle wird stichprobenartig geprüft, wobei in etwa jeder hundertste Eintrag untersucht werden soll.

.REPORT
.DATA
.IF Random(100)=0
..Prüfung durchführen
.END
.EPILOGUE

Eine Prozedur soll eine Zufallszahl zwischen eins und sechs für ein Würfelspiel ermitteln:

procedure Würfel: Integer;
       return Random(6) + 1;
endproc