Лунолет-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. 

Полёт Александра Перепёлкина на новом вычислительном устройстве прошёл штатно.

Метки публикаций: 
Русский

Комментарии

Куда тут "лайк" ставить? Сунулся по привычке, ан нет! :)

У нас тут нормально, мы без лайков :)

---------------------------
Истина где-то рядом
www.litres.ru/vitaliy-samurov/dozvonitsya-do-devy/