FUNCTION4
!Program name: FUNCTION4
function f(a,b)
integer :: a
real :: b, f
f=b**2-4*a*b
return
end function
program function4
real :: f
print *, 'a=4; b=2.2', ' b^2-4ab= ', f(4, 2.2)
!Program name: FUNCTION4
function f(a,b)
integer :: a
real :: b, f
f=b**2-4*a*b
return
end function
program function4
real :: f
print *, 'a=4; b=2.2', ' b^2-4ab= ', f(4, 2.2)
Comentários
Postar um comentário