FUNCTION2
!program name: FUNCTION2
real
:: r
func(r)
= (4*atan(1.0))*r**2
Print *, 'give the radius of
the circle: '
Read *, r
print *, 'the area of the
circle is: ', func(r)
stop
!program name: FUNCTION2
real
:: r
func(r)
= (4*atan(1.0))*r**2
Print *, 'give the radius of
the circle: '
Read *, r
print *, 'the area of the
circle is: ', func(r)
stop
Comentários
Postar um comentário