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

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

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


textual

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

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы