На этой странице дано решение примеров Begin16 - Begin18 из задачника Абрамяна. Здесь рассматриваются решения задач, связанные с расстояниями жежду точками на числовой оси и длинами отрезков.
Begin16. Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 − x1|.
var
x1, x2: real; { <-- Координаты точек на прямой }
begin
write('x1 = ');
readln(x1);
write('x2 = ');
readln(x2);
writeln('Расстояние между точками: ', abs(x2 - x1));
readln
end.
**type** real;
: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308**function** Abs(x: real): real;
: Возвращает модуль числа x. Begin17. Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.
var
x1, x2, x3, AC, BC: real;
begin
write('Введите координату точки A: ');
readln(x1);
write('Введите координату точки B: ');
readln(x2);
write('Введите координату точки C: ');
readln(x3);
AC := abs(x3 - x1); { <-- расстояние между точками A и C }
BC := abs(x3 - x2); { <-- расстояние между точками B и C }
writeln(' AC = ', AC);
writeln(' BC = ', BC);
writeln(' AC + BC = ', AC + BC);
readln
end.
**type** real;
: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308**function** Abs(x: real): real;
: Возвращает модуль числа x.**function** Abs(x: real): real;
: Возвращает модуль числа x. Begin18. Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC.
var
x1, x2, x3, AC, BC: real;
begin
writeln('Введите координаты точек A, B, C: ');
readln(x1, x2, x3);
AC := abs(x3 - x1); { <-- расстояние между точками A и C }
BC := abs(x3 - x2); { <-- расстояние между точками B и C }
writeln(' AC * BC = ', AC * BC);
readln
end.
**type** real;
: Представляет число двойной точности с плавающей запятой.Размер: 8 байт Количество значащих цифр: 15 - 16 Диапазон значений: -1.8∙10308 .. 1.8∙10308**function** Abs(x: real): real;
: Возвращает модуль числа x.**function** Abs(x: real): real;
: Возвращает модуль числа x.