Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
4 ER 2(I)
PROGRAM NR IMPLICIT NONE REAL::F,X,Y(30),TOL INTEGER::N=30,I,A Y(0)=0.1 PRINT*,'ENTER A POSITIVE INTEGER:' READ*,A PRINT*,'ENTER THE VALUE OF TOL:' READ*,TOL DO I=0,N,1 Y(I+1)=0.5*(Y(I)+A/Y(I)) PRINT*,I,' ',Y(I+1) IF(ABS(Y(I+1)-Y(I))<TOL)THEN WRITE(*,25)Y(I+1) 25 FORMAT('THE SQUARE ROOT OF A IS =',F8.4) 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
Q5
trapezna for
A_03 ADAMS BASHFORTH S4
Gauss seidal
Subroutine problem
my_second_code
Practice 2(I)
Pivot 3
test for linear congruential method
Factorial num