Je suis bloqué je vois pas comment raisonné ... je tourne en rond je trouve pas par moi meme quelqu un aurait la solution ? ( si possible dans un code nivo debutant pour que je puisse le comprendre enfin deja si quelqu un pouvez m aiguillé .. deja ca pourra peu etre m aidé en attendan je vais essayé de trouvé ...
ennoncer:
il est demander a l utilisateur si il desire d effectuer un nouveau calcul de la date courante si l 'utilisateur ne repond par o / oui / n / non la question est reformulé

ex
Saisir le jour de demain :
1
Saisir le mois de demain :
1
Saisir l'année de demain :
2006
Nous somme le : 31/12/2005
Recommencer (o/oui/n/non ) :
bbb
Recommencer (o/oui/n/non ) :
o
Saisir le jour de demain :
2
....
Nous somme le : 1/12/2004
Recommencer (o/oui/n/non ) :
bbb
Recommencer (o/oui/n/non ) :
o
Saisir le jour de demain :
-





voici le code pour calculé le jour d aujourd hui en fonction de la date de demain que j ai fai qui est bon :

Saisir le jour de demain :
1
Saisir le mois de demain :
1
Saisir l'année de demain :
2006
Nous somme le : 31/12/2005

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
30
31
32
33
 
print  " Saisir le jour de demain " ;
$jour = <STDIN> ;
chomp $jour ;
print " Saisir le mois de demain " ;
$mois = <STDIN>;
print " Saisir l anne de demain " ;
$annee = <STDIN> ;
chomp $annee ;
if ( $jour > 1 ) ### si jour est superieure a 1 pas de changement de mois
 {
  $jour = $jour -1;
  print " Nous sommes le : \n $jour / $mois / $annee " ;
}
elsif ( $jour == 1 , $mois == 3 or $mois == 5 or $mois == 7 or $mois == 8 or $mois == 10 or $mois == 12 ) ## mois avec 31 jours
{
  $jour = 30 ;
  $mois = $mois - 1  ;
  print " Nous sommes le : \n $jour / $mois / $annee " ;
}
elsif ( $jour == 1 , $mois == 2 or $mois == 4 or $mois == 6 or $mois == 9 or $mois == 11 ) ### mois avec 30 jours
{
  $jour = 31 ;
  $mois = $mois - 1  ;
  print " Nous sommes le : \n $jour / $mois / $annee " ;
}
elsif ( $jour == 1 and $mois == 1 ) ### premier jour de l annee il faut reculer l anne d un ans et metre 31/12/$annee -1
{
  $jour = 31 ;
  $mois = 12  ;
  $annee = $annee - 1 ;
  print " Nous sommes le : \n $jour / $mois / $annee " ;
}

le code que j ai commencé pour rajouté la fonction recommencé avec reformulation de la question si la reponse differente de :n / non / oui /o ...
ne rigolé pas trop

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
print "Recommencer ( o / oui / n / non )  " ;
$deroulement = <STDIN> ;
chomp $deroulement ;
while ( $deroulement ne "o" or $deroulement ne "oui" or $deroulement ne "n" or $deroulement ne "non" )
{
   print "Recommencer ( o / oui / n / non )  " ;
   $deroulement = <STDIN> ;
   chomp $deroulement ;
}