Попадает ли точка с заданными координатами в область закрашенную серым цветом - Pascal ABC

Формулировка задачи:

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

Код к задаче: «Попадает ли точка с заданными координатами в область закрашенную серым цветом - Pascal ABC»

textual
var r,x,y:real;
begin
write('R=');
readln(r);
writeln('Введите координаты точки');
readln(x,y);
if (abs(x)<=r)and(abs(y)<=r)
and(sqr(x+r)+sqr(y-r)>=r*r)
and(sqr(x-r)+sqr(y+r)>=r*r)
then write('Точка попадает в область')
else  write('Точка не попадает в область')
end.

5   голосов, оценка 4.200 из 5


СОХРАНИТЬ ССЫЛКУ