Файл 19-1187698.mkp (КС 5556/200)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | Cx | 2 | П 2 | F 1/x | П B | ИП 4 | × | П A | B↑ | K {x} |
10 | + | П 0 | F Bx | F x≠0 | 18 | F π | БП | 31 | 2 | БП |
20 | 31 | ИП A | ИП 0 | - | × | ИП A | ИП B | + | ИП 0 | - |
30 | ÷ | F L0 | 21 | П C | ИП 4 | B↑ | ИП 5 | F x2 | + | ÷ |
40 | П 6 | ИП B | - | F x≥0 | 55 | 1 | П 2 | ИП 6 | - | П 6 |
50 | ИП A | ИП B | П A | ↔ | П B | K [x] | 9 | + | П 0 | ИП A |
60 | ИП 6 | F xy | 0 | ИП A | ИП 0 | + | F 1/x | - | ИП 6 | × |
70 | ИП 0 | ÷ | ИП 0 | ИП B | - | × | F L0 | 63 | ИП A | F 1/x |
80 | - | × | ИП C | ÷ | 2 | + | F L2 | 91 | 3 | - |
90 | /-/ | 2 | ÷ | С/П | 0 | 0 | 0 | 0 |
Файл 19-1187698.mkl
.CHARSET 1251 ; Файл 19-1187698 .ORG 0 CX 2 M 2 F 1/X M B RM 4 * M A ENT K FRAC + M 0 F ANS F X!=0 A18 F PI GOTO A31 A18: ; с адреса 13 2 GOTO A31 A21: ; с адреса 31 RM A RM 0 - * RM A RM B + RM 0 - / A31: ; с адреса 16 , 19 F L0 A21 M C RM 4 ENT RM 5 F X^2 + / M 6 RM B - F X>=0 A55 1 M 2 RM 6 - M 6 RM A RM B M A <-> M B A55: ; с адреса 43 K INT 9 + M 0 RM A RM 6 F X^Y 0 A63: ; с адреса 76 RM A RM 0 + F 1/X - RM 6 * RM 0 / RM 0 RM B - * F L0 A63 RM A F 1/X - * RM C / 2 + F L2 A91 3 - +/- A91: ; с адреса 86 2 / R/S 0000 .END