Format cont’d

CG-USER(50):

(let ((radius 14))

(format

t

"~%The circumference of a circle with ~

radius ~d is ~%~f"

radius (* 2 pi radius))

(format t "~%The area of that circle is ~f"

(* pi (* radius radius))))

The circumference of a circle with radius 14 is

87.96459430051421d0

The area of that circle is 615.7521601035994d0

NIL

Previous slide

Next slide

Back to first slide

View graphic version