Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Practice 4 I
PROGRAM NR IMPLICIT NONE REAL::F,TOL REAL, DIMENSION(1000)::X INTEGER::A,I,M PRINT*,'INPUT A POSITION INTEGER:' READ*,A PRINT*,'INPUT THE VALUE OF M AND TOL:' READ*,M,TOL X(0)=0.1 DO I=1,M,1 X(I+1)=(X(I)/2)+(A/2*X(I)) PRINT*,I,X(I+1) IF(ABS(X(I+1)-X(I))<TOL)THEN PRINT*,'THE SOLUTION IS:',X(I+1) STOP END IF 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
A_04 SHOOTING METHOD
Prime
euler-cromer
A_03 MODIFIED EULER METHOD
Rvc
Vi ss. F
testcompiler.f90
Factorial problem
Finite difference practice
Hello / fortran