Найти непересекающиеся окружности Опции

[Carrera]

Я вообще не понимаю в програмировании.Никогда не было информатики а тут надо одну задачу решить и зачет.Рещите пожалуйста кто умеет .Нужно в турбо паскале.Буду оч благодарна(шоколадку обеспечу))


Окружность на плоскости задана координатами X,Y,R-радиус(все значения формируются случайным образом).Из 20-ти окружностей показать те,которые не пересекают другие.

[Lapp]

Андрей, одна окружность лежащая внутри другой, но не касающаяся и не пересекающая её, наверное, тоже должна считаться непересекающейся ни с чем?

Да, я тоже так думаю. Спасибо, Володь, я опять выпустил этот случай из виду, +1 тебе.
Конечно, нужно проверять вложенные окружности.. Как-то вот так, если не ошибся в спешке:

const
  n= 20;

var
  c: array[1..n] of record
    x,y,r: double
  end;
  i,j: integer;

begin
  for i:=1 to n do with c[i] do begin
    x:= random*100-50;
    y:= random*100-50;
    r:= random*12
  end;
  for i:=1 to n do with c[i] do begin
    write(i:3,':    x=',x:7:3,'  y=',y:7:3,'  r=',r:6:3);
    j:= 1;
    while
      (j<=n) and (
        (i=j) or
        (Sqrt(Sqr(c[j].x-x)+Sqr(c[j].y-y)) > c[j].r+r) or    { лежит снаружи }
        (Sqrt(Sqr(c[j].x-x)+Sqr(c[j].y-y)) < abs(c[j].r-r))  { лежит внутри }
      )
    do inc(j);
    if j>n then writeln('  - не пересекается с другими') else writeln
  end;
  readln
end.

Спасибо огромное!!как тебе шоколадку передать?

Спасибо!
Боюсь, передача выйдет тебе недешево: полшоколадки на один континент, пол - на другой.. )) Мы с IUnknown дарим ее тебе (верно, Володь?), съешь сама. Только честно!

[Carrera]

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