Как составить программу на Pascal, которая вводит координаты точки (x, y) и определяет, попадает ли точка в заштрихованную область?

Question

[Kaytlebedeva]

Вложена картинка графика функции, только круг и квардат должны быть наоборот (2я четверть-крут, 4я четверть-квадрат).

Ввод: координаты точки (x, y).
Вывод: принадлежит (не принадлежит).

Answer 1

[Антон Кащеев]

Если границы не входят, то процедура будет выглядеть примерно так:

procedure proc (real: x,y);
begin
    if (x < 1) and (x > 0) then
        if y > -1 and y < 0 then
            writeln('true');
        else writeln('false');
    else if sqrt(x*x + y*y) < 1 then
        if (x < 0) and (x > -1) then
            if (y > 0) and (y < -1) then
                writeln('true');
            else writeln('false');
        else writeln('false');
    else writeln('false');
end;

Если есть ошибки, не пеняйте. Я за Паскаль брался 2 года назад.

Answer 2

[P0maxa]

Бред..
Как минимум точка (0.9, -0.9)..