| 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 |