Уравнение в Delphi

[Kazik]

Помогите написать уравнение в Delphi.
Просто написать уравнение и все.
Заранее благодарю.

[deathNC]

function func(a, x: Real): Real;
begin
  If (x > 0) and (x <> (pi/2) ) then
    result := exp( (1/3) * ln(a / Cos(x)) ) +
    + exp((-a)*x) + tan( a*sqr(x) ) * sqr( sin(a*x) ) -
    - a*exp( 0.25 * ln(x) ) + a
  else
    result := 0.0;
end;

Как-то так... но это просто функция, которая возвращает результат... уравнения в Delphi написать нельзя.

[Kazik]

спасибо...НО...
при выполнении программы выдает ошибку...пишет что в уравнении деление на 0...как я понимаю деление есть только в одном месте (первая экспонента).
Пробовал просто убрать из кода или прибавлять 1...не помогает...помогите разобраться!!

[Stilet]

.как я понимаю деление есть только в одном месте

Неправильно понимаешь:

exp( (1/3) * ln(a / Cos(x)) ) +

Увидел?

[Katus]

Х <> 0 // COS(X)<>0

[whatever]

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

Х <> 0 // COS(X)<>0

Не уверен, что правильно понял написанное, но cos(0)=1. Думаю нужно поставить ограничение, чтобы x не был равен единице, ибо cos(1)=0, и, как результат, происходит деление на ноль.

[Аватар]

Чего вдруг cos(1)=0? От пи/2 да. И соответственно от 3/2*пи и т.д.

[whatever]

Сообщение от Аватар

Чего вдруг cos(1)=0? От пи/2 да. И соответственно от 3/2*пи и т.д.

@$@#$!!! Согласен. Постоянно путаюсь

[deathNC]

If (x > 0) and (x <> (pi/2) ) then

упс... я тут ступил :-[

If (x > 0) and (  (x/(pi/2)) - trunc(x/(pi/2)) = 0.0) then
  ...

метод тупой, но если я не ошибся - должен сработать

[deathNC]

Katus, X не должен быть нулём или отрицательным числом - под знаком логарифма такие числа не ставятся