Найти расстояние между двумя точками с заданными координатами - Turbo Pascal (33748)

Формулировка задачи:

Найти расстояние между двумя точками с заданными координатами (х1,у1),(х2,у2).

Код к задаче: «Найти расстояние между двумя точками с заданными координатами - Turbo Pascal (33748)»

textual
var
  x1, y1, x2, y2: integer;
 
begin
  Write('X1 = ');
  Readln(x1);
  Write('Y1 = ');
  Readln(y1);
  Write('X2 = ');
  Readln(x2);
  Write('Y2 = ');
  Readln(y2);
  Writeln(Sqrt(Sqr(x2 - x1) + Sqr(y2 - y1)):0:5);
  Readln
end.

11   голосов, оценка 4.091 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы