Question

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

Answer 1

Program ideone;
var   xPos, {В данной переменной храним позицию по оси X}   yPos  {А в этой по оси Y}      : real; {Переменные вещественного типа, что бы можно было вводить дробные значения}   begin
   Write('Enter x position: ');   Readln(xPos); {Вводим переменную по X}
   Write('Enter y position: ');   Readln(yPos); {И по Y}
   if (xPos <= 0) and (yPos <= 1) and (yPos >= -1) {Если переменная находится в пределах прямоугольной области, что слева от оси Oy}   then      begin          Write('Point in area.'); {Тогда всё окей, мы попали в заштрихованную зону и выведем ответ}      end   else {если же не попали, проверим другую}      begin      if (xPos*xPos + yPos*yPos <= 1) {Проверяем по формуле графика окружности попадание в полукруг справа от оси Oy}         then            begin               Write('Point in area.'); {Если попали, выведем об этом соответствующее сообщение}            end         else            begin               Write('Point out of area.'); {Если же не попали, то печаль беда, всё плохо, так и скажем}            end    endend.