Написать алгоритм решения задачи,которая определяет,лежит ли точка А(х,у) внутри некоторого кольца(«внутри» понимается в строгом смысле, т.е. случай,когда точка А лежит на границе кольца,недопустим) . Центр кольца находится в начале координат. Для кольца заданы внутренний и внешний радиусы r1,r2. Координаты х и у вводятся с клавиатуры.
Answers & Comments
Ответ:
С проверкой данных на корректность: 0 < r1 < r2 }
Var x,y,r1,r2:real; begin while true do begin write('x y r1 r2 > '); readln(x,y,r1,r2);
if (r1 <= 0) or (r2 <= r2) then writeln('Ошибка ввóда !') else
if (x*x+y*y <= r1*r1) or (x*x+y*y >= r2*r2) writeln('Не в кольце !') else
writeln('В кольце !') end end.