Comment incrémenter l'heure actuelle ?

Résolu
laylana -  
 laylana -
Bonjour,



Comment incrémenter l'heure actuelle en pascal?
Merci :)

3 réponses

KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   3 020
 
Ta question manque cruellement de détails !

program bidon;

var heure:integer;
begin
    heure:=14;      // heure actuelle
    inc(heure);     // incrément
    writeln(heure); // affichage
readln;
end.
1
laylana
 
Kx- voilà l'exercice
Ecrire un programme en Pascal permettant de simuler l'incrémentation de l'heure actuelle (HA saisie au clavier ) d'une horloge électronique d'une seule seconde.
Exemples :
- HA = 15 : 16 : 28 après une seconde c'est 15 : 16 : 29
- HA = 15 : 16 : 59 après une seconde c'est 15 : 17 : 00
- HA = 15 : 59 : 59 après une seconde c'est 16 : 00 : 00
- ....
N.B : hh est une valeur entre 00 et 23, mm une valeur entre 00 et 59 et ss une valeur entre 00 et 59. L'ordinateur affichera un message d'erreur pour tous les autres cas.
0
KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   3 020 > laylana
 
À lire : Demander de l'aide pour vos exercices sur CCM
Au vu de ce que tu as déjà fait (rien pour l'instant) les réponse qui t'ont déjà été donné devraient suffire.
0
laylana
 
Voilà ce que j'ai essayé de faire sur mon brouillon
new_time.seconds;
if( new_time.seconds = 60)
Then new_time.seconds = 0;
+new_time.minutes;
if(new_time.minutes =60)
Then( new_time.minutes = 0);
+new_time.hour;
if(new_time.hour = 24)
new_time.hour = 0;
Mon problème c'est que je sais pas comment faire la déclaration dans ce programme ...
0
KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   3 020
 
L'idée est bonne, maintenant il faut le traduire en Pascal... donc il faut apprendre la syntaxe !

Voici un bon cours (il commence à dater mais pour apprendre les bases c'est suffisant)
https://pascal.developpez.com/cours/cyberzoide/index.php3

Je te conseille de tout reprendre dès le début, ça ne peut pas faire de mal ;-)
0
laylana
 
D'accord :) merci bcp
0
[Dal] Messages postés 6205 Date d'inscription   Statut Contributeur Dernière intervention   1 105
 
:-D

Avec Free Pascal, on se servirait certainement de IncDay, IncHour, IncMilliSecond, IncMinute, IncSecond, IncWeek, ou IncYear, disponibles dans l'Unité "dateutils", pour répondre en partie à ta question :

https://www.freepascal.org/docs-html/rtl/dateutils/index-5.html


Dal
0
Chris.C Messages postés 4 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,
Je ne suis pas un expert en Pascal mais ile me semble qu'un
heure += ou
heure =heure + inc(heure) serait + adapté
-1
KX Messages postés 16761 Date d'inscription   Statut Modérateur Dernière intervention   3 020
 
"heure =heure + inc(heure) serait + adapté" !!!?

1) inc(heure) renvoie void, on ne peut donc pas l'ajouter à quoi que ce soit !
2) même s'il renvoyait un résultat, ce serait heure+1, ce que tu calculerais serait donc 2*heure+1 !!
3) en Pascal, l'opérateur = correspond à une comparaison, en aucun cas une affectation !!!

4) heure += d'accord, faudrait-il encore mettre un 1 derrière... mais inc(heure) est plus efficace.
0