Статистика
Главная » Статьи » Решения задач » Решения задач из задачника PascalABC

Begin20. Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости. Расстояние вычисляется по формуле:

Begin20. Найти расстояние между двумя точками с заданными координатами (x1, y1) и (x2, y2) на плоскости. Расстояние вычисляется по формуле: sqrt(sqr(x2-x1)+sqr(y2-y1)).
var x1, y1, x2, y2, d: real;
begin
  write('Введите координаты двух точек: (x1, y1) и (x2, y2) ->');
  readln(x1, y1, x2, y2);
  d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  writeln('Расстояние между точками = ', d:6:2);
end.

Категория: Решения задач из задачника PascalABC | Добавил: admin (25.01.2015)
Просмотров: 2646 | Рейтинг: 0.0/0
Всего комментариев: 0
Вход на сайт