Вычислить расстояние между двумя точками с координатами х1, у1 их2, у2. паскаль

Question

Информатика

Остап

12 июня, 12:19

Вычислить расстояние между двумя точками с координатами х1, у1 их2, у2. паскаль

+3

Ответы (1)

Знаете ответ на вопрос?

Максимилиан · Answer 1

Var x1, y1, x2, y2, r:real;

begin

write ('Введите x1, y1') ; read (x1, y1) ;

write ('Введите x2, y2') ; read (x2, y2) ;

r: = sqrt (sqr (x2-x1) + sqr (y2-y1)) ;

write ('расстояние между двумя точками = ', r) ;

end.