Afficher les noms des mois [Résolu]

[brunetta24]

Bonjour a tous!!
j'ai cet exercice:
ecrire un programme en pascal qui lit l'ordre de mois et affiche le nom du mois correspondant:
exemple: le mois 1 cad janvier
le mois 2 cad fevrier

mon idée c'est d'utiliser la structure cas of et j'aurais:
corrigez moi s'il vous plait:

Code :

1
2
3
4
5
6
7
8
9
 
var c:integer;
case c of
1:   write("janvier");
2:   write("fevrier");
3:   write("mars");
4:   write("avril");
5:   write("mai");
.........

[Dr.Who]

on peux utiliser un case of ... en effet, mais ça alourdis le code :

Code :

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
34
 
program Month;
 
uses
  SysUtils;
 
const
  cMonthNames: array[1..12] of string= (
    'janvier',
    'fevrier',
    'mars',
    'avril',
    'mai',
    'juin',
    'juillet',
    'aout',
    'septembre',
    'octobre',
    'novembre',
    'decembre'
  );
 
 
function getMonthName(aDate: TDateTime): string;
var Y,M,D: word;
begin
  decodeDate(aDate, Y, M, D);
  result := cMonthNames[M];
end;
 
begin
  writeLn(getMonthName(now));
  readln;
end.

[darrylsite]

Salut,
je crois qu'il cherchait seulement un truc du genre

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
program Month;
 
const
  cMonthNames: array[1..12] of string= ('janvier', 'fevrier', 'mars',
                                                       'avril', 'mai', 'juin', 'juillet',
                                                       'aout', 'septembre', 'octobre',
                                                       'novembre', 'decembre');
 
var month;
 
function getMonthName(byte m): string;
begin
  getMonthName := cMonthNames[m];
end;
 
begin
  readln(month);
  writeLn(getMonthName(month));
  readln;
end.

[joreveur]

bonjour

par une boucle :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program lesmois;
 var mois : array[1..12] of string = (
	'janvier', 'fevrier', 'mars',
	'avril', 'mai', 'juin', 'juillet',
	'aout', 'septembre', 'octobre',
	'novembre', 'decembre' );
 
 i:integer;  
 
begin
  for i:=1 to 12 do
  begin
	writeln(i,' ',mois[i]);
  end;
  readln;
end.

ça m'a permis de réinstaller FreePascal sur mon pc ...

[brunetta24]

Bonjour:
Corrigez moi SVP:

Code :

1
2
3
4
5
6
7
8
9
Program mois;
Var m:integer;
Begin 
    readln(m);
    if m=1 then write('janvier');
    if m=2 then write('fevrier');
    if m=3 then write('mars');
   ................................. jusqu'à m=12
End.

[joreveur]

bonjour,

voila en reprenant ton code, mais ce n'est pas la meilleure méthode.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Program mois;
Var m:integer;
Begin 
    write('num de mois ? ');
    readln(m);
    writeln;
    if m=1 then writeln('janvier');
    if m=2 then writeln('fevrier');
    if m=3 then writeln('mars');
   //................................. jusqu'à m=12
   writeln('programme terminé ');
End.

bonne continuation

[Devildz]

Envoyé par brunetta24

Bonjour:
Corrigez moi SVP:

Code :

Il est juste votre programme mais le problème c'est quand vous tapez 1, la machine test la 1er condition elle trouve vraie et elle affiche Janvier, mais elle vas continuer le test jusqu'à m=12.
pour corriger il faut mettre à partir de m=2 un else if, comme ça dés qu'il trouve le test de la condition vrai elle ignore les autres et vous gagnerez quelque millisecondes, et aussi à la fin faut mettre un else comme ça vous affichera un message d'erreur si il tape une valeur qui n'appartient pas à l'intervalle [1;12].


Espérant que je vous ai aidé.

[droggo]

Xoe,

Tant qu'à vouloir corriger u, code, autant en proposer un plus "propre".

Dans le cas présent, il faut penser à utiliser un tableau.