Вопрос от посетителя
Паскаль (9 класс!) Напишите программу вычисления расстояния между двумя точками плоскости
Отвечает Илюха:
Program Distance;
Var
X1, Y1, X2, Y2, D: Real;
Begin
WriteLn(‘Введите координаты первой точки’);
ReadLn(X1, Y1);
WriteLn(‘Введите координаты второй точки’);
ReadLn(X2, Y2);
D := Sqrt(Sqr(X2 – X1) + Sqr(Y2 – Y1));
WriteLn(‘Расстояние между точками = ‘, D:2:2);
ReadLn;
End.