home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9203 / naxos / fthsourc / mathdemo.fth < prev    next >
Encoding:
Text File  |  1992-03-20  |  607 b   |  28 lines
  1. include xkern
  2.  
  3. : main
  4.   >default 
  5.   ." NAXOS Floating-point Demonstration:  Die Zahl π :   " cr cr
  6.   
  7.   FINIT 
  8.   17 , 0 do 
  9.      I setdecimals
  10.      ." Dezimalstellen    : "  getdecimals , 2 .r ."    "    
  11.      PI F. cr
  12.   loop
  13.   cr
  14.   ." Beachten Sie die richtigen Rundungen am Ende der Zahl !"
  15.   cr
  16.   wait
  17.   10 , 0 do cr loop
  18.   cr
  19.   ." Die Quadratwurzeln von 0 .. 16 " cr cr 
  20.   16 setdecimals
  21.   16 , 0 do
  22.     ." √" I push , 2 .r ."  = " FIPOP sqrt FDUP F.
  23.     ."   √² = " fdup f*  f. cr
  24.   loop
  25.   cr
  26.   ." Wenn Sie nur Nullen sehen, laden Sie aus DOS den Emulator EM87 !"
  27.   cr wait
  28. ;