Определить принадлежность точки области

[oldproxx]

Для данных областей составить линейную программу,которая печатает true,если точка с координатами (x,y) принадлежит закрашенной области,и false- в противном случае

[type_Oleg]

Я так скажу - чукча не математик, чукча программист..
Поэтому, если опишите все это математически, то я обещаю, переведу все это на Паскаль в виде функции.

Фактически надо решить задачу, где даны координаты всех вершин 4-угольника. Ответом будут 4 неравенства .

Кстати, что значит линейную программу , в Паскале вроде нет такого понятия.
И еще - такие типы можно использовать? Записи (record) вы уже проходили?

PS Хотя в таком общем виде слишком сложно. Можно наверное считать, что две стороны обязательно лежат на осях координат. Тогда входными данными будут 4 числа - x1, x2, y1, y2

[oldproxx]

Record не проходили.
Есть небольшой набросок только:
var x,y:real;
begin
readln(x,y);
writeln((x/6+y/6<=1) and (x/2+y/4>=1) and (x>0) and (y>0));
readln
end.

[type_Oleg]

Ну, так все же решено. Что еще нужно?
Правда, только частный случай, именно для этих координат. Можете заменить 2,6,4,6 на x1, x2, y1, y2 соответственно.
Можно в виде функции сделать

program oldproxx;

function PtInReg(x,y,x1,y1,x2,y2:Real):Boolean;
begin
 PtInReg:=((x/x2+y/y2)<1) and ((x/x1+y/y1)>1) and (x>0) and (y>0);
// или все < > , или все >=, <= . Зависит от того, попадание на границу считается или нет
end;

var xx,yy:Real;
begin
 ReadLn(xx,yy);
 WriteLn(PtInReg(xx,yy,2,4,6,6));
 ReadLn;	
end.

[oldproxx]

writeln который печатает true,можете к программе дописать?

[type_Oleg]

Сообщение от oldproxx

writeln который печатает true,можете к программе дописать?

Не понял. А этот что печатает?
Вы запускали ?
Может быть у вас Паскаль какой-то своеобразный. У меня и FPC и Delphi нормально WriteLn логические типы понимает.

Ну, если что, сделайте так

 if PtInReg(xx,yy,2,4,6,6) then WriteLn('True') else WriteLn('False');

[oldproxx]

спасибо большое

[type_Oleg]

Сообщение от oldproxx

спасибо большое

Исправил 2 букафки.

[Serge_Bliznykov]

Сообщение от type_Oleg

Ну, если что, сделайте так

 if PtInReg(xx,yy,2,4,6,6) then WriteLn('True') else WriteLn('False');

а это уже не подойдёт.
"Линейная" программа - это программа, которая выполняется последовательно, т.е. не имеет ВЕТЛЕНИЙ. If - это условный оператор, после него две ветки выполнения образуются.

не надо идти на поводу у паники.

WriteLn(  логическое_выражение );

работает во всех известных мне компиляторах/средах Паскаля!
Да и исходя из условия задания, именно его и нужно использовать.



извините за ремарку..

[Чудо-программист]

А еще можно нарисовать область и через getpixel читать.