Question

Write the code in LISP that define a function(named area-circle) that would calculate (return) the area of a circle when the radius of the circle is given as an argument.

The function should be able to be called as follows

(area-circle 10)

Answer 1

Program:

(defun area-circle(rad)
   "Calculates area of a circle with given radius"

   (* pi rad rad)
)

(format t "~8f" (area-circle 10))

Screenshot:

(defun area-circle(rad) "Calculates area of a circle with given radius" HNMOCO (* pi rad rad) (format t "-8f" (area-circle 10)

Output:

314.1593

Answer 2

;;;;;;;Writing a function which defines the area of circle while taking radius as its parameter

(defconstant PI 3.14) ;Here we define the value of pie as constant

(defun area-circle(radiuslength) ; Here the function is called with radius length as parameter

(terpri)

(format t "Radius of the circle is: ~5f"radiuslength) ; Displaying the radius length for ease of the user

(format t "~%Area of the circle is:~10f" (*PI * radiuslength * radiuslength))) ; Calculating the area of circle

(area-circle 10) ;Actually giving the value to the function,i.e.the radius length

;;;;;;;;;;;;;;;;;;Below is the output of the code we have just incorporated

==========================================================

Output:-

Radius of the circle is 10

Area of the circle is 314