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

[Катюша]

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

[Катюша]

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

[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