Закрасить точки внутри треугольника

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#pragma argsused
#include <iostream.h>
#include <conio.h>
#include <stdio.h>
#include <string.h>
 
#include <windows.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
 float A[100][2];
 float Avr[100][2];
 float Av[100][2];
 int n=10;
 float S;
 float  x1, x2, x3, y1, y2, y3, xa, xb,xc;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//PB1->Canvas->Ellipse(60,63,63,60); // Точка
PB1->Canvas->MoveTo(250,0);
PB1->Canvas->LineTo(250,500);
PB1->Canvas->MoveTo(0,250);
PB1->Canvas->LineTo(500,250);
//вывод точек
for(int i=0;i<10;i++)
{
int f=(A[i][0])*25;
int d=(A[i][1])*25;
PB1->Canvas->Pen->Width=3;
PB1->Canvas->Pen->Color=clBlue;
PB1->Canvas->MoveTo((250+f),(250-d));
PB1->Canvas->LineTo((250+f),(250-d));
}
 
//треугольник
int y=StrToInt(Edit1->Text)*25;
int u=StrToInt(Edit2->Text)*25;
int y1=StrToInt(Edit3->Text)*25;
int u1=StrToInt(Edit4->Text)*25;
int y2=StrToInt(Edit5->Text)*25;
int u2=StrToInt(Edit6->Text)*25;
PB1->Canvas->Pen->Width=1;
PB1->Canvas->Pen->Color=clRed;
PB1->Canvas->MoveTo(250+y,250-u);
PB1->Canvas->LineTo((250+y1),(250-u1));
PB1->Canvas->LineTo((250+y2),(250-u2));
PB1->Canvas->LineTo(250+y,250-u);
}
 
 
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for (int i = 0; i < n; i++)
for (int j = 0; j <= 1; j++)
  {
   A[i][j]=StrToInt(StringGrid1->Cells[j][i]);
  }
//----------------------------------------------------------
 
  float So=0, s1, s2, s3, p, p1, p2, p3, k, a, b, c, d, l, f,bl,bll;
  int r=(n-3);
  S=0;
  int v=0, w=0;
 
//----------------------------------------------------------
 
  for (int i=0; i<n-2; i++)
   for (int j=i+1; j<n-1; j++)
    for (int k=j+1; k<n; k++)
   {
        float v=0;
        float w=0;
        {
           a=sqrt(pow((A[i][0]-A[j][0]),2)+pow((A[i][1]-A[j][1]),2));
           b=sqrt(pow((A[j][0]-A[k][0]),2)+pow((A[j][1]-A[k][1]),2));
           c=sqrt(pow((A[k][0]-A[i][0]),2)+pow((A[k][1]-A[i][1]),2));
 
           p=((a+b+c)/2);
           S=sqrt(p*(p-a)*(p-b)*(p-c));
 
 
           for (int z=0; z<n; z++)
            {
             if((z!=i)&&(z!=j)&&(z!=k))
             {
 
               d=sqrt(pow((A[i][0]-A[z][0]),2)+pow((A[i][1]-A[z][1]),2));
               l=sqrt(pow((A[j][0]-A[z][0]),2)+pow((A[j][1]-A[z][1]),2));
               f=sqrt(pow((A[k][0]-A[z][0]),2)+pow((A[k][1]-A[z][1]),2));
 
               p1=((a+l+d)/2);
               s1=sqrt(p1*(p1-a)*(p1-l)*(p1-d));
 
               p2=((b+l+f)/2);
               s2=sqrt(p2*(p2-b)*(p2-l)*(p2-f));
 
               p3=((c+d+f)/2);
               s3=sqrt(p3*(p3-c)*(p3-d)*(p3-f));
 
               So=s1+s2+s3;
 
               if (abs(S-So) == 0)
               v++;
               else
               w++;
               }
             }
 
            float h=abs(v-w);
             if(h<r)
              { r=h;
                bl=v;
                bll=w;
                x1=A[i][0]; y1=A[i][1];
                x2=A[j][0]; y2=A[j][1];
                x3=A[k][0]; y3=A[k][1];
                xa=a;
                xb=b;
                xc=c;
              }
              }
 
        }
 
  Edit1->Text=StrToInt(x1) ; Edit2->Text=StrToInt(y1);
  Edit3->Text=StrToInt(x2) ; Edit4->Text=StrToInt(y2) ;
  Edit5->Text=StrToInt(x3) ; Edit6->Text=StrToInt(y3) ;
   }
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button4Click(TObject *Sender)
{
 srand(time(NULL));
 for(int i=0; i<n; i++)
  {for(int j=0; j<2; j++)
    {
    A[i][j] =  ((rand() % 20-10));;
    }
  }
 for (int i = 0; i < n; i++)
  {
   StringGrid1->Cells[0][i]=StrToInt(A[i][0]);
   StringGrid1->Cells[1][i]=StrToInt(A[i][1]);
  }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
MessageBox(0, "Выбрать три различные точки из заданного множества точек на плоскости так, чтобы была минимальной разность между количествами точек, лежащих внутри и вне треугольника с вершинами в выбранных точках.", "Задача",MB_OK );
}
//---------------------------------------------------------------------------