CHIFFRE ARABE --&GT; CHIFFRE ROMAIN , Source N°12304

Information sur la source

Catégorie :Maths Niveau : Débutant Date de création : 20/01/2003 Date de mise à jour : 11/04/2003 13:20:26 Vu / téléchargé: 16 371 / 325

Auteur : g0belin

Site perso

Ecrire un message privé

Note :

5,00 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Oui, je sais y a deja une source qui parle de sa mais elle est tellement pas belle aux niveaux de la conception que je vous ai mise la mienne qui me semble un peux mieux mise a part qu'elle va de 0..5000

Source

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
GroupBox2: TGroupBox;
Edit2: TEdit;
GroupBox3: TGroupBox;
Edit3: TEdit;
procedure Edit3Change(Sender: TObject);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
const
romains: array[1..7] of char=('I','V','X','L','C','D','M');
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Edit3Change(Sender: TObject);
var i,k:integer;
begin
if strtoint(edit3.text)<4000 then
BEGIN
edit2.text:='';
for i:=1 to length(edit3.text) do
begin
k:=2*(length(edit3.text)-i)+1;
Case edit3.text[i] of
'1':edit2.text := edit2.text+romains[k];
'2':edit2.text := edit2.text+romains[k]+romains[k];
'3':edit2.text := edit2.text+romains[k]+romains[k]+romains[k];
'4':edit2.text := edit2.text+romains[k]+romains[k+1];
'5':edit2.text := edit2.text+romains[k+1];
'6':edit2.text := edit2.text+romains[k+1]+romains[k];
'7':edit2.text := edit2.text+romains[k+1]+romains[k]+romains[k];
'8':edit2.text := edit2.text+romains[k+1]+romains[k]+romains[k]+romains[k];
'9':edit2.text := edit2.text+romains[k]+romains[k+2];
end;
end;
end;
end;
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9', #8]) then
key:=#0;
end;
end.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    GroupBox3: TGroupBox;
    Edit3: TEdit;
    procedure Edit3Change(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
const
romains: array[1..7] of char=('I','V','X','L','C','D','M');
var
  Form1: TForm1;
implementation

{$R *.DFM}

procedure TForm1.Edit3Change(Sender: TObject);
var i,k:integer;
begin
if strtoint(edit3.text)<4000 then
BEGIN
edit2.text:='';
for i:=1 to length(edit3.text) do
  begin
    k:=2*(length(edit3.text)-i)+1;
    Case edit3.text[i] of
    '1':edit2.text := edit2.text+romains[k];
    '2':edit2.text := edit2.text+romains[k]+romains[k];
    '3':edit2.text := edit2.text+romains[k]+romains[k]+romains[k];
    '4':edit2.text := edit2.text+romains[k]+romains[k+1];
    '5':edit2.text := edit2.text+romains[k+1];
    '6':edit2.text := edit2.text+romains[k+1]+romains[k];
    '7':edit2.text := edit2.text+romains[k+1]+romains[k]+romains[k];
    '8':edit2.text := edit2.text+romains[k+1]+romains[k]+romains[k]+romains[k];
    '9':edit2.text := edit2.text+romains[k]+romains[k+2];
    end;
  end;
 end;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9', #8]) then
key:=#0;
end;

end.

Conclusion

Restriction :
o Chiffre entier de 0..5000

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

capture.jpg 8 905 octets
Project1.cfg 386 octets
Project1.dof 983 octets
Project1.dpr 188 octets
Project1.res876 octets
Unit1.dcu5 472 octets
Unit1.dfm998 octets
Unit1.pas 1 552 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de g0belin

Sources de la même categorie

Toutes les sources de la catégorie Maths

Commentaires

Commentaire de Delphiprog le 20/01/2003 23:21:50 administrateur CS

Moi, je suis fainéant, au lieu de :
if not(Key in ['0','1','2','3','4','5','6','7','8','9', #8])
j'écris :
if not(Key in ['0'..'9', #8])
[;-O]
Commentaire de g0belin le 21/01/2003 11:08:49

Charmant façon de me montrer mon erreur !
Merci de l'avoir signalée
Commentaire de aymenk le 10/04/2003 02:35:26

Si vous parlez de mon source conversion de chiffre en lettre arabe je ne vois pas de simulitude
Commentaire de g0belin le 11/04/2003 13:17:16

Non ce n'est pas par rapport au tiens :)