|
0000
3)
x_{ k+1 } = { (-c-x_{ k } ^{ 2 } ) } over { b }
C2345678
1 READ(*,*) B,C
2 X=0
3 10 Y=(-C-X**2)/B
4 IF(X.EQ.Y) GOTO 20
5 X=Y
6 GOTO 10
7 20 WRITE(*,*) Y
8 STOP
9 END
5<5
5<6
6> -2.0000000 1. 1+E≠1 인 E의 최소값?
2. x2+bx+c=0
1) 근의 공식 i
2) 근의 공식 ii
3) (수식생략)
|
|
|
=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 없음
|
|
메뉴펼치기
