CONVERTISSEUR

Commentaire de Francky23012301 le 06/06/2006 00:34:40

Salut,

Et deux executables deux : c'est une nouvelle mode sur CS ?? Pour la nième fois, il est interdit de mettre des executables

Commentaire de hurrycane le 06/06/2006 13:17:53

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 :)

Commentaire de Nono40 le 07/06/2006 23:04:47

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;