Калькулятор римских цифр

[ttjke]

Я сделал обычный калькулятор. Как мне перейти от арабских цифр к римским цифрам?

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Math, Menus;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    BitBtn16: TBitBtn;
    BitBtn17: TBitBtn;
    BitBtn19: TBitBtn;
    BitBtn21: TBitBtn;
    BitBtn22: TBitBtn;
    BitBtn23: TBitBtn;
    BitBtn24: TBitBtn;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure BitBtn19Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure BitBtn24Click(Sender: TObject);
    procedure BitBtn23Click(Sender: TObject);
    procedure BitBtn22Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure BitBtn21Click(Sender: TObject);
    procedure BitBtn16Click(Sender: TObject);
    procedure BitBtn17Click(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  kod : char;
  x, y, z : real;
  k, y1:integer;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'1'
end;
 
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'2'
 
end;
 
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'3'
 
end;
 
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'4'
 
end;
 
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'5'
 
end;
 
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'6'
 
end;
 
procedure TForm1.BitBtn7Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'7'
 
end;
 
procedure TForm1.BitBtn8Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'8'
 
end;
 
procedure TForm1.BitBtn9Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'9'
 
end;
 
procedure TForm1.BitBtn10Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+'0' 
 
end;
 
procedure TForm1.BitBtn13Click(Sender: TObject);
begin
edit1.Text:=edit1.Text+','
 
end;
 
procedure TForm1.BitBtn19Click(Sender: TObject);
begin
edit1.Clear 
end;
 
procedure TForm1.BitBtn12Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod := '+';
edit1.Clear;
 
end;
 
procedure TForm1.BitBtn24Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod := '-';
edit1.Clear;
end;
 
procedure TForm1.BitBtn23Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod := '/';
edit1.Clear;
end;
 
procedure TForm1.BitBtn22Click(Sender: TObject);
begin
if edit1.Text<>'' then x:=strtofloat(edit1.text);
kod := '*';
edit1.Clear;
end;
 
procedure TForm1.BitBtn11Click(Sender: TObject);
begin
if edit1.Text<>'' then  y:=strtofloat(edit1.text);
    case kod of
    '+': z:=x+y;
    '-': z:=x-y;
    '*': z:=x*y;
    '/': z:=x/y;
end;
edit1.Text:=floattostr(z)
 
end;
 
 
 
procedure TForm1.BitBtn21Click(Sender: TObject);
begin
 x:=strtofloat( edit1.Text);
     edit1.clear;
     z:=sqrt(x);
     edit1.Text:=floattostr(z)
end;
 
 
procedure TForm1.BitBtn16Click(Sender: TObject);
begin
 x:=strtofloat(edit1.Text);
 x:=(x*3.14)/180;
 edit1.Clear;
 z:=sin(x);
 edit1.Text:=floattostr(z)
end;
 
procedure TForm1.BitBtn17Click(Sender: TObject);
begin
 x:=strtofloat(edit1.Text);
     x:=(x*3.14)/180;
     edit1.Clear;
     z:=cos(x);
     edit1.Text:=floattostr(z)
end;
 
 
 
procedure TForm1.BitBtn14Click(Sender: TObject);
begin
 x:=strtofloat(edit1.Text);
     x:=(x*3.14)/180;
     edit1.Clear; 
     z:=tan(x);
     edit1.Text:=floattostr(z)
end;
 end.

[Alex Cones]

1) Из римской цифры в памяти создайте арабскую.
2) произведите действия.
3) Сделайте обратный перевод и выведите на экран.

http://ru.wikipedia.org/wiki/%D0%A0%...84%D1%80%D1%8B

[Serge_Bliznykov]

пример программы на Pascal
которая
"Перевод из арабской в римскую систему и наоборот"