Логарифм по основанию делёный на гиперболический синус. Delphi

[Dilex]

Ребята помогите разобраться как оформить в Delphi вот эту формулу: log.jpg

Если не трудно заспешите пожалуйста что да как, сижу 2 день не могу понять
Всем заранее большое спасибо !

[Вадим Мошев]

Можно, например, так

A:=ln(x)/ln(b); // логарифм по основанию
C:=(exp(x)-exp(-x))/2; // гиперболический синус

y:=A/B;

[Stilet]

Логарифм считается так:

l:=ln(x)/ln(b)

А синус

(exp(x)-exp(-x))/2

Читай математические справочники или википедию, не ленись.

[Dilex]

Спасибо большое за советы ! обьясните мне пожалуйста сколько должно быть полей ввода ? тоесть основание b потом x для log а в гиперболич. синусе есть также Х значит ему будет присваиваться таже цифра которая и в логарифме !?
тогда мне нужно 3 поля ввода ? или я чего-то не понимаю ?

[Вадим Мошев]

Сколько уникальных переменных, столько и полей ввода, плюс одно поле для значения функции

[Dilex]

procedure TForm1.btn1Click(Sender: TObject);
  var
    l:Real;   //логарифм
    c:Real ;  //Синус
    y:Real;
    x:Real;
    b:Real;
begin
 l:= StrToInt(edt1.text);
 c:= StrToFloat(edt2.text);
 l:=ln(x)/ln(b);
 c:=(exp(x)-exp(-x))/2;
 y:=l/c;
 lbl1.Caption := 'y=' + edt1.Text;
end;

end.

помойму что-то не так ((

[ViktorR]

а так?

procedure TForm1.btn1Click(Sender: TObject);
  var
    l:Real;
    c:Real;
    y:Real;
    x:Real;
    b:Real;
begin
 X:= StrToFloat(edt1.text);
 B:= StrToFloat(edt2.text);
 l:=ln(X)/ln(B);
 c:=(exp(x)-exp(-x))/2;
 y:=l/c;
 lbl1.Caption := 'y=' + edt1.Text;
end;

end.

[Dilex]

Сообщение от ViktorR

а так?

procedure TForm1.btn1Click(Sender: TObject);
  var
    l:Real;
    c:Real;
    y:Real;
    x:Real;
    b:Real;
begin
 X:= StrToFloat(edt1.text);
 B:= StrToFloat(edt2.text);
 l:=ln(X)/ln(B);
 c:=(exp(x)-exp(-x))/2;
 y:=l/c;
 lbl1.Caption := 'y=' + edt1.Text;
end;

end.

Все точно также программа выводит число которое было введено в edit1

[Mad_Cat]

Все точно также программа выводит число которое было введено в edit1

у тя написано его выводить)

 lbl1.Caption := 'y=' + edt1.Text;

вот она и выводит!!!
А вот так должно быть:

lbl1.Caption := 'y=' + FloatToStr(y);

[Dilex]

Большое спасибо работает