- 6


. , . . . ," (-).

HERE , , STRING , . : : STRING ( ) WORD @ 1 + ALLOT ;

Block # 246 0 \ - 1 VARIABLE VARIABLE VARIABLE .. 2 : ," ( --a) HERE ASCII " STRING ; 3 : . .. @ COUNT TYPE SPACE ; 4 : ( ' -- ) CREATE , , , 5 DOES> DUP @ ! 2+ DUP @ ! 2+ @ .. ! ; 6 7 : ( -- ec--) 10 * ; 8 : ( -- -- --') 9 100 12 */ 5 + 10 / + ; 10 11 : /TAN ( n - n') 1000 TETA @ */ ; 12 : ( -- -- ) 13 DUP DUP 10 */ 1000 */ 355 339 */ /TAN /TAN 14 @ 200 */ ." = " . ." " . ; 15 247 LOAD

Block # 247 0 \ 1 \ - 2 ," " 131 700 3 ," " 93 649 - 4 ," " 100 700 - 5 ," " 90 734 - 6 ," " 118 900 - 7 ," " 120 727 8 9 10 11 12 13 14 15

Block # 248 0 \ - 1 VARIABLE VARIABLE TETA VARIABLE H.. 2 : ," ( -- a) HERE ASCII " STRING ; 3 : . .. @ COUNT TYPE SPACE ; 4 : DU.3 ( du -- ) <# # # # ASCII .HOLD #S #> TYPE SPACE ; 5 : ( ' -- ) CREATE 6 DOES> DUP @ TETA ! 2+ DUP @ ! 2+ @ .. ! ; 7 : ( d -- d') 2DUP OVER 10 M*/ DROP 10 M*/ 8 : /TAN ( d -- d') 1000 TETA @ */ ; 9 : ( d -- ) 355 339 M*/ @ 1 */ 10 /TAN /TAN 5 M+ 1 I0 M*/ 11 2DUP ." = " D. ." " . 12 1 2 M*/ ." " DU.3 ." " ; 13 247 LOAD 14 15