DIPLOMARBEIT - Ingenieurbüro | Morawski + Hugemann

Anhang Seite 108
Writeln (f, 'Datum: ',Day , '.' , Month:2 , '.', Year);
Writeln (f, 'Startzeit: ', Hour , ':', Minute:2);
Writeln (f);
Writeln (f, 'V.-Zeit | Gas weg | Bremsen');
writeln (f, '---------------------------');
{ Datei-Header schreiben ENDE}
AnzahlMessungen:=0;
repeat
if KeyPressed then If (Readkey ='e') then goto 100;
VersuchStart;
WarteAufBremslicht;
StartCount;
ReaktionsAntwort(GasWegZeit, Bremszeit);
GetTime(Hour, Minute, Second, Sec100);
AktuelleZeit := 3600 * Hour + 60 * Minute + Second;
Versuchszeit := AktuelleZeit - StartZeit;
append(f);
writeln (Versuchszeit:5:0,' ', Gaswegzeit:5:3, ' ',
Bremszeit:5:3);
writeln(f, ' ',Versuchszeit:5:0,' ', Gaswegzeit:5:3, '
', Bremszeit:5:3);
close(f);
If GasWegZeit =0 then
Begin
Beep (500);
ohneumsetzen:=ohneumsetzen+1;
end;
AnzahlMessungen:=AnzahlMessungen +1;
Writeln('Anzahl der Messungen: ',Anzahlmessungen);
Writeln('Anzahl ohne Umsetzzeit: ',ohneumsetzen);
until false;
100:
end.