écrire un nombre en lettre

Salut,

quelqu'un a t'il un algo de la fonction qui prend en entrée un nombre et donne en sortie le nombre en lettre. Exemple

entrée: 1200
sortie: Mille deux Cent

Merci de la réponse

Dibak

Bonjour,

Juste une question (qui a tout de même son utilité)
En quel language?

Merci

Salut,

en C, de préférence C++Builder

Merci

Dibak

dès ke tu fixe une limite de ton nombre
tu stock ton nombre dans une chaine decaratére et tu raisonne sur le code ascii de chake caractére
je l'ai dejas fait mais il y a 2 ans
je ne sais pas si j'étais claire mais c kelkechose comme ca :wink:

:?:

jiraya_sama, aurais-tu le bonheur de m'expliquer... je ne vois pas le rapport

merci

ton nombre ou plutôt ta liste de nombre elle a un max ke le nombre ne peut pas depasser?? :?:

Citation:

entrée: 1200
sortie: Mille deux Cent

Ca commence mal :wink:

Déjà révise la façon dont on écrit un nombre en lettres...

Citation:

Envoyé par Sun3clipse

Bonjour,

Juste une question (qui a tout de même son utilité)
En quel language?

Merci

n'est-on pas sur un forum Algorithme ?

l'algorithmique est totalement indépendant du langage utilisé :!:

Salut

J'ai fait un petit essai avec un algo du style:

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
 
fonction ecrire(str, nb, unité, reste)
   paramètres
      str : chaine où on écrit le nombre
      nb : nombre à écrire
      unité : rang du groupe d'unite (mille, millions ..)
      reste :  ce qui reste à écrire (pour la gestion des s)
début
     si nb = 0 alors
        si unité = 0 alors
            ecrire zéro dans str
        fin si
     sinon   
       ecrire(str,  nb DIV 1000, unité + 1, nb MOD 1000 + reste)
       ecrireunite(str, nb MOD 1000, unite, reste)
     fin si
 fin 
 
 
fonction ecrireunite(str, nb, unite, reste)
   paramètres
      str : chaine où on écrit le nombre
      nb : nombre à écrire
      unité : rang du groupe d'unite (mille, millions ..)
      reste :  ce qui reste à écrire (pour la gestion des s)
début
   si nb <>  0 alors
        c = nb DIV 100
        d = nb %MOD 100
    .....
  dans cette fonction j'écris les groupes de trois chiffres en distinguant celui des centaines des deux derniers. Pour les deux derniers, je me suis fait un tableau avec tous les nombres de 1 à 99, c'est plus simple.
fin

Ca marche assez bien (sauf pour les 's' malheureusement)
Désolé pour ce mauvais pseudo code, j'écris essentiellement en C.

J'ai retrouvé dans mes archives un code qui fait ça:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
 
FUNCTION FrancsEnChaine(Somme : Extended) : String; 
{____________________________________________________________________________} 
{- Convertit une somme en sa valeur en chaîne} 
CONST 
NomUnites : Array[0..19] Of String[10] 
= ('zéro ','un ','deux ','trois ','quatre ', 
'cinq ','six ','sept ','huit ','neuf ', 
'dix ','onze ','douze ','treize ','quatorze ', 
'quinze ','seize ','dix-sept ','dix-huit ','dix-neuf ' 
); 
NomDizaines : Array[0..9] Of String[13] 
= ('','dix ','vingt ','trente ','quarante ','cinquante ', 
'soixante ','soixante-dix ','quatre-vingt ','quatre-vingt '); 
 
NomCentaines : String[10] = 'cent'; 
NomMilliers : String[10] = 'mille'; 
NomMillions : String[10] = 'million'; 
 
LiaisonsDizainesUnites = 'et'; {trente ET un} 
LiaisonUnitesCentiemmes = 'et'; {50 francs ET quarante centimes} 
 
NomMonaie : String = 'franc'; 
NomCentiemme : String[10] = 'centime'; 
Dapostr : STRING = 'de '; {deux millions DE francs} 
Euro = FALSE; 
Var 
Millions, 
Milliers, 
Cents : Word; 
Fract : Word; 
So : Extended; 
Chn : String; 
 
Function RecuperePortion(Diviseur : Integer) : Word; 
Var 
R : Extended; 
DV : Extended; 
i : Integer; 
 
Begin 
DV := 1; 
For i := 1 To Diviseur Do 
DV := DV*10; 
R := Trunc(So / Int(DV)); 
So := So - (R*Int(DV)); 
RecuperePortion := Trunc(R); 
End; 
 
