Question

Определи расстояние на плоскости между двумя точками с заданными координатами M1(x1,y1)и M2(x2,y2) . Ответ введи целым числом. Если координаты точек: x1=2;y1=4x2=9;y2=12 . Ответ округли до целых. Ответ: d=

Answer 1

function l(a,b,c,d :integer) : real;

var  

 s: real;

begin

 s:=sqrt((c-a)*(c-a)+(d-b)*(d-b));

 l:=s;

end;

var

 x1,x2,y1,y2 : integer;

begin

 writeln('Введите координаты первой точки');

 read(x1,y1);

 writeln('Введите координаты второй точки');

 read(x2,y2);

 writeln('d=',Round(l(x1,y1,x2,y2)));

end.