Определить принадлежит ли точка (x,y) области Опции

[Rikki_Irena]

Составить программу , используя условный оператор

[Krjuger]

Покажите что не получаеться, в чем проблема и что подразумевается под закрашенными облостями? Вывести множество значений? Вывести те точки которые попадают в данные области?Более точно условие опишите

[Rikki_Irena]

вот первую решила с уравнением, а вторую не знаю даже как

[Krjuger]

Ну вот это уже что-то)))

Var
x,y: integer;
begin
x:=3;
y:=6;
if ((x-5>=0) and (y<=x) and (y-5>=0)) or ((x-5<=0) and (y>=x) and (y-5<=0)) then
  writeln('DA')
else
writeln('NET');
readln;
end.

Вроде работает))))

МОжно раскидать по нескольким условиям,если есть вопросы,спрашивайте...

Сообщение отредактировано: Krjuger - 21.12.2011 18:28

[Rikki_Irena]

Алексей, спасибо большое !!!!^^