Определить имеют ли общие точки две плоские фигуры

[JL25A]

Нужно определить имеют ли общие точки две плоские фигуры: прямоугольник с задаными координатами вершин и круг с заданым радиусом и центром в начале координат.
помогите пожалуйста написать программу на паскале

[D@rkD@iver]

в принципе могу за 100рублей написать
или кидай свои наработки поогу советом

[JL25A]

А за спасибо?(
Если бы мне нужно было за деньги я бы написал в другой раздел.

[JL25A]

принципе саму программу то я напишу, я не могу понять как определить имеют или нет они общие точки, похожих тем тут не находил, так бы разобрался, мне часть программы только нужну ну или в словах, чтобы было понятно.

[evg_m]

я не могу понять как определить имеют или нет они общие точки, похожих тем тут не находил

Разбиваем задачу на несколько простых и решаем.
Сначала на бумаге (математически), потом пишем прогграмму.

1. фигуры могут пересекаться =>есть общие точки на границе.
граница круга окружность (центр радиус).
граница прямоугольника ;4 отрезка (оординаты вершин.
пересечение окружности и каждого из отрезков. (ДАлее САМостоятельно).
2. фигуры не пересекаются и не имеют общих точек.
3. одна из фигур вложена в другую. (2 варианта).

Каждую подзадачу можно снова разбиваем на БОЛЕЕ простые.
Успехов!

[Vago]

Сообщение от JL25A

... я не могу понять как определить имеют или нет они общие точки ...

1. Расстояние от точки (0,0) до прямой, проходящей через две заданные точки, - можем вычислить?..
2. Сравнить полученную величину с заданным радиусом окружности - в состоянии?..
3. Повторить два описанные выше шага максимум 4 раза - способны?..

Added 21:59 CET
Единственно, при таком подходе, случай, когда круг полностью оказался внутри прямоугольника, нужно рассматривать отдельно.

[JL25A]

Сообщение от Vago

1. Расстояние от точки (0,0) до прямой, проходящей через две заданные точки, - можем вычислить?..
2. Сравнить полученную величину с заданным радиусом окружности - в состоянии?..
3. Повторить два описанные выше шага максимум 4 раза - способны?..

Added 21:59 CET
Единственно, при таком подходе, случай, когда круг полностью оказался внутри прямоугольника, нужно рассматривать отдельно.

на листке я все это смогу сделать...но в программе...
к примеру я не знаю как найти расстояние от точки (0,0) до прямой, проходящей через две заданные точки (В ПАСКАЛЕ). Все остально е вроде понятно

[TinMan]

1. фигуры могут пересекаться =>есть общие точки на границе.

evg_m, это не совсем так. В условии речь про КРУГ, а не про окружность - следовательно, внутренние точки включены. Думаю, то же самое и с прямоугольником.

Сообщение от JL25A

Нужно определить имеют ли общие точки две плоские фигуры: прямоугольник с задаными координатами вершин и круг с заданым радиусом и центром в начале координат.
помогите пожалуйста написать программу на паскале

Прямоугольник какой? Его стороны параллельны осям координат или могут быть наклонены? Далее все в предположении, что стороны параллельны координатам.

Прямоугольник задается двумя (диагонально противоположными) вершинами:
x1,y1 и x2,y2
Круг задан центром и радиусом:
x0,y0 и r



На картинке видны все главные типы пересечения (надеюсь, я ничего не забыл). Красными звездами помечены реперные точки (то есть те, которые надо проверять. То есть надо сделать две вещи:
1. проверить вершины прямоугольника на принадлежность кругу;
2. проверить крайние точки круга (по x и y) на принадлежность прямоугольнику.

Короче, как-то так примерно (не проверял).

var
  x0,y0,x1,y1,x2,y2,r: double;

function InCirc(x,y: double): boolean;
begin
  InCirc:= Sqr(x-x0) + Sqr(y-y0) <= r*r    // corrected
end;

function InRect(x,y: double): boolean;
begin
  InRect:= ((x-x1)*(x-x2) <=0 ) and ((y-y1)*(y-y2) <= 0)
end;

begin
  // тут ввод параметров фигур
  Writeln(
    'Фигуры пересекаются? ',
    InCirc(x1,y1) or InCirc(x1,y2) or InCirc(x2,y1) or InCirc(x2,y2) or
    InRect(x0-r,y0) or InRect(x0+r,y0) or InRect(x0,y0-r) or InRect(x0,y0+r)
  );
  Readln
end.

Если же прямоугольник все же наклонный, то нужно сначала сделать поворот системы координат, а потом решать, как сделано выше.

[JL25A]

Сообщение от TinMan

Прямоугольник задается двумя (диагонально противоположными) вершинами:
x1,y1 и x2,y2
Круг задан центром и радиусом:
x0,y0 и r

var
  x0,y0,x1,y1,x2,y2,r: double;

function InCirc(x,y: double): boolean;
begin
  InCirc:= Sqr(x-x0) + Sqr(y-y0) >= r*r
end;

function InRect(x,y: double): boolean;
begin
  InRect:= ((x-x1)*(x-x2) <=0 ) and ((y-y1)*(y-y2) <= 0)
end;

begin
  // тут ввод параметров фигур
  Writeln(
    'Фигуры пересекаются? ',
    InCirc(x1,y1) or InCirc(x1,y2) or InCirc(x2,y1) or InCirc(x2,y2) or
    InRect(x0-r,y0) or InRect(x0+r,y0) or InRect(x0,y0-r) or InRect(x0,y0+r)
  );
  Readln
end.

Спасибо за помощь но:
При вводе всех значений все время выдает true, найти ошибку в коде почему то не смог, поэтому если будет время посмотрите.

var
  x0,y0,x1,y1,x2,y2,r: double;
  
function InCirc(x,y: double): boolean;
begin
  InCirc:= Sqr(x-x0) + Sqr(y-y0) >= r*r
end;

function InRect(x,y: double): boolean;
begin
  InRect:= ((x-x1)*(x-x2) <=0 ) and ((y-y1)*(y-y2) <= 0)
end;

begin
  writeln('Введите координаты 2-х вершин прямоугольника (диагонально противоположных)');
  write('1-я вершина прямоугольника (x y): ');readln(x1,y1);
  write('2-я вершина прямоугольника (x y): ');readln(x2,y2);
  write('Введите координаты центра окружности в начале координат (0 0): ');readln(x0,y0);
  write('Введите радиус круга: '); readln(r);
    writeln('Фигуры пересекаются? ',
    InCirc(x1,y1) or InCirc(x1,y2) or InCirc(x2,y1) or InCirc(x2,y2) or
    InRect(x0-r,y0) or InRect(x0+r,y0) or InRect(x0,y0-r) or InRect(x0,y0+r)
  );
  Readln
end.

[TinMan]

Я перепутал знак неравенства в функции InCirc. Исправь.

Ты не понял что ли принцип? Учти, я пишу в расчете на то, что ты разберешься. Такую простую ошибку мог бы и сам найти..