이차방정식의 해 구하기(IF THEN ELSE END IF)

이차 방정식의 해 구하기

IF () THEN

ELSE

END IF 연습

PROGRAM Quad_1

IMPLICIT NONE

REAL :: A, B, C, Discriminant, Root_1, Root_2

PRINT *, "이차방정식의 계수를 입력하시오.(ex: 1, -5, 6)"

READ *, A, B, C

Discriminant = B ** 2 - 4.0 * A * C

IF (Discriminant >= 0) THEN

Discriminant = SQRT(Discriminant)
Root_1 = (-B + Discriminant) / (2.0 * A)
Root_2 = (-B - Discriminant) / (2.0 * A)
PRINT *, "해는 ", Root_1, Root_2, "입니다."

ELSE

PRINT *, "판별식이 ", Discriminant, "입니다."
PRINT *, "실근이 존재하지 않습니다."

END IF

END PROGRAM Quad_1

컴파일

실행하여 프로그램 검증