DIPLOMARBEIT - Ingenieurbüro | Morawski + Hugemann

Anhang Seite 103
Procedure Beep2(Frequenz:Integer);
Var
i: LongInt;
Begin
Sound(Frequenz);
For i := 1 to 50000 Do;
NoSound;
End;
{ Erzeugt exponentialverteilte Zufallszahlen, T ist die mittlere Zeit ----}
function Expo(T:real): real;
Var
u,Zeit: real;
Begin
u := random;
Zeit:= -ln(1-u) * T;
Expo:= Zeit;
End;
{ Wartet auf das GO!-Signal des Fahrers ----------------------------------}
procedure Go;
Begin
repeat until KeyPressed;
while KeyPressed do ReadKey; {Erst das Auslesen leert den Puffer }
End;
{ Gibt das Signal zum Bremsen -------------------------------------------}
Procedure VersuchStart;
Const
MittlereWarteZeit = 20.0;
MaxWarteZeit = 0;
var
Hour, Minute, Second, Sec100: Word;
StartZeit, EndZeit, WarteZeit, SollZeit: Real;
i: Longint;
Begin
Writeln('Taste zum Versuchsbeginn');
repeat
until keypressed;
GetTime(Hour, Minute, Second, Sec100);
StartZeit := 3600 * Hour + 60 * Minute + Second + 0.01 * Sec100;