Программирование с выводом графических построений.

[Жания Набиева]

Задание: Дана последовательность из 50 чисел. Первые 30-центры и радиусы десяти окружностей,следующие 20-точки. Закрасить в красный цвет те окружности, которые не содержат ни одной точки.

[Stilet]

В чем сложности?

[Жания Набиева]

можете написать программу?

[BDA]

У Вас сложности в поиске человека, который напишет программу за Вас?
Так что же все-таки вызывает сложности?
Кстати, кросспостинг (создание одинаковых тем) запрещен.

[Жания Набиева]

я написала программу,но походу не правильный.

program Laba_7;
 uses graphabc;
 var gd,gm:integer;
 begin
 {gd:=detect;
 InitGraphabc(gd,0,'C:\Program Files\PABC\CAMPLES\GraphABC');}
 circle(50,200,30);
 circle(130,200,30);
 circle(210,200,30);
 circle(290,200,30);
 circle(380,200,30);
 circle(460,200,30);
 circle(540,200,30);
 circle(620,200,30);
 circle(700,200,30);
 circle(780,200,30);
 SetPixel(50,200,clblack);
 SetPixel(130,200,clblack);
 SetPixel(110,250,clblack);
 SetPixel(290,200,clblack);
 SetPixel(380,200,clblack);
 SetPixel(460,200,clblack);
 SetPixel(540,200,clblack);
 SetPixel(620,200,clblack);
 Floodfill(700,200,clred);
 Floodfill(780,200,clred);
 readln;
 closewindow;
 end.

[BDA]

type
  c = record
    x, y, r: integer;
    t: boolean;
  end;

var
  cs: array [1 .. 10] of c;
  i, j, x, y: integer;

begin
  for i := 1 to 10 do
  begin
    read(cs[i].x, cs[i].y, cs[i].r);
    cs[i].t := false;
  end;
  for i := 1 to 10 do
  begin
    read(x, y);
    for j := 1 to 10 do
      cs[j].t := cs[j].t or (sqr(cs[j].x - x) + sqr(cs[j].y - y) < sqr(cs[j].r));
  end;
  //вывод окружностей
  //если cs[i].t = false, то окружность заполнить красным
end.

Вам осталось сделать вывод окружностей (их свойства лежат в массиве cs).

UPD
В коде было несколько ошибок (исправлены).

[Жания Набиева]

Спасибо большое!