[TP] Détection de nom de mois

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

program moins ; uses WinCrt; var c:integer; begin repeat writeln(' donnes le numero de moin'); readln (c); until c in [1..12] ; case c of 11,12,1: writeln('c est l hiver'); 2,3,4:writeln ('c est le printemps'); 5,6,7: writeln ('c est l été '); 8,9,10: writeln('c est l automne'); end; end.

---

oui j'avou que ça traite pour toute les saisons
mais a la base ce n'est pas ce que disait l'ennoncé c'etais juste pour l'été
mais bon........
@+

Kaj,

Citation:

---

Envoyé par gadalla

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

program moins ; uses WinCrt; var c:integer; begin repeat writeln(' donnes le numero de moin'); readln (c); until c in [1..12] ; case c of 11,12,1: writeln('c est l hiver'); 2,3,4:writeln ('c est le printemps'); 5,6,7: writeln ('c est l été '); 8,9,10: writeln('c est l automne'); end; end.

---

---

Les balises [ code] ?
La mise en forme du code ? (il faut prendre l'habitude de le faire systématiquement, ensuite on finit par le faire sans même y porter attention).

Pour afficher des apostrophes, il faut les doubler dans la chaîne à afficher.
Par exemple

Code:

---

5,6,7: writeln ('c''est l''été ');

---

jai pas bien compris tu peut me donner un exemple????????

Citation:

---

Envoyé par droggo

Code:

---

5,6,7: writeln ('c''est l''été ');

---

---

voila l'exemple

Citation:

---

Envoyé par gadalla

program moins ;
uses WinCrt;
var
c:integer;
begin
repeat
writeln(' donnes le numero de moin');
readln (c);
until c in [1..12] ;
case c of
11,12,1: writeln('c est l hiver');
2,3,4:writeln ('c est le printemps');
5,6,7: writeln ('c est l été ');
8,9,10: writeln('c est l automne');
end;
end.

---

je ne connais pas la fonction ou l'affectation " repeat" et " case ..of"
Donc cette methode, je ne peux pas l'utiliser puisque je ne l'ai pas étudié.

tu veut avec if........else??????

Citation:

---

Envoyé par gadalla

tu veut avec if........else??????

---

oui