fork download
copy 
  1. !   PROGRAM keisan
  2. IMPLICIT none
  3. REAL :: a,b,wa,sa,seki,syou,root
  4. READ * ,a, b
  5. wa = a + b
  6. sa = a - b
  7. seki = a * b
  8. syou = a / b
  9. root = SQRT(a)
  10. PRINT*,a,b,wa,sa,seki,syou,root
  11. END
  12.  
Success #stdin #stdout 0s 5324KB
comments (?)
stdin
copy 
5 10
stdout
copy 
   5.00000000       10.0000000       15.0000000      -5.00000000       50.0000000      0.500000000       2.23606801
https://ideone.com/vygcvi
language:
Fortran (gfortran 8.3)
created:
2 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!