fork download 
  1. PROGRAM ex5_7
  2.  
  3.   IMPLICIT NONE
  4.   REAL :: r = 0.0E0, x, d = 1.0E-5
  5.  
  6.   DO
  7.     PRINT *, 'Input a positive real number: '
  8.     READ *, r
  9.     IF ( r > 0.0E0 ) EXIT
  10.   END DO
  11.  
  12.   x = r                             ! 蛻晄悄蛟､縺ｯ0莉･螟悶↑繧我ｽ輔〒繧ゅｈ縺�
  13.  
  14.   DO WHILE ( ABS( x ** 2 - r ) / r > d )
  15.     x = 0.5E0 * ( x + r / x )
  16.     PRINT '( 1X, E12.5 )', x
  17.   END DO
  18.  
  19. END PROGRAM ex5_7
Success #stdin #stdout 0.01s 5292KB
comments (?)
stdin 
476
stdout 
 Input a positive real number: 
  0.23850E+03
  0.12025E+03
  0.62103E+02
  0.34884E+02
  0.24265E+02
  0.21941E+02
  0.21818E+02
  0.21817E+02
https://ideone.com/GCNIHK
language:
Fortran (gfortran 8.3)
created:
10 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!