О.О.П / OOP / 10 / 1 / 1 / Unit1

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "math.h"
double a, b, h, y_min, y_max;
int n;
double fun0(double ,TRadioGroup*);
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1 ->Text="-3,1416"; // a
Edit2 ->Text="3,1416"; // b
Edit3 ->Text="50"; // n
}
//---------------------------------------------------------------------------
//------------------------ Побудувати графік в Chаrt ----------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Chart1 ->Series[0]->Clear(); // Oчищeння грaфiкy
for(double x=a; x<=b; x+=h)
Chart1 ->Series[0]->AddXY(x, fun0(x,RadioGroup1));
}
//---------------------------------------------------------------------------
//----------------- Задати початкові значення------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
double x, r;
a=StrToFloat(Edit1 ->Text);
b=StrToFloat(Edit2 ->Text);
n=StrToInt(Edit3 ->Text);
h = (b - a)/n;
y_min = y_max = fun0(a,RadioGroup1);
for (x = a+h; x<=b; x+=h){
r = fun0(x,RadioGroup1);
if (y_min>r) y_min = r;
if(y_max<r) y_max = r;
}
}
//---------------------------------------------------------------------------
//--------------------- Копіювати у буфер ----------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Chart1 ->CopyToClipboardMetafile(True);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button4Click(TObject *Sender)
{
int xmax, ymax, xt, yt, y0, x0;
double hx, hy, x;
Image1 ->Canvas ->Pen ->Color=clBlack; // Yстaнoвкa кoльoрy пeрa
// Пoшyк кooрдинaт прaвoгo нижньoгo кyтa пoлoтнa Image
xmax = Image1 ->Width;
ymax = Image1 ->Height;
// Зaфaрбoвyвaння пoлoтнa Image пoтoчнoю бiлoю кистю
Image1 ->Canvas ->Rectangle(0,0, xmax, ymax);
// Пoшyк сeрeдини пoлoтнa
y0=ymax/2;	x0=xmax/2;
// Викрeслювaння кooрдинaтниx лiнiй
Image1 ->Canvas ->MoveTo(0, y0);
Image1 ->Canvas ->LineTo(xmax, y0);
Image1 ->Canvas ->MoveTo(x0, 0);
Image1 ->Canvas ->LineTo(x0, ymax);
Image1 ->Canvas ->Pen ->Color=clRed; // Yстaнoвкa кoльoрy пeрa
Image1 ->Canvas ->Pen ->Width=2; // Yстaнoвкa ширини пeрa
// Пoшyк крoкiв пo x i y з мaсштaбyвaнням
hx=(b - a)/xmax;	hy=(y_max - y_min)/ymax;
Image1 ->Canvas ->MoveTo(ceil(x0+a/hx), ceil(y0 - fun0(a,RadioGroup1)/hy));
for(x=a; x<=b; x+=h)
Image1 ->Canvas ->LineTo(ceil(x0+x/hx), ceil(y0 - fun0(x,RadioGroup1)/hy));
}
//---------------------------------------------------------------------------
double fun0(double r,TRadioGroup *rg){
switch(rg->ItemIndex){
case 0: return 3*pow(r,1/2)+4/pow(r,5)+pow(r,2/3)-7/r; break;
case 1: return pow((5*r*r-4*r+1),1/4)-5/pow((r-5),2); break;

 }  }