목차
없음
본문내용
=B**2-4*A*C
7 IF(D.LT.0) THEN
8 WRITE(*,*) '허근입니다.'
9 ELSE
10 X=0
11 20 Y=(-C-X**2)/B
12 IF(X.EQ.Y) GOTO 30
13 X=Y
14 GOTO 20
15 30 WRITE(*,*) Y
16 ENDIF
17 10 STOP
18 END
5<1
5<5
5<6
6> -2.0000000
7 IF(D.LT.0) THEN
8 WRITE(*,*) '허근입니다.'
9 ELSE
10 X=0
11 20 Y=(-C-X**2)/B
12 IF(X.EQ.Y) GOTO 30
13 X=Y
14 GOTO 20
15 30 WRITE(*,*) Y
16 ENDIF
17 10 STOP
18 END
5<1
5<5
5<6
6> -2.0000000
소개글