home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / FPCL1_7.ZIP / L4.ZIP / P4-21DC.SEQ < prev    next >
Encoding:
Text File  |  1990-04-16  |  396 b   |  16 lines
  1. \ Problem 4.21   04/16/90 16:07:08.17
  2.  
  3. \ Compute area of a circle to three decimal places.
  4. : CIRCLE_AREA ( r -- )
  5.         DUP * 355 113 */MOD
  6.         ." Area = " 5 .R        \ ( 8 EMIT ) 1 BACKSPACES
  7.         ASCII . EMIT
  8.         5 0  DO
  9.              10 * 113 /MOD 1 .R \ ( 8 EMIT ) 1 BACKSPACES
  10.              LOOP DROP ;
  11.  
  12. : TEST_CIRC ( -- )
  13.        11 1 DO CR I CIRCLE_AREA LOOP ;
  14.  
  15.  
  16.