fork download
copy 
  1. program ex3_page169;
  2. var x1, x2, y1, y2, d: real;
  3. begin
  4.   writeln('x1=');
  5.   readln(x1);
  6.   writeln('x2=');
  7.   readln(x2);
  8.   writeln('y1=');
  9.   readln(y1);
  10.   writeln('y2=');
  11.   readln(y2);
  12.  
  13.   d := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
  14.  
  15.   writeln('d=', d:0:2);
  16. end.
Success #stdin #stdout 0.01s 5292KB
comments (?)
stdin
copy 
4
6
8
9
stdout
copy 
x1=
x2=
y1=
y2=
d=2.24
https://ideone.com/kVzHmM
language:
Pascal (fpc 3.0.4)
created:
12 hours 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!