real, intent(in) :: x, a, b, c quadf = a * x ** 2 + b * x + c return end function program test_quadf implicit none real :: quadf real :: a, b, c, x.
確定！ 回上一頁
