Задача 2

ЗАДАЧА 2

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

program zadacha_2;

var

x, y: real; {координаты точки};

begin

writeln (‘Введите координаты точки:’);

write (‘x=’); readln (x);

write (‘y=’); readln (y);

if (x*x+sqr(y-1)<=1) and (y<= x+1) and (y<= -x+1)

then writeln (‘Точка принадлежит области.’)

else writeln (‘Точка не принадлежит области.’);

readln;

end.

Пример 1

Введите координаты точки:

x=0.1

y=0.5

Точка принадлежит области.

Пример 2

Введите координаты точки:

x=-2

y=5

Точка не принадлежит области.