Вычисление расстояния между двумя точками на прямой на Pascal

Здесь иллюстрируется использование стандартной функции abs.

var 
  a,b: real; // координаты точек
  r: real;   // расстояние между точками на прямой
begin
  write('Введите координату точки a: ');
  readln(a);
  write('Введите координату точки b: ');
  readln(b);
  r := abs(a-b);
  writeln('Расстояние между точками = ',r);
end.



Просмотров: 4653
10.02.2015, 08:44 -

Категория: Статьи » Программирование » Pascal