98,8 → 98,8 |
|
CONST |
|
pi = 3.141592653589793D+00 |
e = 2.718281828459045D+00 |
pi = 3.141592653589793E+00 |
e = 2.718281828459045E+00 |
|
|
PROCEDURE IsNan(x: REAL): BOOLEAN |
153,13 → 153,13 |
PROCEDURE tanh(x: REAL): REAL |
£¨¯¥à¡®«¨ç¥áª¨© â £¥á x |
|
PROCEDURE arcsinh(x: REAL): REAL |
PROCEDURE arsinh(x: REAL): REAL |
®¡à âë© £¨¯¥à¡®«¨ç¥áª¨© á¨ãá x |
|
PROCEDURE arccosh(x: REAL): REAL |
PROCEDURE arcosh(x: REAL): REAL |
®¡à âë© £¨¯¥à¡®«¨ç¥áª¨© ª®á¨ãá x |
|
PROCEDURE arctanh(x: REAL): REAL |
PROCEDURE artanh(x: REAL): REAL |
®¡à âë© £¨¯¥à¡®«¨ç¥áª¨© â £¥á x |
|
PROCEDURE round(x: REAL): REAL |
181,6 → 181,9 |
¥á«¨ x < 0 ¢®§¢à é ¥â -1 |
¥á«¨ x = 0 ¢®§¢à é ¥â 0 |
|
PROCEDURE fact(n: INTEGER): REAL |
ä ªâ®à¨ « n |
|
------------------------------------------------------------------------------ |
MODULE Debug - ¢ë¢®¤ ¤®áªã ®â« ¤ª¨ |
â¥àä¥©á ª ª ¬®¤ã«ì Out |
337,7 → 340,7 |
PROCEDURE Encode(Year, Month, Day, Hour, Min, Sec: INTEGER): REAL |
¢®§¢à é ¥â ¤ âã, ¯®«ãç¥ãî ¨§ ª®¬¯®¥â®¢ |
Year, Month, Day, Hour, Min, Sec; |
¯à¨ ®è¨¡ª¥ ¢®§¢à é ¥â ª®áâ âã ERR = -7.0D5 |
¯à¨ ®è¨¡ª¥ ¢®§¢à é ¥â ª®áâ âã ERR = -7.0E5 |
|
PROCEDURE Decode(Date: REAL; VAR Year, Month, Day, |
Hour, Min, Sec: INTEGER): BOOLEAN |