Определить, принадлежит ли точка заштрихованной области - Free Pascal (71)

Формулировка задачи:

: Написать программы с использованием - условного оператора, - логической переменной, определяющие расположение точки А(х,у) относительно заштрихованной области: принадлежит области или не принадлежит.

Код к задаче: «Определить, принадлежит ли точка заштрихованной области - Free Pascal (71)»

textual
var x,y:real;
    f:boolean;
begin
writeln('Введите координаты точки');
readln(x,y);
//ветвление
if (y>=-1)and(y-1+abs(x-2)<=6) then write('Точка принадлежит заштрихованной области')
else write('Точка не принадлежит заштрихованной области');
//логический оператор
f:=(y>=-1)and(y+1+abs(x-2)<=6);
write(f)
end.

11   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