Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Practice 4
PROGRAM NR IMPLICIT NONE REAL::TOL,F INTEGER::N,I,A REAL, DIMENSION(1000)::X PRINT*,'INPUT A POSITIVE INTEGER:' READ*,A PRINT*,'INPUT THE VALUE OF I AND TOL:' READ*,I,TOL X(1)=1.5 N=0 DO WHILE (N<I) X(N+1)=(X(N)/2)+(A/2*X(N)) IF(ABS(X(N+1)-X(N))<TOL)THEN WRITE(*,25)X(N+1) 25 FORMAT('THE SOLUTION IS =',F8.4) STOP END IF N=N+1 END DO END PROGRAM NR REAL FUNCTION F(X) IMPLICIT NONE REAL::X INTEGER::A F=X**2.0-A END FUNCTION F
run
|
edit
|
history
|
help
0
Exercise 02
Sum of series
Vi ss. F
Title
exercise
A_02 GUASSIAN ELIMINATION METHOD
Q5
NEWTON SECOND LAW
Practice 1(IV)
222