Question

Впаскале 30 . на плоскости заданы две окружности радиусом r1 и r2, описанные из начала координат. определить, попадет ли точка (x,y) в кольцо между двумя окружностями. 1. для нахождения расстояния от начала координат до заданной точки использовать теорему пифагора. 2. при записи условия " найденное расстояние меньше r1 и больше r2 " использовать логическую связку and. 3. необходимо подобрать такие значения исходных данных, чтобы они отражали все варианты решения: а) точка попадет в кольцо; б) точка не попадет в кольцо, в этом случае расстояние от начала координат может быть меньше r1 или больше r2. с коментариямм)

Answer 1

Var
  r1, r2, x, y, temp, dist : real;
begin
 
  // Считывание значений
  write('R1: ');
  readln(r1);
  write('R2: ');
  readln(r2);
 
  write('x: ');
  readln(x);
  write('y: ');
  readln(y);  
 
  // Делаем так, чтобы в переменной r1 содержался меньший радиус
  if r1 > r2 then
  begin
    temp := r2;
    r2 := r1;
    r1 := temp;
  end;
 
  dist := sqrt(x*x+y*y);  // Расстояние по формуле
 
  if (dist >= r1) and (dist <= r2) then
    writeln('Точка внутри')
  else
     writeln('Точка снаружи');
end.