Function CentsEnChaine(C : Word;ZeroAussi : Boolean) : String; 
Var 
S : String; 
Ce,Di,Un : Byte; 
Begin 
CentsEnChaine := ''; 
S := ''; 
Ce := (C Div 100) Mod 10; 
Di := (C Div 10) Mod 10; 
Un := (C Mod 10); 
If C = 0 Then 
If ZeroAussi Then S := NomUnites[0] 
Else S := '' 
Else 
Begin 
If Ce > 0 Then 
Begin 
If ce > 1 Then 
Begin 
S := S + NomUnites[ce]+NomCentaines; 
If (Di > 0) Or (Un > 0) Then S := S + ' ' 
Else S := S + 's '; 
End 
Else 
If ce = 1 Then S := NomCentaines+' '; 
End; 
If Di > 0 Then 
Begin 
Case Di Of 
1 : S := S + NomUnites[C Mod 100]; 
2,3,4,5,6 
: Begin 
S := S + NomDizaines[Di]; 
If Un = 1 Then S := S + LiaisonsDizainesUnites+ ' '; 
If Un > 0 Then S := S + NomUnites[Un]; 
End; 
8 : Begin 
S := S + NomDizaines[DI]; 
If Un = 0 Then Insert('s',S,Length(S)) 
Else S := S + NomUnites[Un]; 
End; 
7 : Begin 
S := S + NomDizaines[Di-1]; 
If Un = 1 Then 
S := S + LiaisonsDizainesUnites+ ' '; 
S := S + NomUnites[Un+10]; 
End; 
9 : Begin 
S := S + NomDizaines[Di-1]; 
S := S + NomUnites[Un+10]; 
End; 
End; 
End 
Else {DI = 0 -> Pas de dizaines} 
Begin 
If Un > 0 Then 
S := S + NomUnites[Un]; 
End; 
End; 
CentsEnChaine := S; 
End; 
{__________________________________________________________________________} 
 
Begin 
IF Somme > 999999999.99 THEN BEGIN 
Result := 'ERREUR ! Somme trop élevée !'; 
MessageBeep(MB_ICONEXCLAMATION); 
EXIT; 
END; 
IF Euro THEN BEGIN 
NomMonaie := 'euro'; 
NomCentiemme := 'centime'; 
Dapostr := 'd'''; 
END 
ELSE BEGIN 
NomMonaie := 'franc'; 
NomCentiemme := 'centime'; 
Dapostr := 'de '; 
END; 
 
Result := ''; 
Chn := ''; 
Somme := Abs(Somme); 
Fract := Round(Frac(Somme) * 100); 
If Fract > 99 Then 
Begin 
Fract := 0; 
Somme := Somme+1; 
End; 
So := Somme; 
Millions := RecuperePortion(6); 
Milliers := RecuperePortion(3); 
Cents := Trunc(So); 
If Millions > 0 Then 
Begin 
Chn := CentsEnChaine(Millions,False) + NomMillions; 
If Millions > 1 Then Chn := Chn + 's'; 
Chn := Chn + ' '; 
End; 
If Milliers > 1 Then 
Chn := Chn + CentsEnChaine(Milliers,False) + NomMilliers+' ' 
Else 
If Milliers = 1 Then 
Chn := Chn + NomMilliers+' '; 
Chn := Chn + CentsEnChaine(Cents,(Millions=0) And (Milliers=0)); 
IF (Millions <>0) AND (Milliers = 0) AND (Cents = 0) THEN 
Chn := Chn + Dapostr; 
Chn := Chn + NomMonaie; 
If (Cents > 1) or (Milliers <> 0) or (Millions <> 0) Then 
Chn := Chn + 's'; 
If Fract > 0 Then Begin 
Chn := Chn + ' '+LiaisonUnitesCentiemmes+' ' + CentsEnChaine(Fract,False) + NomCentiemme; 
If Fract > 1 Then Chn := Chn + 's'; 
End; 
Chn[1] := UpCase(Chn[1]); 
Result := Chn; file://SupprEspaces(Chn); 
End; 
 
{____________________________________________________________________________} 
FUNCTION EurosEnChaine(Somme : Extended) : String; 
{____________________________________________________________________________} 
{- Convertit une somme en sa valeur en chaîne} 
CONST 
NomUnites : Array[0..19] Of String[10] 
= ('zéro ','un ','deux ','trois ','quatre ', 
'cinq ','six ','sept ','huit ','neuf ', 
'dix ','onze ','douze ','treize ','quatorze ', 
'quinze ','seize ','dix-sept ','dix-huit ','dix-neuf ' 
); 
NomDizaines : Array[0..9] Of String[13] 
= ('','dix ','vingt ','trente ','quarante ','cinquante ', 
'soixante ','soixante-dix ','quatre-vingt ','quatre-vingt '); 
 
NomCentaines : String[10] = 'cent'; 
NomMilliers : String[10] = 'mille'; 
NomMillions : String[10] = 'million'; 
 
LiaisonsDizainesUnites = 'et'; {trente ET un} 
LiaisonUnitesCentiemmes = 'et'; {50 francs ET quarante centimes} 
 
