51 lines
587 B
Plaintext
51 lines
587 B
Plaintext
|
IDENTIFIER r
|
||
|
|
ASSIGN =
|
||
|
|
FLOAT 8
|
||
|
|
NEWLINE
|
||
|
|
IDENTIFIER pi
|
||
|
|
ASSIGN =
|
||
|
|
FLOAT 3.1415
|
||
|
|
NEWLINE
|
||
|
|
IDENTIFIER circle_area
|
||
|
|
ASSIGN =
|
||
|
|
IDENTIFIER pi
|
||
|
|
TIMES *
|
||
|
|
IDENTIFIER r
|
||
|
|
TIMES *
|
||
|
|
IDENTIFIER r
|
||
|
|
NEWLINE
|
||
|
|
IDENTIFIER circle_circum
|
||
|
|
ASSIGN =
|
||
|
|
IDENTIFIER pi
|
||
|
|
TIMES *
|
||
|
|
INTEGER 2
|
||
|
|
TIMES *
|
||
|
|
IDENTIFIER r
|
||
|
|
NEWLINE
|
||
|
|
IDENTIFIER sphere_vol
|
||
|
|
ASSIGN =
|
||
|
|
LPAREN (
|
||
|
|
FLOAT 4
|
||
|
|
DIVIDEDBY /
|
||
|
|
FLOAT 3
|
||
|
|
RPAREN )
|
||
|
|
TIMES *
|
||
|
|
IDENTIFIER pi
|
||
|
|
TIMES *
|
||
|
|
IDENTIFIER r
|
||
|
|
TIMES *
|
||
|
|
IDENTIFIER r
|
||
|
|
TIMES *
|
||
|
|
IDENTIFIER r
|
||
|
|
NEWLINE
|
||
|
|
IDENTIFIER sphere_surf_area
|
||
|
|
ASSIGN =
|
||
|
|
INTEGER 4
|
||
|
|
TIMES *
|
||
|
|
IDENTIFIER pi
|
||
|
|
TIMES *
|
||
|
|
IDENTIFIER r
|
||
|
|
TIMES *
|
||
|
|
IDENTIFIER r
|
||
|
|
NEWLINE
|