PROGRAMA CAMBIO DE MONEDA

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure BitBtn2Click(Sender: TObject);
private { Private declarations }
public { Public declarations }
end;

var Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.BitBtn2Click(Sender: TObject);
var bol,sus,eur:real;
begin
bol:=0;
bol:=strtofloat (edit1.Text);
sus:=bol/7.07;
eur:=bol/9.86;
edit2.Text:=floattostr(sus)+'$us.';
edit3.Text:=floattostr(eur)+'Euros';
end;
end.