Написание программы на языке DElphi

Ввести два числа - x, y. Вычислить выражение:



unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='1';
Edit2.Text:='1';
Memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var s, x,y: extended;
begin
// Ввод исходных данных и их вывод в окно Меmo1
x:= StrToFloat(Edit1.Text);
Memo1.Lines.Add('x=' + Edit1.Text);
y:= StrToFloat(Edit2.Text);
Memo1.Lines.Add('y=' + Edit2.Text);
if x=0 then s:=sqrt(abs(x*sin(y)))+tan(y)
else if x>0 then s:=x*sqrt(y)+2*x
else s:=y/(sqrt(sin(x)*sin(x)*sin(x)*sin(x)));
Memo1.Lines.Add('s=' + FloatToStrF(s, ffFixed, 8, 2));

end;

end....

Дана строка, представляющая собой запись числа в двоичной системе счисления. Преобразовать ее в строку, представляющую собой запись числа в шестнадцатеричной системе счисления.
Для ввода строк и работы с ними использовать компонент TEdit. Ввод строки заканчивать нажатием клавиши Enter. Алгоритм оформить в виде подпрограммы.

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
procedure FormCreate(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
private { Private declarations }
public { Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}

function BinToHex(s:string):string;
Const s2:string[79]='0000 0001 0010 0011 0100 0101 0110 0111 1000 1001 1010 1011 1100 1101 1110 1111';
s3:string[16]='0123456789ABCDEF';
Var rez:string;
i:byte;
begin
if length(s) mod 40 then s:=copy(s2,1,4-length(s) mod 4)+s;
rez:='';
for i:=1 to length(s) div 4 do
rez:=rez+s3[(pos(copy(s,i*4-3,4),s2) div 5+1)];
BinToHex:=rez;
end;

...