Question

С клавиатуры вводятся два числа X и Y. Написать программу, определяющую, попала ли точка с координатами (X, Y) внутрь выделенной
области (см. рисунок).

Answer 1

Ответ:

Объяснение:

function  IsBelong(x, y : real): boolean;

{Вспомогательная функция для проверки, принадлежит

ли точка (x; y) выделенной области}

begin

    IsBelong:= false;

    if (x > 0) then

       begin

       if (y <= 0) and  (y >= ln(x)) and (y >= -x -1) then

          IsBelong:= true;

       end

    else

        begin

         if (y >= 0) and  (x * x + y * y <= 9) and (y >= -x -1) then

            IsBelong:= true;

       end;

end;

var x, y: real; // Координаты точки

   mess: string;

begin

    {Считывание начальных значений}

    write('Input x: ');

    readln(x);

    write('Input y: ');

    readln(y);

    writeln();

    {Проверка принадлежности}

    if IsBelong(x,y) then mess := 'The point belongs to the area'

       else  mess := 'The point does not belong to the area';

    {Вывод сообщения}

    writeln(mess);

    readln();

end.