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.

Answer 2

program laba;

var
xPos, {В данной переменной храним позицию по оси X}
yPos {А в этой по оси Y}

: real; {Переменные вещественного типа, что бы можно было вводить дробные значения}

Answer 3

begin

Write('Enter x position: ');
Readln(xPos); {Вводим переменную по X}

Write('Enter y position: ');
Readln(yPos); {И по Y}

Answer 4

if (xPos <= 0) and (yPos <= 1) and (yPos >= -1) {Если переменная находится в пределах прямоугольной области, что слева от оси Oy}
then
begin
Write('Point in area.'); {Тогда всё окей, мы попали в заштрихованную зону и выведем ответ}
end

Answer 5

else {если же не попали, проверим другую}
begin
if (xPos*xPos + yPos*yPos <= 1) {Проверяем по формуле графика окружности попадание в полукруг справа от оси Oy}
then
begin
Write('Point in area.'); {Если попали, выведем об этом соответствующее сообщение}
end
else
begin
Write('Point out of area.'); {Если же не попали, то печаль беда, всё плохо, так и скажем}
end
end

Answer 6

end.