CONVERTISSEUR

Messages postés
111
Date d'inscription
samedi 21 août 2004
Statut
Membre
Dernière intervention
28 octobre 2014
- - Dernière réponse : cs_kamalz
Messages postés
26
Date d'inscription
samedi 15 octobre 2005
Statut
Membre
Dernière intervention
27 juillet 2006
- 8 juin 2006 à 22:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/37976-convertisseur

cs_kamalz
Messages postés
26
Date d'inscription
samedi 15 octobre 2005
Statut
Membre
Dernière intervention
27 juillet 2006
-
Bon début, ça manque d'entretien ...
cs_Nono40
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1 -
Trois remarques.
- Le case avec les 101 cas, ce n'est pas top. Utilise plutôt un tableau constant
- Le code n'est pas indenté correctement
- Le code peut se simplifier énormément avec un méthode récursive tout en gardant ta logique :

function Centaine (i: integer) : String; { NOM DES CHIFFRES }
begin
case i of
1..100: Result:=chif(i);
101..199: Result:=' cent ' + Chif(i mod 100);
200..999: case (i mod 100) of
0: Result:=Chif(i div 100) + ' cent';
1..99: Result:=Chif(i div 100) + ' cent ' + Chif(i mod 100);
end;
1000..999999: case (i div 1000) of
1: Result:=' mille '+ Centaine(i mod 1000);
2..999:Result:=Centaine(i div 1000)+' milles '+ Centaine(i mod 1000);
end;
1000000..999999999: Result:= Centaine(i div 1000000)+' millions '+ Centaine(i mod 1000000);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:Int64;
begin
i:=StrToInt64(edit1.Text);
if (i <= 999999999) then
edit2.Text:= Centaine(i)
else
edit2.Text:= Centaine(i div 1000000000)+' milliards '+ Centaine(i mod 1000000000);
end;
yano2005
Messages postés
15
Date d'inscription
dimanche 25 décembre 2005
Statut
Membre
Dernière intervention
5 septembre 2007
-
Bon merci pour les commentaires sinon je m'attendaids à ça avt tout en tant que débutant sinon dans notre monnaie ya pas de chiffres aprés la virgule

dans tout le cas merci c'est déjà bon pour moi que je puisse faire un prg
je m'escuse pour les exe

je souhaite etre consistant prochainement
hurrycane
Messages postés
123
Date d'inscription
samedi 4 janvier 2003
Statut
Membre
Dernière intervention
19 juin 2009
1 -
et puis c'est ta premiere source et c'est les premiers commentaires alors ne prend pas mal !
et bon courage et bonne continuation et bonne programmation yano :)
yvessimon
Messages postés
644
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
-
et zéro !

Filtre les caractères entrés afin d'avoir que des chiffres 0 à 9