M11 official:построить программу, которая вводит координаты точки (x, y) и определяет,...

Question

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

---

Comments

Я прошу прощения, а язык какой?

---

паскаль

---

Присвятые угодники, где этому мертворожденному учат то?)

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.

Comments

Как всегда его гнидейшиство форматирует мои ответы хр*н знает как

---

Сейчас поправим в коментах, как и всегда

---

program laba;

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}<br> then
begin
Write('Point in area.'); {Если попали, выведем об этом соответствующее сообщение}
end
else
begin
Write('Point out of area.'); {Если же не попали, то печаль беда, всё плохо, так и скажем}
end
end

---

end.