Question

Помогите пожалуйста разобраться с этим. Это очень срочное.

Answer 1

Сделал с оформлением и пояснением.

Кстати, если не очень понятно откуда появились такое условия проверки:
Я взял прямые вида y=kx+b и проверил, чтобы Y был выше этих прямых.

9959a6b79b9a5ca929763f25af34fc11.pas

Answer 2

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.

Answer 3

И ещё, эта программа сделана у чётом того, что если точка будет на синей линии, то она тоже будет принадлежать закрашенной области.

Answer 4

Если так не надо, то просто у всех сравнений уберите знак равно.

Answer 5

спасибо огромное выручил

Answer 6

что такое gt