Установить, может ли принять потерпевших на борт без изменений маршрута судно - Free Pascal
Формулировка задачи:
Для организации поисков терпящей кораблекрушение шхуны необходимо срочно установить: может ли принять потерпевших на борт без изменений маршрута судно,двигающееся по прямой линии.
Решение задачи: «Установить, может ли принять потерпевших на борт без изменений маршрута судно»
textual
Листинг программы
writeln('Введите координаты отрезка:');
readln(ax,ay,bx,by);
writeln('Введите координаты точки');
readln(x,y);
if ax=bx then {если отрезок вертикальный}
if (x=ax) and(((y<=ay)and(y>=by))or((y>=ay)and(y<=by))) then write('Принадлежит')
else write('Не принадлежит')
else
begin
p:=(x-bx)/(ax-bx);
if (abs(p*ay+(1-p)*by-y)<t)and((p>=0)and(p<=1))then write('Принадлежит')
else write('Не принадлежит');
end;