포트란은 실수와 복소수를 구합니다.

Question

제곱근을 해결해야하는 포트란을 작성하려고하는데 복잡한 숫자를 얻지 만 포트란에서는이를 인쇄하지 않거나 다른 변수로 전달합니다. 그것은 (NaN, 0.000)을 제공합니다.

이것은 작업중인 실제 코드가있는 문제를 나타내는 더미 코드입니다. 너희들이 나에게 도움이 될만한 정보를 줄 수 있다면. 고맙습니다. A, B 및 C 모두 실수이기 때문에

program test 
     IMPLICIT NONE 
     COMPLEX X 
     REAL a, b, c 
     a = 1 
     b = 1 
     c = 1 
     X = sqrt(b - 4*a*c) 
     print *, REAL(X), ' - j',-AIMAG(X) 
    end program test 

Answer 1

은 과제의 우측 표현은 실제 연산에서 계산 될 것이다. 왼쪽의 복잡한 변수에 값을 지정해도 변수는 변경되지 않습니다. 계산을 복잡한 값으로 수행하려는 경우 가장 쉬운 방법은 a, b 및 c를 복잡한 것으로 선언하는 것입니다.