Jours de l'année

**Mercenaire** · 01/01/2010, 21h24

Bonjour,

J'ai essayer de retranscrire ce pseudo code en pascal.

Ecrire une fonction jourAnnee qui prend une date en paramètre et calcul quel jours de l'année nous sommes (on considère que la date passée en paramètre est valide)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
FONCTION jourAnnee(IN jj, mm, aa : Entier) EST
   ! j_mois contient le nombre de jours de chaque mois de l'année !
   CONST j_mois <- (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
   VAR nb_jours : Entier;
 
   DEBUT
      nb_jours <- 0;
      SI mm > 1 ALORS
         ! On compte les jours des mois terminés !
         POUR i : 1 .. (mm-1) BOUCLE
            nb_jours <- nb_jours + j_mois[i]
         FINBOUCLE;
         ! Si l'année est bissextile et que février est passé, on ajoute le 29 !
         SI (aa MOD 4) = 0 ET mm > 2  ALORS
            nb_jours <- nb_jours + 1
         FINSI;
      FINSI;
      ! On ajoute le nombre de jours du mois courant !
      jourAnnee <- nb_jours + jj;
   FIN jourAnnee;

Voici le code en pascal.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
FUNCTION jourAnnee (jj, mm, aa : integer) : integer;
 
   Type j_mois = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
   VAR nb_jours : integer;
 
   BEGIN
 
      nb_jours := 0;
      IF mm > 1 THEN
         FOR i : 1 ..(mm-1) DO
            nb_jours := nb_jours + j_mois[i];
      IF (aa MOD 4) = 0 AND mm > 2 THEN
            nb_jours := nb_jours + 1;
      jourAnnee := nb_jours + jj;
   end;

Je bloque dans la déclaration de la constante, comment déclarer une liste d'entier ?

Merci

**darrylsite** · 01/01/2010, 21h58

Salut et Bonne et Heureuse année 2010

Vu que c'est mon premier message

Je ne dirais pas une liste d'entiers, mais un tableau d'entier.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
function jourAnnee (jj, mm, aa : integer) : integer;
 
   const  j_mois : array[1..12] of byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
   var nb_jours, i : integer;
begin
 nb_jours := 0;
 if mm > 1 then
   for i:= 1 to (mm-1)do
      nb_jours := nb_jours + j_mois[i];
 if ((aa mod 4) = 0) and (mm > 2) then
   nb_jours := nb_jours + 1;
 jourAnnee := nb_jours + jj;
end;

je t'ai arrangé le code, ça compile mais j'ignore si ça fait le travail voulu.

**droggo** · 01/01/2010, 22h02

Boe,

Je n'ai fait que survoler le code, et j'y trouve une erreur assez fréquente dans ce genre d'exercice : tu ne gères pas les années bissextiles.

**darrylsite** · 01/01/2010, 22h13

Envoyé par droggo

Boe,

Je n'ai fait que survoler le code, et j'y trouve une erreur assez fréquente dans ce genre d'exercice : tu ne gères pas les années bissextiles.

Je crois qu'il a essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 if ((aa mod 4) = 0) and (mm > 2) then
   nb_jours := nb_jours + 1;

Mais la seule condition n'est pas que l'année soit divisible par 4. Pour les debuts de siecle, il faut que l'année soit divible par 400 je crois. Enfin une recherche sur google te donnera le résultat.

**mick605** · 01/01/2010, 22h44

Salut et bonne année a tous !

Envoyé par darrylsite

Mais la seule condition n'est pas que l'année soit divisible par 4. Pour les debuts de siecle, il faut que l'année soit divible par 400 je crois. Enfin une recherche sur google te donnera le résultat.

Pour être plus précis, une année est bissextile si elle est divisible par 4, sauf si elle est divisible par 100, mais les années divisibles par 400 sont bissextiles

Donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EstBissextile:= ((NoAnnee mod 400)=0) or (((NoAnnee mod 4)=0) and ((NoAnnee mod 100)<>0)))

**Mercenaire** · 02/01/2010, 01h51

Merci à tous,

Bonne année

Envoyé par darrylsite

je t'ai arrangé le code, ça compile mais j'ignore si ça fait le travail voulu.

Oui, j'ai pu enfin comprendre ce code.

Donc en introduisant une date, il calcule le nombre de jours expirer depuis le début de l'année. Ex: 1, 2, 2010 donne résultat 32...

**Mercenaire** · 04/01/2010, 02h33

Bonsoir,

Je souhaiterais rajouter une comparaison dans le programme
Quand j'introduis une valeur qui est en dehors de l'intervalle, ça boucle, mais quand j'introduis une lettre, j'ai une erreur.
Je voudrais faire une comparaison des variables comme ça quand j'introduis autre chose qu'un entier, il boucle.
J'ai essayer while jour=(chr) mais ça fonctionne pas.

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
function jourAnnee (jj, mm, aa : integer) : integer;
 
   const  j_mois : array[1..12] of byte = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
   var nb_jours, i : integer;
begin
 nb_jours := 0;
 if mm > 1 then
   for i:= 1 to (mm-1)do
      nb_jours := nb_jours + j_mois[i];
 if ((aa mod 4) = 0) and (mm > 2) then
   nb_jours := nb_jours + 1;
 jourAnnee := nb_jours + jj;
end;
 
 
var jour,mois,annee,nbjour : integer;
 
BEGIN
 
readln(jour);
 
while ((jour<1)) OR (jour>31) do
begin
writeln('Erreur, veuillez recommencer');
readln(jour);
end;
 
readln(mois);
 
while ((mois<1)) OR (mois>12) do
begin
writeln('Erreur, veuillez recommencer');
readln(mois);
end;
 
 
readln(annee);
 
while ((annee<1950)) OR (annee>2050) do
begin
writeln('Erreur, veuillez recommencer');
readln(annee);
end;
 
nbjour := jourannee(jour,mois,annee);
writeln(nbjour)
 
END.

**droggo** · 04/01/2010, 12h48

Hoe,

Si tu veux entrer les valeurs en plusieurs fois, la bonne technique est :

- lire l'année, pour savoir si elle est bissextile

- lire le mois, avec intervalle 1..12

- lire le jour, avec intervalle dépendant du mois et de l'année.

Mais généralement, dans ce genre d'exercice, on entre la date complète, et on décode l'entrée. Bien entendu, pour que ce décodage puisse être cohérent, on affiche le format attendu pour l'entrée.

**Mercenaire** · 04/01/2010, 15h42

Salut droggo,

J'ai pas de soucis avec le code mais ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
BEGIN
 
readln(jour);
 
while ((jour<1)) OR (jour>31) do
begin
writeln('Erreur, veuillez recommencer');
readln(jour);
end;

Quand c'est des entiers, il boucle tant que c'est pas juste mais quand je met une lettre j'ai une erreur.
Je voudrais qu'il boucle aussi et là je vois pas comment faire

**HASALGO** · 01/01/2010, 22h08

Bonsoir,
attention à la déclaration de type scalaire énuméré : les valeurs de ce type ne doivent pas être de type prédéfini

**darrylsite** · 01/01/2010, 22h20

Envoyé par HASALGO

Bonsoir,
attention à la déclaration de type scalaire énuméré : les valeurs de ce type ne doivent pas être de type prédéfini

En effet. Mais je crois qu'il ne cherche pas à déclarer un type énuméré, mais plutôt un tableau ce constant comme je l'ai fait dans le code que j'ai posté plus haut.

Jours de l'année [Turbo Pascal]

Turbo Pascal

Vue hybride

Discussions similaires

Partager

Partager