Salut tout le monde
Je viens de chercher une autre methode pour remplacer la mienne qui est trop longue. Voici l'énoncé :
Traduire en toute lettre un entier naturel composé de deux chiffres au maximum.
voici ma méthode :
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
 
program moyenne;
uses wincrt ;
var nomb : integer ;
     lettre : string ;
begin
readln (nomb) ;
case nomb of
 0  : lettre := 'Zero' ;
 1  : lettre := 'Un' ;                                        
 2  : lettre := 'Deux' ;
 3  : lettre := 'Trois' ;
 4  : lettre := 'Quatre' ;
 5  : lettre := 'Cinq' ;
 6  : lettre := 'Six' ;
 7  : lettre := 'Sept' ;
 8  : lettre := 'Huit' ;
 9  : lettre := 'Neuf' ;
10 : lettre := 'Dix' ;
11 : lettre := 'Onze' ;
12 : lettre := 'Douze' ;
............
99 : lettre := 'Qutre vingnt et dix neuf' ;
else lettre := 'Erreur';
end;
writeln (lettre);
end.
voila . c'est trop long d'ecrire 99 nombres en toute lettre.