Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_01 FIXED_POINT_IM(I)
Language:
Ada
Assembly
Bash
C#
C++ (gcc)
C++ (clang)
C++ (vc++)
C (gcc)
C (clang)
C (vc)
Client Side
Clojure
Common Lisp
D
Elixir
Erlang
F#
Fortran
Go
Haskell
Java
Javascript
Kotlin
Lua
MySql
Node.js
Ocaml
Octave
Objective-C
Oracle
Pascal
Perl
Php
PostgreSQL
Prolog
Python
Python 3
R
Rust
Ruby
Scala
Scheme
Sql Server
Swift
Tcl
Visual Basic
Layout:
Vertical
Horizontal
PROGRAM FIXED_POINT_IM IMPLICIT NONE REAL::F,X,G,X0,X1,TOL INTEGER::I,N PRINT*,"ENTER THE INITIAL VALUE :" READ*,X0 PRINT*,"ENTER THE VALUE OF N:" READ*,N PRINT*,"ENTER THE VALUE OF TOL:" READ*,TOL PRINT*,X0 DO 10 I = 1,N X1 = G(X0); PRINT*,X1 IF(F(X1)==0) THEN PRINT*, "THE SOLUTION IS :",X1 STOP END IF IF(ABS(X0-X1)<TOL) THEN PRINT*,"THE REAL ROOT IS:",X1 PRINT*,'THE SOLUTION CONVERGE' STOP END IF X0 = X1 10 CONTINUE PRINT*,"SOLUTION DOESN'T CONVERGE" END PROGRAM FIXED_POINT_IM REAL FUNCTION F(X) REAL::X F = X**3.0- 2.0*X -5.0 RETURN END FUNCTION REAL FUNCTION G(X) REAL::X G = (X**3.0-5.0)/2.0 RETURN END FUNCTION
0.2 10 0.0001
Show compiler warnings
[
-
]
Show input
Compilation time: 0.24 sec, absolute running time: 0.18 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,56 sec
edit mode
|
history
|
discussion