"Программы без ошибок можно написать
двумя способами, но работает — третий"
Алан Джей Перлис

Решения задач на тему ввода и вывода данных в Pascal

Найти расстояние между двумя точками с заданными координатами (X1, Y1) и (X2, Y2) на плоскости. Расстояние вычисляется по формуле:

(X2-X1)2 + (Y2-Y1)2

program two;
var
   x1,x2,y1,y2,dlina:real;
begin
   writeln('Введите координаты:');
   write('x1 = ');
   readln(x1);
   write('y1 = ');
   readln(y1);
   write('x2 = ');
   readln(x2);
   write('y2 = ');
   readln(y2);
   dlina:=sqrt(sqr(x2-x1)+sqr(y2-y1));
   write('Расстояние = ',dlina:2:2);
end.

 

 

Назад