PasteRack.org
Paste # 74511
2017-03-21 12:45:33

Fork as a new paste.

Paste viewed 45 times.


Embed:

  1. #lang racket
  2.  
  3. (define (areaOfCircle radius)
  4.    (* pi radius radius))
  5.  
  6.  
  7. (define (circumOfCircle radius)
  8.    (* 2 pi radius))
  9.  
  10.  
  11. (define (surfaceArea radius height)
  12.    (+   (* height (circumOfCircle radius))
  13.         (* 2(areaOfCircle radius))
  14.   ))
  15.  
  16. (surfaceArea 2 3)

=>

62.83185307179586