home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
fpc
/
source
/
p4_20dc.seq
< prev
next >
Wrap
Text File
|
1990-04-16
|
478b
|
27 lines
E
\ Problem 4.20 04/16/90 15:51:47.29
2VARIABLE RADIUS
2VARIABLE AREA
2VARIABLE VOLUME
31416. 2CONSTANT PI
: *DPI ( dn -- dn*pi )
PI D* 10000. D/ ;
: VOL ( r -- )
2DUP 2DUP 4. D* D* D* *DPI 3. D/ VOLUME 2! ;
: SURFACE_AREA ( r -- )
2DUP 4. D* D* *PI AREA 2! ;
: SPHERE ( r -- )
2DUP VOL
CR ." VOLUME: " VOLUME 2@ D.
2DUP SURFACE_AREA
CR ." AREA: " AREA 2@ D. ;