Задача в паскале даю 30 баллов. ** плоскости заданы две окружности радиусом R1 и R2,...

Question

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

Comments

И опять та же ошибка: 30 баллов Вы не даете, а тратите.

---

Вознаграждение

---

Вознаграждение написано: 15 баллов +8 за лучший ответ.

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<br>    writeln('Точка внутри')
  else
     writeln('Точка снаружи');
end.

Comments

Вы проверяли?

---

Да, в PascalABC.Net

---

Не совсем корректно говорить о точке "внутри", если она на границе (на окружности). Правда, в условии не сказано, включать границу в рассматриваемую область попадания или нет.

---

Да, не совсем, но так как в условии не было подобного уточнения, сделал на своё усмотрение

---

Не проще было спросить у автора вопроса?)))

---

Надо же и ему дать напрячь мозг

---

А где лог связка and?

---

Спасибо