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
QE
New
expx
Me
নাজমুন নাহার
Characteristics polynomial
Palindromic number
A_02 Newton's practice
A_04 FINITE DIFFERENCE METHOD
ascending sorting