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

[agressor]

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

[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