| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104 |
- Listing:
- 1 (* Release 3.10 *)
- 2 (*-------------------------------------------------------------------------*
- 3 * *
- 4 * MATHLIB0.MOD - Trigonometry (core library) *
- 5 * *
- 6 * COPYRIGHT (C) 1987..1992 Clarion Software Corporation. *
- 7 * All Rights Reserved *
- 8 * *
- 9 *--------------------------------------------------------------------------*)
- 10
- 11 IMPLEMENTATION MODULE MathLib0;
- 12
- 13 FROM MATHLIB IMPORT ATan, Cos, Exp, Log, Sin, Sqrt;
- 14
- 15
- 16 PROCEDURE arctan( r: REAL) : REAL;
- 17 BEGIN
- 18 RETURN REAL( ATan( LONGREAL( r)));
- ***** ^ not supported yet
- ***** ^ not supported yet
- 19 END arctan;
- ***** ^ not supported yet
- 20
- 21
- 22 PROCEDURE cos( r: REAL) : REAL;
- 23 BEGIN
- 24 RETURN REAL( Cos( LONGREAL( r)));
- ***** ^ not supported yet
- ***** ^ not supported yet
- 25 END cos;
- ***** ^ not supported yet
- 26
- 27
- 28 PROCEDURE entier( r: REAL) : INTEGER;
- 29 VAR
- 30 i : INTEGER;
- 31 BEGIN
- 32 i := TRUNC( r);
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 33 IF (r < 0.0) AND (r <> FLOAT( i)) THEN
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 34 DEC( i);
- ***** ^ undeclared identifier
- ***** ^ not supported yet
- 35 END;
- 36 RETURN i;
- 37 END entier;
- ***** ^ not supported yet
- 38
- 39
- 40 PROCEDURE exp( r: REAL) : REAL;
- 41 BEGIN
- 42 RETURN REAL( Exp( LONGREAL( r)));
- ***** ^ not supported yet
- ***** ^ not supported yet
- 43 END exp;
- ***** ^ not supported yet
- 44
- 45
- 46 PROCEDURE ln( r: REAL) : REAL;
- 47 BEGIN
- 48 RETURN REAL( Log( LONGREAL( r)));
- ***** ^ not supported yet
- ***** ^ not supported yet
- 49 END ln;
- ***** ^ not supported yet
- 50
- 51
- 52 PROCEDURE real( i: INTEGER) : REAL;
- 53 BEGIN
- 54 RETURN REAL( i);
- ***** ^ not supported yet
- 55 END real;
- ***** ^ not supported yet
- 56
- 57
- 58 PROCEDURE sin( r:REAL) : REAL;
- 59 BEGIN
- 60 RETURN REAL( Sin( LONGREAL( r)));
- ***** ^ not supported yet
- ***** ^ not supported yet
- 61 END sin;
- ***** ^ not supported yet
- 62
- 63
- 64 PROCEDURE sqrt( r:REAL) : REAL;
- 65 BEGIN
- 66 RETURN REAL( Sqrt( LONGREAL( r)));
- ***** ^ not supported yet
- ***** ^ not supported yet
- 67 END sqrt;
- ***** ^ not supported yet
- 68
- 69
- 70 END MathLib0.
- ***** ^ not supported yet
- 28 errors
|
