real, intent(out) :: hypotenuse real :: temp temp = side_1 ** 2 + side_2 ** 2 hypotenuse = sqrt(temp) return end subroutine intent(in) ← 表示這個參數只供傳 ...
確定! 回上一頁