Задача в паскале даю 30 баллов. На плоскости заданы две окружности радиусом R1 и R2, описанные из начала координат. Определить, попадет ли точка (x,y) в кольцо между двумя окружностями. 1. Для нахождения расстояния от начала ко...

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