Bonjour, je dois faire un programme qui, à partir d'une donnée et un nombre donné, détermine la date. Par exemple, le jour numéro 2 de l'année 2000, c'est le 2 janvier. je dois faire se programme en Pascal.
Pour le moment , voici ce que j'ai :
program date;
var
v,j,m,a: integer;
P: array [1..12] of integer;
Begin
P[1]:= 31;
P[2]:= 29;
P[3]:= 31;
P[4]:= 30;
P[5]:= 31;
P[6]:= 30;
P[7]:= 31;
P[8]:= 31;
P[9]:= 30;
P[10]:= 31;
P[11]:= 30;
P[12]:= 31;
write ('Entrez une annee de votre choix' );
readln(a);
if ((a mod 4 = 0) or ((a mod 400 = 0) and ( a mod 100 <> 0))) then
P[2]:=29
else
P[2]:=28;
m:=1;
write ( 'Entrez votre numero' );
readln(v) ;
while i <= 365 do begin if (v > P[m]) then v:= v - P[m] ; m:= m+1 ;
if (v <= P[m]) then v:= j ;
end ;
write ('le', v,'eme J de lannee', a, 'est',j,m);
end.
Irie Pascal Evaluation Copy veut bien compiler le programme mais quand j'essaye de donner une valeur à la variable v, il me dit qu'il y a un out of range à la ligne 29.
Quelqu'un pourrait me donner un coup de pouce ?
