записи, текстовое и графическое решение, подготовка к экзамену Опции

[Катюша]

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

[volvo]

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

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

[Катюша]

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

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

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

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

[volvo]

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

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

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

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

[Катюша]

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

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

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

[mlc]

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

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

[Катюша]

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

[volvo]

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

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

[Malice]

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

: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, ты тоже, что непонятно - спрашивай
Я не увидел твоего ответа, продублируй, плиз, в мыло..
А нет, нашел, теперь понятно..

Сообщение отредактировано: Malice - 25.07.2005 16:47

[Катюша]

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

[Эдгар]

Дальше находишь все окружности (i), у которых расстояние от центра (Xi,Yi) до (Xm,Ym) + Ri ,будет меньше Rm, рисуешь их другим цветом. Все.
Да, запись используешь для хранения инфы об окружности.

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