fork download
copy 
  1. PROGRAM ex1_1 
  2. REAL :: a, b, av1, av2, av3 
  3. READ *, a, b 
  4. av1 = ( a + b ) / 2.0 
  5. av2 = ( a * b ) ** 0.5 
  6. av3 = 2.0 / ( 1.0 / a + 1.0 / b ) 
  7. PRINT *, av1, av2, av3 
  8. END PROGRAM ex1_1 
  9.  
Success #stdin #stdout 0.01s 5268KB
comments (?)
stdin
copy 
1.0 2.0
stdout
copy 
   1.50000000       1.41421354       1.33333337
https://ideone.com/QUpuK6
language:
Fortran (gfortran 8.3)
created:
3 hours 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!