home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / forth / compiler / fpc / source / p4_20dc.seq < prev    next >
Encoding:
Text File  |  1990-04-16  |  478 b   |  27 lines
  1. E
  2. \ Problem 4.20   04/16/90 15:51:47.29
  3.  
  4. 2VARIABLE RADIUS
  5. 2VARIABLE AREA
  6. 2VARIABLE VOLUME
  7.  
  8. 31416. 2CONSTANT PI
  9.  
  10. : *DPI          ( dn -- dn*pi )
  11.         PI D* 10000. D/ ;
  12.  
  13. : VOL           ( r --  )
  14.         2DUP 2DUP 4. D* D* D* *DPI 3. D/ VOLUME 2! ;
  15.  
  16. : SURFACE_AREA  ( r -- )
  17.         2DUP 4. D* D* *PI AREA 2! ;
  18.  
  19. : SPHERE        ( r -- )
  20.         2DUP VOL
  21.      CR ." VOLUME: " VOLUME 2@ D.
  22.         2DUP SURFACE_AREA
  23.      CR ."   AREA: " AREA 2@ D. ;
  24.  
  25.  
  26.  
  27.