Geschwindigkeitsmessung

An die Kombiampel wird der externe Fotosensor angeschlossen. Dieser und der interne Sensor werden jeweils mit einer kleinen Lampe beleuchtet und bilden damit je eine Lichtschranke. Nun kann z.B. mit Hilfe einer Fahrbahn ein Meßwagen zuerst an der Sensor-, dann an der Schalterlichtschranke vorbeifahren. Das Programm VELOCITA.PAS übernimmt die Zeitmessung.

program Geschwindigkeit;
uses komampel;
Var t : real;
    s,v : real;
begin
  ampel_ein;
  t:=0;
  writeln ('Die Meßstrecke verläuft von Sensor nach Schalter');
  writeln;
  write ('Weg in m eingeben:  ');
  readln (s);
  writeln;
  binaus ('00100100');
  writeln ('grün: Geschwindigkeitsmessung starten');
  writeln ('gelb: Geschwindigkeitsmessung läuft');
  writeln ('rot : Geschwindigkeitsmessung beendet');
  writeln;
  repeat until not Sensor;
  binaus ('00010010');
  repeat
    t:=t+1;
    warte(0.1);	(* 1/10 s Zeitauflösung *)
  until not schalter;
  v:=s/(t/10);		(* bezogen auf 1/10 s Zeitauflösung *)
  binaus ('00001001');
  writeln ('Geschwindigkeit : ',v:10:2, ' m/s');
  write('<Return>');
  readln;
end.

Aufgabe: Erweitere das Programm so, daß bei Überschreiten einer bestimmten Geschwindigkeit die Ampel ein gelbes Blinklicht als Warnung zeigt.

Burkhard John