Определить, принадлежит ли точка заданной области - Pascal ABC (12482)
Формулировка задачи:
нужная область-заштрихованная.
радиус равен 4
Код к задаче: «Определить, принадлежит ли точка заданной области - Pascal ABC (12482)»
var r,x,y:real; f1,f2,f3,f4:boolean; begin repeat write('Введите радиус r='); readln(r); until r>0; writeln('Введите координаты точки'); readln(x,y); f1:=sqr(x+r)+y*y<=r*r; f2:=x*x+y*y>=r*r; f3:=x*x+y*y<=r*r; f4:=sqr(x-r)+y*y<=r*r; if(f1 and f2)or(f4 and f2) or(f3 and not f1 and not f4) then write('Принадлежит') else write('Не принадлежит'); end.

Эта работа вам не подошла?
Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.
СДЕЛАЙТЕ РЕПОСТ
8 голосов, оценка 4.250 из 5
Похожие ответы