Формула - Общие вопросы Delphi

Xo6ut · 27.01.2014, 20:45

Может кто написать формулу(как она будет выглядеть в делфи)
Номер 21

type_Oleg · 27.01.2014, 20:54

Как в любом Паскале:

Код:

f:=Ln(20/Sqrt(0.009))-1.5*(Exp(x/3)+Exp(-x/3))-x;

Или так:

Код:

f:=Ln(20)-0.5*Ln(0.009)-1.5*(Exp(x/3)+Exp(-x/3))-x;

Человек_Борща · 27.01.2014, 21:01

по идее так:

Код:

var
  x: Integer;
  result: Extended;

begin
  x := 5;
  result := (Ln(20 / sqrt(0.009))) - (1.5 * (Exp(x / 3) + Exp(-x / 3)) - x);

X - некое число, может даже не целое
В формуле так же могут быть ошибки)
Но оно компилируется и считается.

27.01.2014, 20:54	#2
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,499	Как в любом Паскале: Код: `f:=Ln(20/Sqrt(0.009))-1.5(Exp(x/3)+Exp(-x/3))-x;` Или так: Код: `f:=Ln(20)-0.5Ln(0.009)-1.5*(Exp(x/3)+Exp(-x/3))-x;`

27.01.2014, 21:01	#3
Человек_Борща Старожил Регистрация: 30.12.2009 Сообщений: 11,426	по идее так: Код: `var x: Integer; result: Extended; begin x := 5; result := (Ln(20 / sqrt(0.009))) - (1.5 * (Exp(x / 3) + Exp(-x / 3)) - x);` X - некое число, может даже не целое В формуле так же могут быть ошибки) Но оно компилируется и считается.