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 5292KB
comments (?)
stdin
copy 
4 16
stdout
copy 
   4.00000000       16.0000000       20.0000000      -12.0000000       64.0000000      0.250000000       2.00000000
https://ideone.com/YOcDW6
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!