Определить, принадлежит ли точка заданной области - 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
СДЕЛАЙТЕ РЕПОСТ