;;; SIGNATUR
;;; dosen-oberflaeche: number number -> number
;;; ERKLÄRUNG
;;; (dosen-oberflaeche radius hoehe) berechnet die Oberflaeche einer
;;; zylinderförmigen Dose, wobei radius der Radius der Grundfläche
;;; und hoehe die Höhe der Dose ist.
;;; BEISPIEL
;;; (dosen-oberflaeche 1 2)
;;; => #i18.84955592153876
;;; (Der Präfix #i gibt an, daß die Zahl nicht exakt, d.h. in
;;; Gleitkommadarstellung ist.)
;;; DEFINITION
(define dosen-oberflaeche
  (lambda (radius hoehe)
    (+ (* 2 (dosen-grundflaeche radius))
       (dosen-mantelflaeche radius hoehe))))

;;; SIGNATUR
;;; dosen-grundflaeche: number -> number
;;; ERKLÄRUNG
;;; (dosen-grundflaeche r) berechnet den Flächeninhalt einer (kreisförmigen)
;;; Dosengrundfläche mit Radius r.
;;; BEISPIEL
;;; (dosen-grundflaeche 1)
;;; => #i3.141592653589793
;;; DEFINITION
(define dosen-grundflaeche
  (lambda (r)
    (* pi r r)))

;;; SIGNATUR
;;; dosen-mantelflaeche: number number -> number
;;; ERKLÄRUNG
;;; (dosen-mantelflaeche r h) berechnet den Flächeninhalt des Mantels einer
;;; einer (kreisförmigen) Dose mit Radius r und Höhe h.
;;; BEISPIEL
;;; (dosen-mantelflaeche 1 2)
;;; => #i12.566370614359172
;;; DEFINITION
(define dosen-mantelflaeche
  (lambda (r h)
    (* 2 pi r h)))

(dosen-oberflaeche 1 2)