Rev 7597 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7597 | Rev 7693 | ||
|---|---|---|---|
| Line 96... | Line 96... | ||
| 96 | ------------------------------------------------------------------------------ |
96 | ------------------------------------------------------------------------------ |
| 97 | MODULE Math - ìàòåìàòè÷åñêèå ôóíêöèè |
97 | MODULE Math - ìàòåìàòè÷åñêèå ôóíêöèè |
| Line 98... | Line 98... | ||
| 98 | 98 | ||
| Line 99... | Line 99... | ||
| 99 | CONST |
99 | CONST |
| 100 | 100 | ||
| Line 101... | Line 101... | ||
| 101 | pi = 3.141592653589793D+00 |
101 | pi = 3.141592653589793E+00 |
| 102 | e = 2.718281828459045D+00 |
102 | e = 2.718281828459045E+00 |
| Line 151... | Line 151... | ||
| 151 | ãèïåðáîëè÷åñêèé êîñèíóñ x |
151 | ãèïåðáîëè÷åñêèé êîñèíóñ x |
| Line 152... | Line 152... | ||
| 152 | 152 | ||
| 153 | PROCEDURE tanh(x: REAL): REAL |
153 | PROCEDURE tanh(x: REAL): REAL |
| Line 154... | Line 154... | ||
| 154 | ãèïåðáîëè÷åñêèé òàíãåíñ x |
154 | ãèïåðáîëè÷åñêèé òàíãåíñ x |
| 155 | 155 | ||
| Line 156... | Line 156... | ||
| 156 | PROCEDURE arcsinh(x: REAL): REAL |
156 | PROCEDURE arsinh(x: REAL): REAL |
| 157 | îáðàòíûé ãèïåðáîëè÷åñêèé ñèíóñ x |
157 | îáðàòíûé ãèïåðáîëè÷åñêèé ñèíóñ x |
| Line 158... | Line 158... | ||
| 158 | 158 | ||
| 159 | PROCEDURE arccosh(x: REAL): REAL |
159 | PROCEDURE arcosh(x: REAL): REAL |
| Line 160... | Line 160... | ||
| 160 | îáðàòíûé ãèïåðáîëè÷åñêèé êîñèíóñ x |
160 | îáðàòíûé ãèïåðáîëè÷åñêèé êîñèíóñ x |
| 161 | 161 | ||
| Line 179... | Line 179... | ||
| 179 | PROCEDURE sgn(x: REAL): INTEGER |
179 | PROCEDURE sgn(x: REAL): INTEGER |
| 180 | åñëè x > 0 âîçâðàùàåò 1 |
180 | åñëè x > 0 âîçâðàùàåò 1 |
| 181 | åñëè x < 0 âîçâðàùàåò -1 |
181 | åñëè x < 0 âîçâðàùàåò -1 |
| 182 | åñëè x = 0 âîçâðàùàåò 0 |
182 | åñëè x = 0 âîçâðàùàåò 0 |
| Line -... | Line 183... | ||
| - | 183 | ||
| - | 184 | PROCEDURE fact(n: INTEGER): REAL |
|
| - | 185 | ôàêòîðèàë n |
|
| 183 | 186 | ||
| 184 | ------------------------------------------------------------------------------ |
187 | ------------------------------------------------------------------------------ |
| 185 | MODULE Debug - âûâîä íà äîñêó îòëàäêè |
188 | MODULE Debug - âûâîä íà äîñêó îòëàäêè |
| Line 186... | Line 189... | ||
| 186 | Èíòåðôåéñ êàê ìîäóëü Out |
189 | Èíòåðôåéñ êàê ìîäóëü Out |
| Line 335... | Line 338... | ||
| 335 | âðåìåíè |
338 | âðåìåíè |
| Line 336... | Line 339... | ||
| 336 | 339 | ||
| 337 | PROCEDURE Encode(Year, Month, Day, Hour, Min, Sec: INTEGER): REAL |
340 | PROCEDURE Encode(Year, Month, Day, Hour, Min, Sec: INTEGER): REAL |
| 338 | âîçâðàùàåò äàòó, ïîëó÷åííóþ èç êîìïîíåíòîâ |
341 | âîçâðàùàåò äàòó, ïîëó÷åííóþ èç êîìïîíåíòîâ |
| 339 | Year, Month, Day, Hour, Min, Sec; |
342 | Year, Month, Day, Hour, Min, Sec; |
| Line 340... | Line 343... | ||
| 340 | ïðè îøèáêå âîçâðàùàåò êîíñòàíòó ERR = -7.0D5 |
343 | ïðè îøèáêå âîçâðàùàåò êîíñòàíòó ERR = -7.0E5 |
| 341 | 344 | ||
| 342 | PROCEDURE Decode(Date: REAL; VAR Year, Month, Day, |
345 | PROCEDURE Decode(Date: REAL; VAR Year, Month, Day, |
| 343 | Hour, Min, Sec: INTEGER): BOOLEAN |
346 | Hour, Min, Sec: INTEGER): BOOLEAN |