Solutions de l'exercice 6 du TP n°2
(informatique en S1 DEUG MAIS+MASS)
PROGRAM TP2exc6 ;
VAR HeureDepart, MinuteDepart, SecondeDepart : integer ;
HeureTrajet, MinuteTrajet, SecondeTrajet : integer ;
HeureArrivee, MinuteArrivee, SecondeArrivee : integer ;
JourArrivee : integer ;
BEGIN
(* saisie heure de départ *)
writeln('Depart :') ;
write('heure ? ') ; readln(HeureDepart) ;
write('minutes ? ') ; readln(MinuteDepart) ;
write('secondes ? ') ; readln(SecondeDepart) ;
(* saisie durée du trajet *)
writeln('Durée du trajet :') ;
write('heure ? ') ; readln(HeureTrajet) ;
write('minutes ? ') ; readln(MinuteTrajet) ;
write('secondes ? ') ; readln(SecondeTrajet) ;
(* calcul de l'heure d'arrivée *)
SecondeArrivee:=SecondeDepart+SecondeTrajet ;
MinuteArrivee:=MinuteDepart+MinuteTrajet+(SecondeArrivee div 60) ;
SecondeArrivee:=(SecondeArrivee mod 60) ;
HeureArrivee:=HeureDepart+HeureTrajet+(MinuteArrivee div 60) ;
MinuteArrivee:=(MinuteArrivee mod 60) ;
JourArrivee:=HeureArrivee div 24 ;
HeureArrivee:=HeureArrivee mod 24 ;
(* affichage du résultat *)
writeln('Heure d''arrivée : ') ;
if (JourArrivee=0)
then write('même jour : ')
else write('jour + ',JourArrivee,' : ') ;
writeln(HeureArrivee,'h ', MinuteArrivee, 'mn ',SecondeArrivee, 's.') ;
END.