NomMonaie : String = 'franc'; 
NomCentiemme : String[10] = 'centime'; 
Dapostr : STRING = 'de '; {deux millions DE francs} 
Euro = TRUE; 
Var 
Millions, 
Milliers, 
Cents : Word; 
Fract : Word; 
So : Extended; 
Chn : String; 
 
Function RecuperePortion(Diviseur : Integer) : Word; 
Var 
R : Extended; 
DV : Extended; 
i : Integer; 
 
Begin 
DV := 1; 
For i := 1 To Diviseur Do 
DV := DV*10; 
R := Trunc(So / Int(DV)); 
So := So - (R*Int(DV)); 
RecuperePortion := Trunc(R); 
End; 
 
Function CentsEnChaine(C : Word;ZeroAussi : Boolean) : String; 
Var 
S : String; 
Ce,Di,Un : Byte; 
Begin 
CentsEnChaine := ''; 
S := ''; 
Ce := (C Div 100) Mod 10; 
Di := (C Div 10) Mod 10; 
Un := (C Mod 10); 
If C = 0 Then 
If ZeroAussi Then S := NomUnites[0] 
Else S := '' 
Else 
Begin 
If Ce > 0 Then 
Begin 
If ce > 1 Then 
Begin 
S := S + NomUnites[ce]+NomCentaines; 
If (Di > 0) Or (Un > 0) Then S := S + ' ' 
Else S := S + 's '; 
End 
Else 
If ce = 1 Then S := NomCentaines+' '; 
End; 
If Di > 0 Then 
Begin 
Case Di Of 
1 : S := S + NomUnites[C Mod 100]; 
2,3,4,5,6 
: Begin 
S := S + NomDizaines[Di]; 
If Un = 1 Then S := S + LiaisonsDizainesUnites+ ' '; 
If Un > 0 Then S := S + NomUnites[Un]; 
End; 
8 : Begin 
S := S + NomDizaines[DI]; 
If Un = 0 Then Insert('s',S,Length(S)) 
Else S := S + NomUnites[Un]; 
End; 
7 : Begin 
S := S + NomDizaines[Di-1]; 
If Un = 1 Then 
S := S + LiaisonsDizainesUnites+ ' '; 
S := S + NomUnites[Un+10]; 
End; 
9 : Begin 
S := S + NomDizaines[Di-1]; 
S := S + NomUnites[Un+10]; 
End; 
End; 
End 
Else {DI = 0 -> Pas de dizaines} 
Begin 
If Un > 0 Then 
S := S + NomUnites[Un]; 
End; 
End; 
CentsEnChaine := S; 
End; 
{__________________________________________________________________________} 
 
Begin 
IF Somme > 999999999.99 THEN BEGIN 
Result := 'ERREUR ! Somme trop élevée !'; 
MessageBeep(MB_ICONEXCLAMATION); 
EXIT; 
END; 
IF Euro THEN BEGIN 
NomMonaie := 'euro'; 
NomCentiemme := 'centime'; 
Dapostr := 'd'''; 
END 
ELSE BEGIN 
NomMonaie := 'franc'; 
NomCentiemme := 'centime'; 
Dapostr := 'de '; 
END; 
 
result := ''; 
Chn := ''; 
Somme := Abs(Somme); 
Fract := Round(Frac(Somme) * 100); 
If Fract > 99 Then 
Begin 
Fract := 0; 
Somme := Somme+1; 
End; 
So := Somme; 
Millions := RecuperePortion(6); 
Milliers := RecuperePortion(3); 
Cents := Trunc(So); 
If Millions > 0 Then 
Begin 
Chn := CentsEnChaine(Millions,False) + NomMillions; 
If Millions > 1 Then Chn := Chn + 's'; 
Chn := Chn + ' '; 
End; 
If Milliers > 1 Then 
Chn := Chn + CentsEnChaine(Milliers,False) + NomMilliers+' ' 
Else 
If Milliers = 1 Then 
Chn := Chn + NomMilliers+' '; 
Chn := Chn + CentsEnChaine(Cents,(Millions=0) And (Milliers=0)); 
IF (Millions <>0) AND (Milliers = 0) AND (Cents = 0) THEN 
Chn := Chn + Dapostr; 
Chn := Chn + NomMonaie; 
If (Cents > 1) or (Milliers <> 0) or (Millions <> 0) Then 
Chn := Chn + 's'; 
If Fract > 0 Then Begin 
Chn := Chn + ' '+LiaisonUnitesCentiemmes+' ' + CentsEnChaine(Fract,False) + NomCentiemme; 
If Fract > 1 Then Chn := Chn + 's'; 
End; 
Chn[1] := UpCase(Chn[1]); 
Result := Chn; 
End;

C'est en Delphi mais je ne pense pas que ce soit dur à traduire dans un autre langage...

:faq:
http://delphi.developpez.com/faq/?pa...ombreenlettres

Bloon