Найти произведение длин АВ и АС - PascalABC.NET
Формулировка задачи:
Даны три точки А, В, С на числовой оси. Точка А расположена между точками С и В. Найти произведение длин АВ и АС. Как правильно написать , чтобы если А находится между произведение искалось , а если нет , то не искалось )
Решение задачи: «Найти произведение длин АВ и АС»
textual
Листинг программы
var a,b,c,p:real;
begin
writeln('Введите значение a,b,c');
readln(a,b,c);
if((a>b)and(a<c))or((a<b)and(a>c))then
begin
p:=abs(a-b)*abs(a-c);
write('Произведение длин AB*AC=',p:0:2);
end
else write('Точка А не находится между точек В и С');
end.
Объяснение кода листинга программы
- Объявлены четыре переменные: a, b, c и p типа real.
- Выводится запрос на ввод значений переменных a, b и c.
- Если условие (a>b)and(a<c) выполняется, то выполняется блок кода, в противном случае выводится сообщение
Точка А не находится между точек В и С. - Вычисляется значение переменной p как произведение абсолютных значений разностей a-b и a-c.
- Выводится сообщение с значением переменной p, отформатированным до двух знаков после запятой.