Файл 36-2077091.mkp (КС 7455/247)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | ИП 7 | F π | + | F x2 | F x2 | K {x} | П 7 | 1 | 0 | П 8 |
10 | F 1/x | - | F x<0 | 15 | ИП 7 | F Bx | + | ИП 8 | F x2 | П 6 |
20 | × | K [x] | П 5 | Cx | П 4 | 9 | 9 | П 9 | ИП 8 | ИП 6 |
30 | × | ИП 9 | + | С/П | F x≠0 | 77 | П 1 | K ИП 4 | ↔ | ИП 5 |
40 | - | F x≠0 | 52 | F x<0 | 49 | ИП 1 | П 8 | БП | 28 | ИП 1 |
50 | БП | 27 | 3 | П 0 | 5 | П 1 | ИП 4 | - | F x≥0 | 67 |
60 | ИП 1 | 1 | 0 | × | 9 | ÷ | С/П | K ИП 1 | ↔ | 1 |
70 | + | F x≠0 | 60 | F L0 | 67 | БП | 60 | ИП 9 | ИП 8 | - |
80 | 2 | , | 6 | ÷ | K [x] | ИП 8 | + | БП | 33 | 0 |
90 | 0 |
Файл 36-2077091.mkl
.CHARSET 1251 ; Файл 36-2077091 .ORG 0 RM 7 F PI + F X^2 F X^2 K FRAC M 7 10 M 8 F 1/X - F X<0 A15 RM 7 A15: ; с адреса 12 F ANS + RM 8 F X^2 M 6 * K INT M 5 CX M 4 99 A27: ; с адреса 50 M 9 A28: ; с адреса 47 RM 8 RM 6 * RM 9 + A33: ; с адреса 87 R/S F X!=0 A77 M 1 K RM 4 <-> RM 5 - F X!=0 A52 F X<0 A49 RM 1 M 8 GOTO A28 A49: ; с адреса 43 RM 1 GOTO A27 A52: ; с адреса 41 3 M 0 5 M 1 RM 4 - F X>=0 A67 A60: ; с адреса 71 , 75 RM 1 10 * 9 / R/S A67: ; с адреса 58 , 73 K RM 1 <-> 1 + F X!=0 A60 F L0 A67 GOTO A60 A77: ; с адреса 34 RM 9 RM 8 - 2,6 / K INT RM 8 + GOTO A33 00 .END