Problème de syntaxe

Version imprimable

Problème de syntaxe

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:

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 ;-)

29/10/2006, 20h50
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:

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:

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:

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.
;)

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 :D

Je vérifie donc tout ca et merci ;)

EDIT:
Code:

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 ;)

08/11/2006, 11h03
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 ;)

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 :D :oops: ...

Merci a tous ;)

Code:

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.

09/11/2006, 21h48
darinze

pour la beauté du code...
salut,

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

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:

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:

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

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

vàlà...