Даны n окружностей на плоскости, заданных координатами своих
центров и радиусами. Найти все окружности, вложенные в самую
большую окружность. Использовать ЗАПИСИ. Исходные данные получить
с помощью генератора случайных чисел. Решение проиллюстрировать графически.

Катюша, и все-таки, что именно не получается?

Так дело не пойдет - это не называется "подготовка"... Смысл какой НАМ решать эти задачи? Ты должна решать их... Попробуй, если что не получится - поможем...

вы мне покажите решиние.. пожалуйста..

я вообще не знаю, как тут рещать и чего..

а мне уже разбираться и писать новое будет легче..

или это лень все- эти отмазки ваши?

А ты возьми лист бумаги и реши задачу сама (графически), а потом попробуй объяснить это компьютеру...


Ты хорошо подумала, прежде чем это написать? Как ты отреагировала на такой выпад в свой адрес, напомнить? Я буду реагировать ГОРАЗДО жестче...

я найду Олега тогда и попрошу ему объяснить - что и как писать.. потому что я не программировала, в отличии от вас 2 года.

мне даже простейшую программу написать сложно.

а сроку мне осталось- месяц. :fire:

Короче так, генерируешь по рандому X,Y и R N раз : ). Самая большая окружность (m)– у которой R больше. Дальше находишь все окружности (i), у которых расстояние от центра (Xi,Yi) до (Xm,Ym) + Ri ,будет меньше Rm, рисуешь их другим цветом. Все.
Да, запись используешь для хранения инфы об окружности.

я не понимаю mlc того, что Вы написали

Бери книгу по Паскалю и читай работу с записями (Record) и графику...

:D
Вот примерно так:

uses crt,graph;
const n=30;
type cir = record
  x,y,r:longint;
end;
var i,m:integer;
c:array [1..n] of cir;
begin
  { инициализируем графику }
  for i:=1 to n do begin
    { инициализируем случ. значениями структуру c[i] }
    circle (c[i].x,c[i].y, c[i].r); { и отрисовываем ее }
    if c[m].r<c[i].r then m:=i;
  end;

  setcolor(4); circle (c[m].x,c[m].y, c[m].r); setcolor(6);
  for i:=1 to n do
    if (sqrt(sqr(c[i].x-c[m].x)+sqr(c[i].y-c[m].y))+c[i].r)<c[m].r
    then circle (c[i].x,c[i].y, c[i].r);
  { закрываем графический режим }
end.

Что не понятно спрашивай

Malice, ты тоже, что непонятно - спрашивай
Я не увидел твоего ответа, продублируй, плиз, в мыло..
А нет, нашел, теперь понятно..

я знаю все операторы.. я не знаю, как их применять и использовать

а можешь прописать эту единственную строку или для определения вложенных окружностей

Meshashringi

Specificity Of Cephalexin For Pept1

Vytorin And Propecia