C Program to find the area of the circle
write(*,*)'Enter the radius of the circle:'
read(*,*)n
c=acos(-1.0)*n**2.0
write(*,10)c
10 format(2x,'The area of the circle is',f16.4)
end
write(*,*)'Enter the radius of the circle:'
read(*,*)n
c=acos(-1.0)*n**2.0
write(*,10)c
10 format(2x,'The area of the circle is',f16.4)
end
Comments
Post a Comment