Bookmark and Share

Liens sponsorisés

Les 4 Saisons Print E-mail
Written by Administrator   
Monday, 22 December 2008 16:27
Ecrire un programme qui, à  partir du numéro d'un mois, permet d'afficher la saison.
Exemples :
Entrée :
mois = 7  
Sortie
été

Entrée
mois = 5
Sortie
printemps

Correction
Program les_4_saisons;
Uses WinCrt;
Var
mois:integer;
r:string;
begin
writeln('Donnez le numéro d"un mois');
readln(mois);
case mois of
   3..5:r:='printemps';
   6..8:r:='été';
   9..11:r:='automne';
   12,1,2:r:='hiver';
end;
Writeln('Saison = ',r);
 end.
 
 

 

Liens sponsorisés