[<<Previous Entry]
[^^Up^^]
[Next Entry>>]
[Menu]
[About The Guide]
ATEXTGEN.INT
{ ---------------------------------------------------------------- }
{ T E X T - G E N E R A T O R }
{ ---------------------------------------------------------------- }
{ Stellt Methoden und H.ufigkeitstabellen zur Verf.gung, um m.g- }
{ lichst realit.tsnahe Zufallstexte zu erzeugen. }
{ Aufgrund des "relativ" hohen Speicherbedarfes ist die Tabellen- }
{ struktur etwas kompliziert, weshalb auch entsprechende Zugriffs- }
{ methoden zur Verf.gung gestellt werden. }
{ ---------------------------------------------------------------- }
{ (c) 1992 by Aurora featuring M.J. Schwaiger }
{ ---------------------------------------------------------------- }
UNIT ATextGen;
INTERFACE
USES
Literat;
{ ---------------------------------------------------------------- }
{ Rechnet die angegebene Tabellenposition in den entsprechenden }
{ Zeichencode um. }
{ ---------------------------------------------------------------- }
FUNCTION Tab2Asc (TabPos : BYTE) : CHAR;
{ ---------------------------------------------------------------- }
{ Rechnet den angegebenen Zeichencode in die entsprechende Tabel- }
{ lenposition um. }
{ ---------------------------------------------------------------- }
FUNCTION Asc2Tab (Ch : CHAR) : BYTE;
{ ---------------------------------------------------------------- }
{ Liefert einen Zufallswert im Bereich 0 <= x <= Range - ist not- }
{ wenig, da Turbo's RANDOM nur den Bereich des WORD-Wertbereiches }
{ als Parameter zul..t, hier jedoch gr..ere Werte ben.tigt werden. }
{ ---------------------------------------------------------------- }
FUNCTION Rand (Range : LONGINT) : LONGINT;
{ ---------------------------------------------------------------- }
{ Liefert ein zuf.lliges Zeichen unter Ber.cksichtigung der Zei- }
{ chenh.ufigkeiten. }
{ ---------------------------------------------------------------- }
FUNCTION GetRandomChar : CHAR;
{ ---------------------------------------------------------------- }
{ Liefert ein zuf.lliges Zeichen unter Ber.cksichtigung der Zei- }
{ chenh.ufigkeiten und der Wahrscheinlichkeit der Zeichenfolge, }
{ d.h., wie wahrscheinlich ist es, da. ein Zeichen auf das angege- }
{ bene folgt. }
{ ---------------------------------------------------------------- }
FUNCTION GetRandomSuccessor (Ch : CHAR) : CHAR;
This page created by ng2html v1.05, the Norton guide to HTML conversion utility.
Written by Dave Pearson