кординатна прямая (pascal)

[Besidnuk]

нужно написать программу какая бы проверяла принадлежит ли точка С из кординатами (х,у) заштрихованной области. Подскажите пожалуйста алгоритм за которым это можно бы было определить.

[p51x]

если (х от х1, точки пересечения, до 1) и (у от у1, полученного из уравнения нижней прямой, до у2, полученного из верхней прямой), то принадлежит

[Serge_Bliznykov]

три уравнения прямых (в форме с угловым коэффициентом):
y1 = -1*x - 1
y2 = x
y3 = 2x-1

подставляете координату X Вашей точки C в эти уравнения, получаете три значения Yc1, Yc2, Yc3
точка C принадлежит к заштрихованной области,
если её координата Y делает истинным условие:
(Y >= Yс1) and (Y <= Yс2) and (Y >= Yс3)

p.s. разумеется, вместо трёх переменных Yc можно написать сразу уравнения.
я просто подробно расписал, чтобы было понятнее и нагляднее...

[Besidnuk]

Спасибо, вроде получилось.
Serge_Bliznykov, как я понял здесь - "Y < Yс3" у вас опечатка, тут должно быть y>=y3

var x,y,y1,y2,y3:real;
begin
readln(x,y);

y1:=-1*x-1;
y2:=x;
y3:=2*x-1;

if (y>=y1) and (y<=y2) and (y>=y3) then write('Належить') else write('Не належить');
readln;
end.

[Serge_Bliznykov]

Y < Yс3" у вас опечатка, тут должно быть y>=y3

точно, опечатка! (сейчас исправлю в том сообщении опечатку!)
Молодец, пять баллов за понимание и внимательность!