with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;
-- Comparaison d'heures
procedure Ex01c is
H1, M1, S1 : Natural;
H2, M2, S2 : Natural;
Res : Character;
begin
-- saisies
Put("Veuillez rentrer une heure avec le format h m s : ");
Get(H1); Get(M1); Get(S1);
Put("Veuillez rentrer une seconde heure avec le format h m s : ");
Get(H2); Get(M2); Get(S2);
-- Algo
if H1 > H2 then
Res := '>';
elsif H1 < H2 then
Res := '<';
elsif M1 > M2 then -- ici : H1 = H2
Res := '>';
elsif M1 < M2 then
Res := '<';
elsif S1 > S2 then -- ici : H1 = H2 et M1 = M2
Res := '>';
elsif S1 < S2 then
Res := '<';
else
Res := '=';
end if;
-- Affichage
Put(H1, 0); Put('h'); Put(M1, 0); Put('m'); Put(S1, 0); Put("s");
Put(Res);
Put(H2, 0); Put('h'); Put(M2, 0); Put('m'); Put(S2, 0); Put('s');
end;