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

{$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;

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