Найти треугольник, пересекающий окружности

[zaira001002]

Дано множество треугольников и окружностей. Найти треугольник, стороны которого пересекают наибольшее количество окружностей.
Вот у меня реализована кнопка , которая выделяет красным цветом найденный треугольник.
Вот описание глобальных переменных:

procedure RedrawAll;

type
	// Тип "треугольник"
	TTriangle = record
		X1: Integer;
		Y1: Integer;
		X2: Integer;
		Y2: Integer;
    X3: Integer;
		Y3: Integer;
     X, Y: Integer;
	end;
  // Тип "окружность"
  TCircle = record
    X0: Integer;
    Y0: Integer;
    Rad: Integer;
  end;
var
  Form1: TForm1;

  SetT, SetC: Integer;      // Номер выбранного треугольника/окружности
 	KolTriangle, KolCircle: Integer;      // *Количество треугольников/ окружностей
	I,J: Integer;							// для циклов
	MouseX, MouseY: Integer;	// *Координаты мыши
	NewTriangle: array [1..6] of Integer;	// *Координаты треугольника через мышь
  CrP: array of TPoint;// Множество окружностей
  TrP: array of Point; // Множество треугольников

Вот кнопка и две процедуры , которые хранят в себе координаты точек

// Процедура сохранения точек всех окружностей
procedure DataCircles;
var
	X, Y, X1, Y1, X2, Y2, X3, Y3, X0, Y0, Rad: Integer;
  I, J, C: Integer;
begin
  with Form1.Image1.Canvas do
	begin
		Brush.Color := clWhite;
    Pen.Color := clWhite;
		Rectangle(0,0,Form1.Image1.Width,Form1.Image1.Height);
  end;
  Form1.Image1.Canvas.Pen.Color := clGreen;
  for I := 1 to Form1.ListBox1.Count do
		begin
			ExtractCircle(I,X0,Y0,Rad);// Процедура , которая считывает координаты окружности  из списка ListBox1
			CircleDraw(X0,Y0,Rad);// Процедура рисования окружности
		end;
  for I := 0 to Form1.Image1.Width - 1 do
    for J := 0 to Form1.Image1.Height - 1 do
      if Form1.Image1.Canvas.Pixels[I, J] = clGreen then
      begin
        SetLength(CrP, Length(CrP) + 1);
        CrP[C].X := I;
        CrP[C].Y := J;
        Inc(C);
      end;
  RedrawAll;// Процедура обновления изображений( рисует все треугольники и окружности из списков ListBox1 и ListBox2, в которых хранятся их координаты)
end;
// Процедура сохранения всех точек треугольника
procedure DataTriangle(NumTriangle: Integer);
var
	X1, Y1, X2, Y2, X3, Y3, X0, Y0, X, Y, Rad: Integer;
  I, J, T: Integer;
begin
  with Form1.Image1.Canvas do
	begin
		Brush.Color := clWhite;
    Pen.Color := clWhite;
		Rectangle(0,0,Form1.Image1.Width,Form1.Image1.Height);
  end;
  T := 0;
  SetLength(TrP, 0);
  Form1.Image1.Canvas.Pen.Color := clBlue;
  ExtractTriangle(NumTriangle,	X1, Y1, X2, Y2, X3, Y3);// Процедура , которая считывает координаты треугольника  из списка ListBox2
  TriangleDraw(	X1, Y1, X2, Y2, X3, Y3);// Процедура рисования треугольника
  for I := 0 to Form1.Image1.Width - 1 do
    for J := 0 to Form1.Image1.Height - 1 do
      if Form1.Image1.Canvas.Pixels[I, J] = clBlue then
      begin
        SetLength(TrP, Length(TrP) + 1);
        TrP[T].X:= I;
        TrP[T].Y := J;
        Inc(T);
      end;
  RedrawAll;Процедура обновления изображений( рисует все треугольники и окружности из списков ListBox1 и ListBox2, в которых хранятся их координаты)
end;
// *Кнопка нахождения€ треугольника
procedure TForm1.Button6Click(Sender: TObject);
var
  MaxI, Max, Kol: Integer;
  X1, Y1, X2, Y2, X3, Y3, X0, Y0, Rad: Integer;
  I, J, K, T, C, NumTriangle: Integer;
begin
  for I := 1 to Form1.ListBox2.Count do
		begin
      Kol:=0;
			NumTriangle := I;
      DataTriangle(NumTriangle);
      DataCircles;
      for J := 0 to  Form1.Image1.Height - 1 do
      begin
        for K := 0 to Form1.Image1.Width - 1  do
          if (TrP[K].X = CrP[K].X) and (TrP[J].Y = CrP[J].Y) then
            Inc(Kol);
      end;
      if Max < Kol then
        MaxI:= I;
		end;
  Form1.Image1.Canvas.Pen.Color := clRed;
  ExtractTriangle(MaxI,	X1, Y1, X2, Y2, X3, Y3);
  TriangleDraw(	X1, Y1, X2, Y2, X3, Y3);
end;

Я не очень разбираюсь в множествах, могли бы сказать, как правильно это записывать , в чем ошибки?(

[min@y™]

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

[zaira001002]

хотя бы тогда скажи) как записать следующее на языке программирования правильно ) : задаем массив A))) где будем хранить все зеленые точки на экране, конкретнее в компоненте Image1) , и задаем другой массив B ) в котором будем хранить другие точки) точки треугольника. Теперь вот нужно только правильно записать цикл) в котором будем искать) совпадения координат зеленых точек с точками моего треугольника) Забудем про то задание) Могли бы просто написать хотя бы вот это?)))) а то я не совсем правильно пишу(

[min@y™]

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

цикл поиска точки в массиве точек, штоль?

[zaira001002]

Да... И как задали вы эти массивы хранения координат точек тоже) если не трудно) то есть как обьявили вы их)

[min@y™]

И как задали вы эти массивы хранения координат точек тоже

// ну, для простоты, пусть так
// красивое решение, имхо.
type
  TPoints = array of TPoint;
  TCallback = function(const Index: Integer): Boolean;
  
function FindPoints(const pts: TPoints; const p: TPoint; OnFind: TCallback): Integer;
var
  Index: Integer;
begin
  Result:= 0;
  
  for Index:= 0 to Length(pts) - 1 do
    if pts[Index] = p
      then begin
             Inc(Result);

             if Assigned(OnFind) and not OnFind(Index)
               then Break;
           end;
end;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!

[zaira001002]

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

[min@y™]

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

разберись сначала, как это порно работает.