Ôàéë 47-2270298.mkp (ÊÑ 6277/137)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | K ÁÏ A | Ñ/Ï | Ï 0 | Ï 1 | ÈÏ 3 | ↔ | - | Ï 3 | 3 | F 10x |
10 | - | ÈÏ 2 | × | ÈÏ 9 | + | F x<0 | 18 | Cx | Ï 9 | ÈÏ A |
20 | - | F x<0 | 85 | ÈÏ 9 | ÈÏ B | - | F x<0 | 85 | ÈÏ 0 | F √ |
30 | 3 | 3 | × | Ï 0 | ÈÏ 2 | × | ÈÏ 1 | F cos | × | ÈÏ 4 |
40 | ↔ | - | Ï 4 | ÈÏ 6 | F Bx | - | Ï 6 | ÈÏ 5 | ÈÏ 0 | ÈÏ 2 |
50 | × | ÈÏ 1 | F sin | × | - | Ï 5 | ÈÏ 7 | F Bx | - | Ï 7 |
60 | ÈÏ 8 | ÈÏ 2 | - | Ï 8 | F x≥0 | 85 | ÈÏ 6 | F x2 | ÈÏ 7 | F x2 |
70 | + | F √ | 5 | 0 | 0 | - | F x<0 | 82 | ÈÏ 7 | ÈÏ 6 |
80 | ÈÏ D | K ÁÏ A | ÈÏ 5 | ÈÏ 4 | K ÁÏ A | 8 | 8 | Ï A | ÈÏ C | Ñ/Ï |
90 | 0 | Ï 0 | ÁÏ | 08 | 0 | 0 | 0 | 0 |
Ôàéë 47-2270298.mkl
.CHARSET 1251 ; Ôàéë 47-2270298 .ORG 0 K GOTO A R/S M 0 M 1 RM 3 <-> - M 3 A8: ; ñ àäðåñà 92 3 F 10^X - RM 2 * RM 9 + F X<0 A18 CX A18: ; ñ àäðåñà 15 M 9 RM A - F X<0 A85 RM 9 RM B - F X<0 A85 RM 0 F SQRT 33 * M 0 RM 2 * RM 1 F COS * RM 4 <-> - M 4 RM 6 F ANS - M 6 RM 5 RM 0 RM 2 * RM 1 F SIN * - M 5 RM 7 F ANS - M 7 RM 8 RM 2 - M 8 F X>=0 A85 RM 6 F X^2 RM 7 F X^2 + F SQRT 500 - F X<0 A82 RM 7 RM 6 RM D K GOTO A A82: ; ñ àäðåñà 76 RM 5 RM 4 K GOTO A A85: ; ñ àäðåñà 21 , 26 , 64 88 M A RM C R/S 0 M 0 GOTO A8 0000 .END