fork download
copy 
  1. program distance
  2. real::x1,x2,y1,y2,d
  3. read *,x1,y1,x2,y2
  4. d=sqrt((x2-x1)**2+(y2-y1)**2)
  5. print *,'The distance is:',d
  6. end program distance
Success #stdin #stdout 0s 5320KB
comments (?)
stdin
copy 
4
5
2
4
stdout
copy 
 The distance is:   2.23606801
https://ideone.com/2rBRlE
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!