|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 640 (0x280)
Types: TextFile
Names: »PROGRAM1.PAS«
└─⟦49cd49952⟧ Bits:30009431 50004848
└─⟦0c326962c⟧
└─⟦this⟧ »PROGRAM1.PAS«
program rocket (input ,output);
var hours, minutes, seconds, flighttime : 0..maxint ;
BEGIN
READ (hours,minutes,seconds);
writeln ('take-of time is',hours:2,'/',minutes:2,'/',seconds:2);
writeln;
read (flighttime);
writeln ('flight-time = ',flighttime:7,'seconds');
writeln;
seconds:=seconds+flighttime;
minutes:=minutes+ seconds div 60;
seconds:=seconds mod 60;
hours:= hours + minutes div 60;
minutes:=minutes mod 60;
hours:=hours mod 24;
writeln
('expected time of arrival = ',hours : 2,'/',minutes:2,'/',seconds:2);
end.
«eof»