Вычисление расстояния между двумя точками на прямой на Pascal
Здесь иллюстрируется использование стандартной функции abs.
var
a,b: real; // координаты точек
r: real; // расстояние между точками на прямой
begin
write('Введите координату точки a: ');
readln(a);
write('Введите координату точки b: ');
readln(b);
r := abs(a-b);
writeln('Расстояние между точками = ',r);
end.
10.02.2015, 08:44 -
Категория: Статьи » Программирование » Pascal