Файл 01-1000035.mkp (КС 18210/170)
0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | |
00 | ИП 8 | ИП 7 | 2 | × | ÷ | /-/ | П 5 | F x2 | ИП 9 | ИП 7 |
10 | ÷ | - | П 4 | F x≥0 | 25 | F √ | П 6 | ИП 5 | + | П 5 |
20 | F Bx | ИП 6 | - | БП | 27 | /-/ | F √ | П 6 | ИП 4 | С/П |
30 | 0 | 0 | 0 | 0 | 0 |
Файл 01-1000035.mkl
.CHARSET 1251 ; Файл 01-1000035 .ORG 0 RM 8 RM 7 2 * / +/- M 5 F X^2 RM 9 RM 7 / - M 4 F X>=0 A25 F SQRT M 6 RM 5 + M 5 F ANS RM 6 - GOTO A27 A25: ; с адреса 13 +/- F SQRT A27: ; с адреса 23 M 6 RM 4 R/S 00000 .END