Discussion :

[Isard7777]

Je me suis lancé récemment dans la composition de code Pascal (dû a mes cours de programmation dans mes etudes)... J'ai un problème avec un programme basique : avec comme donnée l'année (bissextile ou non) et le numéro du jour (325e par exemple) donner une date du type j/m/a...

Voilà le code :

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
 
program numerojourdate; 
var   
a : integer;   
b : integer;  
i := 1 
t : array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31); 
begin   
write('Entrez une année:');   
readln(a);   
write('Entrez un numero pour la date du jour a calculer:');   
readln(b);   
if (((a mod 4=0) and (a mod 100<>0)) and (a mod 400=0))) then t[2]:=29; 
while b>t[i]do  
begin b:= b-t[i]end     
else	
writeln('ce jour est le b/i/a'); 
end.

Voilà, le problème vient à mon avis de la commande d'affectation du i... mais je sèche

Merci de votre aide ;-)

[Alcatîz]

Bonjour et bienvenue !

Sans vouloir te froisser, il y a pas mal d'autres problèmes dans ton programme.

J'imagine que le but est de déclarer i et t avec des valeurs bien définies au départ du programme. Pour faire cela, il faut déclarer non pas des variables mais bien des constantes :

Code :

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

1
2
3
4
var a : integer;
    b : integer;
const i : integer = 1;
      t : array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);

En vrac, les autres problèmes concernent :

- Le writeln : tu dois afficher alternativement des chaînes de caractères et des variables. Il faut séparer tout cela par des virgules et encadrer les chaînes par des apostrophes :

Code :

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

writeln('ce jour est le',b,'/',i,'/',a);

- Le while intégré dans la boucle if then else : tu dois insérer un begin...end :

Code :

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

1
2
3
4
5
6
7
8
if (((a mod 4=0) and (a mod 100<>0)) and (a mod 400=0)) then
  begin
    t[2]:=29;
    while b>t[i]do
      b:= b-t[i]
  end
else
  writeln('ce jour est le',b,'/',i,'/',a);

Tant que tu y es, vérifie les parenthèses de ton test.

- Pour terminer, ton programme ne fonctionne pas correctement : ton i ne change pas de valeur et tu l'affiches comme mois. Je te laisse revoir la logique du traitement.

Surtout ne te décourage pas, le mieux est de commencer par écrire un pseudocode sur papier avant de le traduire en Pascal.

[Isard7777]

Je m'en doutais qu'il devais y avoir d'autres problemes..je debute ...surtout que le cours n'est pas très clair ..je vais plus me baser sur ce qui est mit en ligne ici

Je vérifie donc tout ca et merci

EDIT:

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
program numerojourdate;
 
var a : integer;
    b : integer;
const i : integer = 1;
      t : array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
begin;
write('Entrez une année:'); 
readln(a); 
write('Entrez un numero pour la date du jour a calculer:'); 
readln(b); 
if (((a mod 4=0) and (a mod 100<>0)) and (a mod 400=0)) then
  begin
    t[2]:=29;
    while b>t[i]do
      b:= b-t[i];
      i:=i+1 ;
  end
else 
writeln('ce jour est le',b,'/',i,'/',a);
end.

ca , ca devrais fonctionner non? merci

[Nicomart]

Salut,

cela fait déja deux ans que je n'ai pas touché au Pascal, mais je ne pense pas que ça va fonctionner :

-> Le ; derrière le premier begin me semble louche
-> si tu incrémentes i dans le programme, je pense qu'il vaut mieux le déclarer en "var".

Enfin, même si lorsque ton programme sera syntaxiquement correct, cela ne veut pas dire qu'il aura forcément le comportement attendu

[Isard7777]

Non, ca ne fonctionnais effectivement pas , la version finale du programme est celle ci-dessous en fait, j'ai finallement réussi a la faire fonctionner... et a comprendre quelques principes du langage ...

Merci a tous

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
  program numerojourdate;
 
var
            a : integer;
            b : integer;
            i : integer;
const
            t : array[1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);
 
begin
   write('Entrez une année:');
   readln(a);
   write('Entrez un numero pour la date du jour a calculer:');
   readln(b);
   i:=1;
   if (((a mod 4=0) and (a mod 100<>0)) or (a mod 400=0))then
               begin
               t[2]:=29
               end;
while (b>t[i]) do
      begin
      if b>t[i] then
                begin
                b:= b-t[i]
                end;
      i:=i+1
      end;
writeln('ce jour est le ',b,'/',i,'/',a,'');
end.

[darinze]

salut,

lorsque dans un then tu n'as qu'une seule instruction,tu peux te passer du begin et du end. Par exemple:

Code :

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

1
2
3
4
5
 
if (((a mod 4=0) and (a mod 100<>0)) or (a mod 400=0)) then
  begin
    t[2]:=29
  end;

devient

Code :

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

if (((a mod 4=0) and (a mod 100<>0)) or (a mod 400=0)) then t[2]:=29;

sans oublier le ; final.

De la même manière on peut écrire dans le while:

Code :

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

if b>t[i] then b:= b-t[i];

là aussi sans oublier le ; qui clôture le if.

vàlà...