fork download
copy 
  1. program distance_between_points
  2. implicit none
  3. real::x1,x2,y1,y2,distance
  4. print *,'Enter the coordinates of the first point(x1,y1):'
  5. read *,x1,y1
  6. print *,'Enter the  coordinates of the second points(x2,y2):'
  7. read *,x2,y2
  8. distance=sqrt((x2-x1)**2+(y2-y1)**2)
  9. print *,'The distance between the points is:',distance
  10. end program distance_between_points
Success #stdin #stdout 0.01s 5244KB
comments (?)
stdin
copy 
4
5
2
4
stdout
copy 
 Enter the coordinates of the first point(x1,y1):
 Enter the  coordinates of the second points(x2,y2):
 The distance between the points is:   2.23606801
https://ideone.com/CYz04Y
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!