shoshin142
Program Point; var x, y: integer; Begin //Ввод координат точки write('X точки -> '); readln(x); write('Y точки -> '); readln(y);
//Проверка, входит ли точка в закрашенную область
if ((x >= -4) and //Проверка X (x <= 4) and (y <= 0) and //Проверка Y (y >= (-1.5) * x - 6) and (y >= 1.5 * x - 6)) then write('Точка принадлежит закрешенной области.') else write('Точка НЕ принадлежит закрашенной области.'); End.
shoshin142
И ещё, эта программа сделана у чётом того, что если точка будет на синей линии, то она тоже будет принадлежать закрашенной области.
shoshin142
Если так не надо, то просто у всех сравнений уберите знак равно.
Answers & Comments
Кстати, если не очень понятно откуда появились такое условия проверки:
Я взял прямые вида y=kx+b и проверил, чтобы Y был выше этих прямых.
var
x, y: integer;
Begin
//Ввод координат точки
write('X точки -> ');
readln(x);
write('Y точки -> ');
readln(y);
//Проверка, входит ли точка в закрашенную область
if ((x >= -4) and //Проверка X
(x <= 4) and
(y <= 0) and //Проверка Y
(y >= (-1.5) * x - 6) and
(y >= 1.5 * x - 6)) then
write('Точка принадлежит закрешенной области.')
else
write('Точка НЕ принадлежит закрашенной области.');
End.