Скачать TPMath v1.0 - Turbo Pascal Math Unit

14.10.1997
Скачать файл (1,58 Кб)

unit Math;

interface

(* ---------------------- *)      (* --------------------------- *)
(* MATH FUNCTIONS TP-UNIT *)      (* LOGARITHM, POWERS AND ROOTS *)
(* ---------------------- *)      (* --------------------------- *)
function Power (x,y:real):real;   (* x to the power of y         *)
function Root (x,y:real):real;    (* the y'th root of x          *)
function Log (x:real):real;       (* Logarithm of x with base 10 *)
function Antilog (x:real):real;   (* 10^x                        *)
function LogBase (x,y:real):real; (* Logarithm of x with base y  *)
                                  (* --------------------------- *)
                                  (* TRIGONOMETRIC FUNCTIONS     *)
                                  (* --------------------------- *)
function D2R (x:real):real;       (* Degrees to radians          *)
function R2D (x:real):real;       (* Radians to degrees          *)
function Tan (x:real):real;       (* Tangent of x                *)
function ArcSin (x:real):real;    (* Arc sine of x               *)
function ArcCos (x:real):real;    (* Arc cosine of x             *)
                                  (* --------------------------- *)
                                  (* HYPERBOLIC FUNCTIONS        *)
                                  (* --------------------------- *)
function Sinh (x:real):real;      (* Sine hyperbolic of x        *)
function Cosh (x:real):real;      (* Cosine hyperbolic of x      *)
function Tanh (x:real):real;      (* Tangent hyperbolic of x     *)
function ArSinh (x:real):real;    (* Ar sine hyperbolic of x     *)
function ArCosh (x:real):real;    (* Ar cosine hyperbolic of x   *)
function ArTanh (x:real):real;    (* Ar tangent hyperbolic of x  *)
                                  (* --------------------------- *)
                                  (* OTHER FUNCTIONS             *)
                                  (* --------------------------- *)
function Fac (n:integer):real;    (* Factorial of n  (n!)        *