Дана точка с координатами X,Y определить, попадает ли она в область плоскости

[rager06]

Всем привет! Помогите, пожалуйста подправить код.
Задание:

Дана точка с координатами X,Y определить, попадает ли она в область заданной плоскости

111.png
код:

program graphicdots;
uses crt;
var x,y: real;
begin
   clrscr;
   write('Enter X: ');
      readln(x);
      clrScr;
   write('Enter Y: ');
      readln(y);
      clrScr;
   if ((y<0) and (y<=-2)) and ((x<=1) and (x>=-1)) and (x<0) and (x>-1) and
        (y<0) and (y<1)then
      write('Tochka (', x, ';', y, ') ', 'prenadlejit ploskosti!')
      else
         write ('Tochka (', x:0:2, ';', y:0:2, ') ', 'ne prenadlejit ploskosti!');

   writeln;
   readkey;
end.

Заранее спасибо

[evg_m]

if ( X>0 and X<y and .... ) // остальные проверки для x>0
or ( x<0 and x<-y and .... ) //аналогично для чБ0
   then // и расставить скобки

если опустить проверки c y, то у тебя было

if (x>0) and (X>0)

поэтому всегда срабатывал else

[Zeronim]

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

Всем привет! Помогите, пожалуйста подправить код.
Задание:

Вложение 39737
код:

program graphicdots;
uses crt;
var x,y: real;
begin
   clrscr;
   write('Enter X: ');
      readln(x);
      clrScr;
   write('Enter Y: ');
      readln(y);
      clrScr;
   if ((y<0) and (y<=-2)) and ((x<=1) and (x>=-1)) and (x<0) and (x>-1) and
        (y<0) and (y<1)then
      write('Tochka (', x, ';', y, ') ', 'prenadlejit ploskosti!')
      else
         write ('Tochka (', x:0:2, ';', y:0:2, ') ', 'ne prenadlejit ploskosti!');

   writeln;
   readkey;
end.

Заранее спасибо

ты из группы ПР-356?

[rager06]

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

if ( X>0 and X<y and .... ) // остальные проверки для x>0
or ( x<0 and x<-y and .... ) //аналогично для чБ0
   then // и расставить скобки

если опустить проверки c y, то у тебя было

if (x>0) and (X>0)

поэтому всегда срабатывал else

Спасибо, evg_m

[rager06]

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

ты из группы ПР-356?

Нет. Это что за специальность?