Horloge

Commenter

Contenu du snippet

ce programme vous permet de voir l'heure defiler en secondes minutes et heures , vous lui donner l'heure de depart en heures en minutes et en secondes puis il commence a compter ....

Source / Exemple : 


youssef Mohammedia
program horloge;
uses crt;
var depm,deph,deps,arrh,arrm,arrs:integer;
begin
clrscr;
writeln ('entrez l''heure de depart en heures en minutes et en secondes');readln (deph,depm,deps);
writeln ('entrez l''heure darrivee en heures en minutes et en secondes');readln (arrh,arrm,arrs);
clrscr;
gotoxy(30,15);writeln ('l''heure de depart est donc: ',deph,':',depm,':',deps);
if (deph=arrh) and (depm=arrm) and (deps=arrs) then begin
clrscr;
gotoxy(35,15);
writeln (deph,':',depm,':',deps);end
else begin
gotoxy(25,16);
writeln ('appuyez sur une touche pour voir l''heure defiler');
readln;
     while (deph<>arrh) or (depm<>arrm) or (deps<>arrs) do
     begin
     case deps of
     0..58:begin
           delay(32000);
           delay(32000);
           deps:=deps+1;
           clrscr;gotoxy(35,15);
           writeln (deph,':',depm,':',deps);end;
        59:begin
           case depm of
           0..58:begin
                 deps:=0;
                 depm:=depm+1;
                 clrscr;gotoxy(35,15);
                 write (deph,':',depm,':',deps);
                 end;
              59:begin
                 case deph of
                 0..22:begin
                       deps:=0;
                       depm:=0;
                       deph:=deph+1;
                       clrscr;gotoxy(35,15);
                       write (deph,':',depm,':',deps);
                       end;
                    23:begin
                       deps:=0;
                       depm:=0;
                       deph:=0;
                       clrscr;gotoxy(35,15);
                       write (deph,':',depm,':',deps);
                       end;
              end;
          end;
       end;
    end;

end;
end;
end;
readln;
end.


Conclusion :


c mon premier prog je vais poster d'autres apres

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_libya)