Функция вычисления тангенса Опции

[agressor]

Написать функцию вычисляющую тангенс угла (ta(a)):ta(a)

[volvo]

agressor

Код

Tan(x) := sin(x) / cos(x);

Ну и проверка на cos(x) = 0 естественно...

А заголовок-то исправь...

[agressor]

Я не понимаю как её написать.

[volvo]

Код

{$N+, E+} {Включение режима эмуляции сопроцессора}
Function Tan(x: Double): Double;
 Begin
   Tan := 10000; { Для случая когда Cos(x) = 0 }
   If Abs(Cos(x)) > 0.0001 Then Tan := Sin(x) / Cos(x)
 End;

Только в режиме эмуляции программа сможет корректно работать с вещественными типами (Single, Double, Extended)

Сообщение отредактировано: volvo - 19.01.2005 20:40

[agressor]

(x: Double): Double; а что это значит?

[volvo]

agressor
Читай книги про оформление функций - это "Заголовок функции"

P.S. Название темы поменял. В следующий раз тему с таким заголовком удалю...

[agressor]

{$N+, E+} Обязательно?

[volvo]

Только в режиме эмуляции программа сможет корректно работать с вещественными типами (Single, Double, Extended)

Читать умеешь?

[agressor]

А можно ее решить как нибудь для начинающих?

[FreeMan]

А в чём проблемы????

[agressor]

Double : можно подругому?

[volvo]

agressor

Код

Function Tan(x: Real): Real;
Begin
  Tan := 10000; { Для случая когда Cos(x) = 0 }
  If Abs(Cos(x)) > 0.0001 Then Tan := Sin(x) / Cos(x)
End;

Так лучше? Говорю сразу, без Real - не получится :no:

[agressor]

спасибо!