Nombres en toutes lettres : comment optimiser mon programme ?

Version imprimable

Salut tout le monde
Je viens de chercher une autre methode pour remplacer la mienne qui est trop longue. Voici l'énoncé :

Citation:

Traduire en toute lettre un entier naturel composé de deux chiffres au maximum.

voici ma méthode :

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
 
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.:(

29/10/2006, 13h20
jobherzt

Ben suffit de mettre un test sur le premier et le deuxieme chiffre.

tu laisses les chiffres de 0 a neuf pour le chiffre de droite

pour le chiffre de gauche, si yen a pas tu mets rien

si yen a un tu mets un truc du genre :

si c'est 2 > "vingt"
si c'est 3 > "trente"

et tu assembles les 2 bouts. il n'y a que pour 11 12 13 14 15 16 que ca coince..
30/10/2006, 08h45
M.Dlb

Oui et pour les soixantes dix, et quatre-vingt dix... Tu peux utiliser septante et nonante :)
01/11/2006, 21h33
defluc

Avec Octante ou Huitante pour quatre vingt, le français deviendra enfin aussi logique que les autres langues.

Re:

L'an dérnier notre prof nous a donner un exercice comme ca je l'ai travailler à ma façon si ca peut t'aider

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
program chiffreetdeslettres;
uses crt,dos;
var
       a:integer;
       s:string;
function tran(nombre:integer):string;
      begin
if nombre=0 then tran:='zero';
if nombre=1 then tran:='un';
if nombre=2 then tran:='deux';
if nombre=3 then tran:='trois';
if nombre=4 then tran:='quatres';
if nombre=5 then tran:='cinques';
if nombre=6 then tran:='six';
if nombre=7 then tran:='sept';
if nombre=8 then tran:='huit';
if nombre=9 then tran:='neuf';
end;
begin
  write('Entrer votre chiffre');
  read(s);
  val(s,a);
case s[1] of
'0':write(tran(a));
'1':begin case s[2] of
                      '1':write('onze');
                      '2':write('douze');
                      '3':write('treze');
                      '4':write('quatorze');
                      '5':write('quinze');
                      '6':write('seize');
                      '7':write('dix sept');
                      '8':write('dix huit');
                      '9':write('dix neuf');
                      end;
       end;
'2':begin val(s[2],a);write('vingt et ',tran(a));end;
'3':begin val(s[2],a);write('trente et ',tran(a));end;
'4':begin val(s[2],a);write('qurente et ',tran(a));end;
'5':begin val(s[2],a);write('cinquante et ',tran(a));end;
'6':begin val(s[2],a);write('soixante et ',tran(a));end;
'7':begin val(s[2],a);write('soixante dix et ',tran(a));end;
'8':begin val(s[2],a);write('quantre vingt et ',tran(a));end;
'9':begin val(s[2],a);write('qautre vingt dix et ',tran(a));end;

else write('erreur');
end;
readln;
readln;
end.

j'espére que ça t'aidera @+

03/11/2006, 13h12
pcaboche

@diden138: Que retourne ton programme pour n=20 ? "vingt et zéro" ?

Il existe quelques règles (et exception) concernant l'écriture des nombres en Français. Ces règles sont très bien expliquées ici :
http://www.leconjugueur.com/frlesnombres.php

Il est très intéressant (et pas très difficile) d'étendre le programme aux grands nombres (milliers, millions, milliards) en rendant le programme récursif de manière à afficher, par exemple: "deux cent quatre-vingts mille six cents".
06/11/2006, 22h03
h.Cemu.Orka
et si on declare des et des tableaux constantes au lieux des variables
ex
Code:

1 2 3 4 t = array [0..9] of string ('zero','un','deux','trois','qutre','....','neuf') ; puis writeln (T[a mod 10]) ;
est ce que on peut le resoudre de cette façon ?
je veux une solution :arf:
06/11/2006, 22h54
Alcatîz

Bonjour,

Citation:

Envoyé par h.Cemu.Orka

je veux une solution :arf:

Une recherche sur les forums t'aurait apporté des éléments de réponse :
http://www.developpez.net/forums/sho...hlight=lettres
http://www.developpez.net/forums/sho...hlight=lettres
... il y en a peut-être d'autres.
07/11/2006, 13h25
defluc

Je repartirais de l'exemple de Diden138 en enlevant les "et " derrière les dizaines (vingt, trente)... Il n'y a que si le chiffre des unités est 1 qu'il faut le mettre.

vingt et un mais pas vingt et deux
07/11/2006, 14h12
diden138

Re:

Bonjour,
Ecoute moi bien si tu veux construire un programme qui te traduira ce que tu veux(meme 20 miliard ) en toutes lettre il n y'a pas milles solutions tu dois créer trois fonctions
1ere fonction->elle te fais le décomposition de ton nombre en chaine arithmétique ex:1856=1*1000+8*100+5*10+6
2eme fonction->elle te simplifi ta chaine arithmétique si tu a un zéro elle l'elimine (biensur en cas de +) si tu a un 1 ellle te l'elimine (biensur en cas de *) si tu a 3*20 elle le simplifie en 60 ,5*10=50
3eme fonction->elle te traduit ta chaine arithmétique simplifié
commençon d'abors par la premiére pour cette décomposition qui parait évidente pour un humain qui a étudié les math :lol: heureusement qu'il ya des régles pour faire cela
avant de commencer quand j'ecrie pui ca veut dire puissance ok
si n est dans [1..59] alors inc_nbr(n)=(n/10)*10+le rest ;
si n est dans [60..99] alors inc_nbr(n)=(n/20)*20+le rest;
si n >=100 alors inc_nbr(n)=(n/100)*100+inc_nbr(le rest);
si n>=1000 alors inc_nbr(n)=inc_nbr(n/1000)*1000+inc_nbr(inc_nbr(le rest));
meme chose avec un million puis un milliard
2eme fonction
elle doit te faire la simplification
1*10=10
20*1=20
.....
5+0=5
3eme et dérnière fonction elle lit tous simplement ta chaine arithmétique , tu déclare comme constante dans ton programme tous les chiffre 1,2,3,4,5,6,7,8,9,10,20,30,40,50,60 ,100,1000,1000000,1000000000
un deux,...vingt trente quarent cinquante soixante,cent,milles,million,milliard
aprés c'est ta fonction qui fait tout elle compose un chiffre composé à partir de chiffres simple ex:
inc_nbr(2356)=(2356/1000)*1000+3*100+5*10+6
simplification->2*1000+3*100+50+6
et ca te donne deux milles troi cent cinquante six
une petite indication les fonctions mo et div te seront trés utils
on peut pas faure tout à ta place

Voici un lien d'un exemple en Delphi mais c'est la même chose, tu peux même utiliser cette unité en Pascal mais il vaudrait mieux que tu essayes de résoudre le problème par toi-même :
http://delphi.developpez.com/faq/?pa...ier-en-lettres
Tiens-nous au courant @+