fork download
copy 
  1. !	keisan.f90
  2. !	program keisan
  3. IMPLICIT none
  4. REAL:: a,b,wa,sa,seki,syou,root
  5. READ*,a,b
  6. wa = a + b
  7. sa = a - b
  8. seki = a * b
  9. syou = a / b
  10. root = sqrt(a)
  11. PRINT*,a,b,wa,sa,seki,syou,root
  12. END
Success #stdin #stdout 0.01s 5288KB
comments (?)
stdin
copy 
3
6
stdout
copy 
   3.00000000       6.00000000       9.00000000      -3.00000000       18.0000000      0.500000000       1.73205078
https://ideone.com/i033i9
language:
Fortran (gfortran 8.3)
created:
7 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!