-->
-->
Soit D une date valide.
Ecrire un programme Pascal qui permet de chercher
cette date après 1 jour.
program date;
uses wincrt;
var
d:string;
j,m,a,e:integer;
begin
writeln ('saisir une date valide ');
readln(d);
val(copy(d,1,pos('/',d)-1),j,e);
delete(d,1,pos('/',d));
val(copy(d,1,pos('/',d)-1),m,e);
delete(d,1,pos('/',d));
val(d,a,e);
if (j=31) and (m=12) then
begin
j:=1; m:=1; a:=a+1;
end
else
if (m in
[1,3,5,7,8,10]) and (j=31)
or (m in[4,6,9,11])
and (j=30)
or(m=2) and (j=28)
and (a mod 4 <> 0)
or(m=2) and (j=29)
and (a mod 4 = 0) then
begin
j:=1; m:=m+1;
end
else
j:=j+1;
writeln('la date du lendemain est la suivante :');
writeln('*********' ,j,'/',m,'/',a,'********');
end.
