|
Calculus
Computer Lab
|
|
|
xxxxxxxxxxxxxxxxxx |
program circlearea
real r, area, pi
parameter (pi = 3.14159)
c This program computes the area of a circle.
print *, "What is the radius?"
read *, r
area = pi * r ** 2
print *
print *, "The area is", area
print *
print *, "Bye!"
end
|