program recente .pdf


Nom original: program recente.pdfAuteur: USER

Ce document au format PDF 1.5 a été généré par Microsoft® Office Word 2007, et a été envoyé sur fichier-pdf.fr le 07/11/2012 à 00:44, depuis l'adresse IP 197.6.x.x. La présente page de téléchargement du fichier a été vue 1509 fois.
Taille du document: 98 Ko (4 pages).
Confidentialité: fichier public


Aperçu du document


program recente ;
uses wincrt ;
var
date1, date2, date_recente, saison,m,a,j,a2,m2,j2 : string;
nj,jrest,mois1, annee1, jour1,mois2,e, annee2, jour2,mois3, annee3, jour3 : integer;
begin
writeln('donner la premiere date '); readln(date1);
writeln('donner la deuxieme date '); readln(date2);
j:= copy(date1,1,2);val(j,jour1,e);
m:= copy(date1,4,2);val(m,mois1,e);
a:= copy(date1,7,4);val(a,annee1,e);
j2:= copy(date2,1,2);val(j2,jour2,e);
m2:= copy(date2,4,2);val(m2,mois2,e);
a2:= copy(date2,7,4);val(a2,annee2,e);

writeln('date 1 est ',date1,' ',j,' ',m,' ',a);
writeln('date 2 est ',date2,' ',j2,' ',m2,' ',a2);
if(annee2> annee1)then
begin
date_recente:=date2;
writeln('annee 2 > annee 1 donc recente date 2 et la dite recente est ',date_recente );
end
else if (annee2< annee1)then
begin
date_recente:=date1;
writeln('annee 1 > annee 2 donc recente date 1 et la dite recente est ',date_recente);
end
else
begin
writeln('les 2 annees sont egales on passe à la comparaison des mois ');
if(mois2> mois1)then
begin
date_recente:=date2;
writeln('mois2 > mois1 donc recente date 2 et la dite recente est ',date_recente);
end

else if (mois2< mois1)then
begin
date_recente:=date1;
writeln('mois2 > mois1 donc recente date 2 et la dite recente est ',date_recente);
end
else
begin
writeln('les 2 mois sont egaux on passe à la comparaison des jours ');
if(jour2> jour1)then
begin
date_recente:=date2;
writeln('jour2> jour1 donc recente date 2 et la dite recente est ',date_recente);
end
else if(jour2<= jour1)then
begin
date_recente:=date1;
writeln('jour2> jour1 donc recente date 2 et la dite recente est ',date_recente);
end;
end;
end;
writeln('la date 1 est ',date1,' et la date 2 est ',date2,' et la plus récente est ',date_recente);

j:= copy(date_recente,1,2);val(j,jour3,e);
m:= copy(date_recente,4,2);val(m,mois3,e);
a:= copy(date_recente,7,4);val(a,annee3,e);

case mois3 of
1,3,5,7,8,10,12 :
begin
nj:=31;
jrest:=nj-jour3;
end;
4,6,9,11: begin
nj:=30;
jrest:=nj-jour3;

end;
2:begin
if (annee3 mod 4 = 0 )then
begin
nj:=29;
jrest:=nj-jour3;
end
else
begin
nj:=28;
jrest:=nj-jour3;
end;
end;
end;

case mois3 of
1,2,12 :
begin
saison:='hiver';
end;
3,4,5: begin
saison:='printemps';
end;
6,7,8:
begin
saison:='ete';
end;
9,10,11: begin
saison:='automne';
end;
end;

writeln('la date la plus récente est ',date_recente,' et il reste ',jrest,' jusqu''a la fin du mois et on est en plein ',saison);

readln;
end.


Aperçu du document program recente.pdf - page 1/4

Aperçu du document program recente.pdf - page 2/4

Aperçu du document program recente.pdf - page 3/4

Aperçu du document program recente.pdf - page 4/4




Télécharger le fichier (PDF)


program recente.pdf (PDF, 98 Ko)

Télécharger
Formats alternatifs: ZIP



Documents similaires


program recente
tp7
tp7
maroc 2014 meditavel
dubai istanbul maroc kuala andalousie
turquie 2014 meditravel

Sur le même sujet..