Voltmeter

Dieses Programm zeigt eine am Analog/Digital-Wandler anliegende Spannung auf dem Display des Palmtops an.

Code

program VoltMetr;

uses RS232, CRT;

procedure DisplayVolt;
var
  DelayCnt : LongInt;
begin
  repeat begin
    gotoxy (1, 2);
    writeln ((Volt + Volt + Volt)/3:10:2, ' Volt');
  end; until keypressed;
end;

begin
  DisplayVolt;
end.