Написать программу Pascal

Question

Написать программу, которая определяет, попадает ли точка с заданными координатами в область, закрашенную из рисунка серым цветом. Результат работы программы вывести в виде текстового сообщения. Параметр R вводится с клавиатуры. в Pascal

andrei_panarin_4 · Accepted Answer

Для всех точек внутри области справа справедливо:
1) x > 0
2) x < a
3) y > 0
4) y < b
5) x² + y² > R² (точка лежит за окружностью)

Для всех точек внутри области слева справедливо:
1) x < 0
2) x > −a
3) y < 0
4) y > −b
5) x² + y² < R² (точка лежит внутри окружности)

Зная эти свойства, напиши программу самостоятельно.

victor_surozhtsev · Answer

program Liza; var a,b,R,x,y:real; begin while true do begin write('a,b,R,x,y> '); readln(a,b,R,x,y); if ((y<=0) and (y>=-b) and (x<=0) and (x>=-a) and (x*x+y*y<=R*R)) or ((y>=0) and (y<=b) and (x<=a) and (x>=0) and (x*x+b*b>=R)) then writeln('Точка принадлежит области') else writeln('Точка не принадлежит области') end end.