home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
TPL60N19
/
TESTPRGS
/
FUN1_TP6.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-02-14
|
2KB
|
108 lines
{$A+,B-,D+,E-,F-,I-,L-,N-,O-,R-,S-,V-}
{$M 16384,0,655360}
UNIT Fun1_TP6;
INTERFACE
TYPE RealMathFun = FUNCTION (X: REAL): REAL;
FUNCTION Add_TP60 (X, Y: REAL): REAL;
FUNCTION Sub_TP60 (X, Y: REAL): REAL;
FUNCTION Mul_TP60 (X, Y: REAL): REAL;
FUNCTION Div_TP60 (X, Y: REAL): REAL;
FUNCTION Sqr_TP60 (X: REAL): REAL;
FUNCTION Int_TP60 (X: REAL): REAL;
FUNCTION Frac_TP60 (X: REAL): REAL;
FUNCTION Trunc_TP60(X: REAL): LONGINT;
FUNCTION Round_TP60(X: REAL): LONGINT;
FUNCTION Float_TP60(I: LONGINT): REAL;
FUNCTION SW_Arctan (X: REAL): REAL;
FUNCTION SW_Sin (X: REAL): REAL;
FUNCTION SW_Cos (X: REAL): REAL;
FUNCTION SW_Exp (X: REAL): REAL;
FUNCTION SW_Ln (X: REAL): REAL;
IMPLEMENTATION
FUNCTION Add_TP60 (X, Y: REAL): REAL;
BEGIN
Add_TP60 := X + Y;
END;
FUNCTION Sub_TP60 (X, Y: REAL): REAL;
BEGIN
Sub_TP60 := X - Y;
END;
FUNCTION Mul_TP60 (X, Y: REAL): REAL;
BEGIN
Mul_TP60 := X * Y;
END;
FUNCTION Div_TP60 (X, Y: REAL): REAL;
BEGIN
Div_TP60 := X / Y;
END;
FUNCTION Sqr_TP60 (X: REAL): REAL;
BEGIN
Sqr_TP60 := Sqr (X);
END;
FUNCTION Int_TP60 (X: REAL): REAL;
BEGIN
Int_TP60 := Int (X);
END;
FUNCTION Frac_TP60 (X: REAL): REAL;
BEGIN
Frac_TP60 := Frac (X);
END;
FUNCTION Trunc_TP60 (X:REAL): LONGINT;
BEGIN
Trunc_TP60 := Trunc (X);
END;
FUNCTION Round_TP60 (X:REAL): LONGINT;
BEGIN
Round_TP60 := Round (X);
END;
FUNCTION Float_TP60 (I: LONGINT): REAL;
BEGIN
Float_TP60 := I;
END;
FUNCTION SW_Arctan (X: REAL): REAL;
BEGIN
SW_Arctan := Arctan (X);
END;
FUNCTION SW_Sin (X: REAL): REAL;
BEGIN
SW_Sin := Sin (X);
END;
FUNCTION SW_Cos (X: REAL): REAL;
BEGIN
SW_Cos := Cos (X);
END;
FUNCTION SW_Exp (X: REAL): REAL;
BEGIN
SW_Exp := Exp (X);
END;
FUNCTION SW_Ln (X: REAL): REAL;
BEGIN
SW_Ln := Ln (X);
END;
END. { Fun1_TP6 }