Файл 33-2032291.mkp (КС 7136/98)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | Cx | 5 | F √ | 1 | + | 2 | ÷ | П 9 | 1 | П 6 |
10 | ИП 8 | 2 | F 10x | ÷ | ИП 7 | + | × | С/П | ИП 6 | F x≥0 |
20 | 08 | ИП 7 | ИП 8 | - | F x≠0 | 17 | ИП 8 | ИП 7 | ИП 9 | × |
30 | - | F x<0 | 47 | ИП 8 | ИП 7 | - | B↑ | ИП 9 | × | K [x] |
40 | П 7 | + | П 8 | 1 | /-/ | БП | 09 | ИП 7 | 1 | + |
50 | ИП 9 | F x2 | ÷ | K [x] | П 5 | F Bx | ИП 9 | × | K [x] | П 4 |
60 | ИП 9 | × | K [x] | ИП 7 | - | F x=0 | 80 | ИП 8 | ИП 7 | ИП 4 |
70 | + | П 8 | - | F x=0 | 43 | ИП 8 | 1 | - | БП | 42 |
80 | ИП 7 | П 8 | ИП 5 | - | П 7 | БП | 43 | 0 | 0 | 0 |
90 | 0 |
Файл 33-2032291.mkl
.CHARSET 1251 ; Файл 33-2032291 .ORG 0 CX 5 F SQRT 1 + 2 / M 9 A8: ; с адреса 19 1 A9: ; с адреса 45 M 6 RM 8 2 F 10^X / RM 7 + * A17: ; с адреса 24 R/S RM 6 F X>=0 A8 RM 7 RM 8 - F X!=0 A17 RM 8 RM 7 RM 9 * - F X<0 A47 RM 8 RM 7 - ENT RM 9 * K INT M 7 + A42: ; с адреса 78 M 8 A43: ; с адреса 73 , 85 1+/- GOTO A9 A47: ; с адреса 31 RM 7 1 + RM 9 F X^2 / K INT M 5 F ANS RM 9 * K INT M 4 RM 9 * K INT RM 7 - F X=0 A80 RM 8 RM 7 RM 4 + M 8 - F X=0 A43 RM 8 1 - GOTO A42 A80: ; с адреса 65 RM 7 M 8 RM 5 - M 7 GOTO A43 0000 .END