exam3.3.2-3.3.4

;; mht created on Nov 9, 2011

;; volume-cylinder : number number -> number
;; to conmute the volume of a cylinder given the radius of base disk and its height
(define (volume-cylinder r h)
  (* pi (* r r) h))
;;test
(volume-cylinder 1 3)

;; area-cylinder : number number -> number
;; to consume the surface area of the cylinder given
;; the radius of base disk and its height
(define (area-cylinder r h)
  (/ 1 6 (volume-cylinder r h)))