Лунолет-1 для DM42 / Free42 / HP42s
Уважаемый Ajaja предоставил программу Лунолет-1 для DM42/Free42. Сходство архитектур позволяет просто брать программы от МК-61/52 и покомандно вводить в DM42/Free42 почти без изменений:
00 { 183-Byte Prgm } 01>LBL "LUN1" 27 RCL "B" 53>LBL 50 79 STO "A" 02 RCL "D" 28 - 54 ÷ 80 RCL "C" 03 X>=0? 29 ÷ 55 STO 08 81 RCL 02 04 GTO 09 30 RCL ST X 56 RCL 05 82 RCL 00 05 RCL ST X 31 RCL 08 57 RCL "D" 83 × 06 RCL 08 32 × 58 + 84 - 07 ÷ 33 GTO 90 59 ÷ 85 STO "C" 08 X<>Y 34>LBL 33 60 RCL 06 86 RCL "D" 09 XEQ 90 35 RCL "D" 61 × 87 RCL 01 10>LBL 09 36 X=0? 62 STO 03 88 - 11 RCL "A" 37 GTO 86 63>LBL 59 89 STO "D" 12 X=0? 38 RCL 03 64 RCL 04 90 GTO "LUN1" 13 GTO 43 39 X^2 65 - 91>LBL 86 14 X>=0? 40 SQRT 66 RCL 02 92 RCL 06 15 GTO 33 41 RCL 07 67 × 93>LBL 87 16 2 42 - 68 RCL "B" 94 RCL 09 17 × 43 X>=0? 69 + 95 STOP 18 RCL ST X 44 GTO 87 70 STO "B" 96 CLX 19 RCL 04 45>LBL 43 71 LASTX 97>LBL 90 20 RCL 03 46 RCL "B" 72 + 98 STO 01 21 - 47 RCL "A" 73 2 99 X<>Y 22 × 48 STOP 74 ÷ 100 STO 02 23 RCL "B" 49 STO 01 75 RCL 02 101 X>=0? 24 X^2 50 STO 02 76 × 102 GTO 50 25 + 51 X=0? 77 RCL "A" 103 RCL 03 26 SQRT 52 GTO 43 78 + 104 GTO 59 105 .END.
Полёт Александра Перепёлкина на новом вычислительном устройстве прошёл штатно.
Метки публикаций:
- Vitasam's blog
- Log in or register to post comments
- Просмотров 3321
Комментарии
Куда
Permalink
Куда тут "лайк" ставить? Сунулся по привычке, ан нет! :)
У нас тут нормально, мы без лайков :)
Permalink
У нас тут нормально, мы без лайков :)