Впаскале 30 . на плоскости заданы две окружности радиусом r1 и r2, описанные из начала координат. определить,

Question

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

888oksana888 · Answer

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....

Популярные вопросы