Построение графика в программе C++ Builder 6

#include <iostream> 
#include <stdio.h>  
float x[6] = {1.5, 1.54, 1.56, 1.60,1.63, 1.70}; 
float y[6] = {3.873,3.924,3.950,4.00,4.037,4.123}; 
 
float L(float xp,int n,int i) 
{ 
 
float Chesl; 
float Znam; 
 
Chesl = 1; Znam = 1; 
 
int k; 
 
for (k = 0; k!= n; k++ ) 
{ 
 
if ( k == i ) continue; 
 
Chesl *= xp - x[k]; 
} 
 
for(k= 0; k!= n;k++) 
{ 
 
if (x[i] == x[k]) continue; 
 
 
Znam *= x[i] - x[k]; 
} 
 
 
return Chesl/Znam; 
 
} 
int main(int argc, char* argv[]) 
{ 
 
 
int n = sizeof(y)/sizeof(float); 
 
float R = 0; 
 
 
float px = 1.55; 
 
 
for (int i = 0; i != n; i++) { 
 
R += y[i]*L(px,n,i); 
} 
 
printf("Результат : %f ",R); 
 
// вывод результата 
return 0; 
}

  int cnt=sizeof(y)/sizeof(float);
  float ScaleX=500;
  float ScaleY=100;
  for(int i=0; i<cnt; i++)
  {
    float px=x[i]*ScaleX;
    float py=y[i]*ScaleY;
    if(i)
      Canvas->LineTo(px, py);
    else
      Canvas->MoveTo(px, py);
    Canvas->Ellipse(px-2, py-2, px+3, py+3);
  }

//---------------------------------------------------------------------------
#include <vcl.h>
#include <iostream>
#include <stdio.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//+++++++++++++++++++++++++++++++++++++++++++++++++++++
//Íàðèñîâàòü êðèâóþ Áåçüå
//R(t) = P0*(1-t)^3 + P1 * t * (1-t)^2 + P2 * t^2 * (1-t) + P3 * t^3 ,
//     ãäå 0<=t<=1
//P0,P2 - îïîðíûå òî÷èê
//P1,P3 -  óïðàâëÿþùèå òî÷êè
void DrawBezier(TImage *Image,int x0,int y0,int x,int y,int x1,int y1,int Count)
{
TPoint points[900];  //Ìàññèâ òî÷åê äëÿ ïîëèãîíà
//Extended - long double
Extended Step = 1.0/Extended(x1-x0);  //Øàã èçìåíåíèÿ ïàðàìåòðà t
Count = 0;
 
for(int i = x0; i < x1 && i-x0 < 900; i++)
{
Extended t = Extended(i-x0)*Step; //Î÷åðåäíîå çíà÷åíèå ïàðàìåòðà t
//Ñîáñòâåííî ðàñ÷åò êîîðäèíàò î÷åðåäíîé òî÷êè äëÿ 2D
//Ýòî ñ÷èòàþòñÿ êîýôôèöèåíòû q1,q2,q3,q4
Extended q1 = t*t*t*-1 + t*t*3 + t*(-3) + 1;
Extended q2 = t*t*t*3 + t*t*(-6) + t*3;
Extended q3 = t*t*t*(-3) + t*t*3;
Extended q4 = t*t*t;
//Çäåñü ïîäñòàâëÿþòñÿ êîîðäèíàòû îïîðíûõ òî÷åê
Extended qx = q1*x0 + q2*x + q3*x + q4*x1;
 
//äëÿ q2 è q3 îäèíàêîâûå x,y, ýòî äëÿ ñîâìåùåíèÿ äâóõ ñðåäíèõ òî÷åê
Extended qy = q1*y0 + q2*y + q3*y + q4*y1;
points[i-x0].x = qx ;
points[i-x0].y = qy ;
//Æèâîé ïîäñò÷åò êîëè÷åñòâà òî÷åê â ïîëèãîíå
//(íåêîòîðûå ìîãóò âû÷èñëèòü åãî äî öèêëà)
Count++;
}
 
//Î÷èñòêà ïëîùàäè äëÿ ðèñîâàíèÿ
Image->Canvas->Brush->Color= clWhite ;
Image->Canvas->FillRect(Rect(0,0,Image->Width,Image->Height));
Image->Canvas->Brush->Color= clRed ;
Image->Canvas->Pen->Color= clBlack ;
//Çàìûêàåì ïîëèãîí
points[Count].x = points[0].x ;
points[Count].y = points[0].y ;
Polyline(Image->Canvas->Handle,points,Count+1);
//È ÂÎÒ ÎÍÀ ÊÐÈÂÀß ÁÅÇÜÅ, ÊÐÀÑÍÀß ÒÀÊÀß
//à çàîäíî è ïðîâåðêà ïîïàäàíèÿ x, y â åå òåëî
 
HRGN Rgn;
//Ñîçäàòü ðåãèîí èç òî÷åê
if((Rgn = CreatePolygonRgn(points, Count, WINDING))!=NULL)
{
//Ïðîâåðèòü ïîïàäèíèå òî÷êè â ðåãèîí
if(PtInRegion(Rgn,x,y))
  Form1->Label1->Caption= "Ìûøêà â íîðêå.";
 
else
  Form1->Label1->Caption= "";
PaintRgn(Image->Canvas->Handle,Rgn);   //Îòîáðàçèòü ðåãèîí
DeleteObject(Rgn);  //Óäàëèòü ðåãèîí
}
//Íàðèñîâàòü 2 ïðÿìûå èç êðàéíèõ òî÷åê â òî÷êó x,y äëÿ ýôôåêòà
Image->Canvas->Pen->Color = clRed;
Image->Canvas->MoveTo(x0,y0);
Image->Canvas->LineTo(x,y);
Image->Canvas->Pen->Color = clBlue;
Image->Canvas->MoveTo(x1,y1);
Image->Canvas->LineTo(x,y);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
//void DrawBezier(TImage *Image,int x0,int y0,int x,int y,int x1,int y1,int Count)
DrawBezier(Image1, 100, 200, 200, 100, 300, 200, 4);
Timer1->Enabled = false;
}
//---------------------------------------------------------------------------