Файл 52-2354277.mkp (КС 9909/139)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | F π | ИП 7 | ÷ | F sin | ИП 8 | × | 2 | × | П 9 | 1 |
10 | П 3 | ИП 7 | 2 | ÷ | П 4 | K {x} | F x=0 | 33 | F Bx | П 7 |
20 | 2 | ÷ | K {x} | F x≠0 | 18 | 1 | B↑ | 2 | F 1/x | - |
30 | ИП 4 | × | П 4 | ИП 7 | F √ | П 6 | ИП 6 | ИП 3 | 2 | + |
40 | П 3 | - | F x≥0 | 61 | ИП 7 | ИП 3 | ÷ | K {x} | F x=0 | 36 |
50 | F Bx | П 7 | ИП 3 | ÷ | K {x} | F x≠0 | 50 | 1 | ИП 3 | БП |
60 | 28 | 1 | ИП 7 | F 1/x | - | F x≠0 | 70 | ИП 4 | × | П 4 |
70 | ИП 4 | 9 | F 1/x | + | K [x] | П 4 | С/П |
Файл 52-2354277.mkl
.CHARSET 1251 ; Файл 52-2354277 .ORG 0 F PI RM 7 / F SIN RM 8 * 2 * M 9 1 M 3 RM 7 2 / M 4 K FRAC F X=0 A33 A18: ; с адреса 23 F ANS M 7 2 / K FRAC F X!=0 A18 1 ENT 2 A28: ; с адреса 59 F 1/X - RM 4 * M 4 A33: ; с адреса 16 RM 7 F SQRT M 6 A36: ; с адреса 48 RM 6 RM 3 2 + M 3 - F X>=0 A61 RM 7 RM 3 / K FRAC F X=0 A36 A50: ; с адреса 55 F ANS M 7 RM 3 / K FRAC F X!=0 A50 1 RM 3 GOTO A28 A61: ; с адреса 42 1 RM 7 F 1/X - F X!=0 A70 RM 4 * M 4 A70: ; с адреса 65 RM 4 9 F 1/X + K INT M 4 R/S .END