Посчитать количество графических объектов

@GRAFMC · Регистрация: 09.08.2011

Author24 — интернет-сервис помощи студентам

Дано изображение, на нем какие либо примитивы (Треугольник, круг, квадрат, не важно какая фигура), как посчитать их количество?

@erl27 · 20.05.2014, 19:46

Pascal

uses GraphABC, ABCObjects;
 
var
  i, n: integer;
  c: CircleABC;
  r: RectangleABC;
 
begin
{ Круги: }
  n := random(50);
  for i := 1 to n do
    c:=CircleABC.create(50 + Random(WindowWidth - 100), 50 + Random(WindowHeight - 100),10 + random(50), clrandom);
{ Прямоугольники: }
  n := random(50);
  for i := 1 to n do
    r:=RectangleABC.create(50 + Random(WindowWidth - 100), 50 + Random(WindowHeight - 100), 10 + random(50), 10 + random(50), clrandom);
 SetBrushColor(clYellow);
 SetFontSize(15);
 TextOut(10, 10, 'Количество объектов: ' + IntToStr(Objects.count))
end.

Количество объектов считается с помощью операции Objects.Count

@GRAFMC · 21.05.2014, 01:25 **[ТС]**

erl27, Огромное спасибо, но вы чуть меня не поняли: Открываться должна картинка(например нарисованная в паинте) на этой картинке изображены фигуры, а в паскале необходимо посчитать кол-во этих фигур.

@GRAFMC 2 / 2 / 2 Регистрация: 09.08.2011 Сообщений: 103
		1
	Посчитать количество графических объектов 20.05.2014, 19:21. Показов 1795. Ответов 2 Метки нет (Все метки) Дано изображение, на нем какие либо примитивы (Треугольник, круг, квадрат, не важно какая фигура), как посчитать их количество? 0

@GRAFMC 2 / 2 / 2 Регистрация: 09.08.2011 Сообщений: 103
	21.05.2014, 01:25 [ТС]	3
	erl27, Огромное спасибо, но вы чуть меня не поняли: Открываться должна картинка(например нарисованная в паинте) на этой картинке изображены фигуры, а в паскале необходимо посчитать кол-во этих фигур. 0

Посчитать количество графических объектов

Решение