#include <vcl.h>
#include <math.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 ;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::FormResize(TObject *Sender)
{
TRect ret=Rect(0,0,ClientWidth,ClientHeight);
Canvas->FillRect(ret);}
 float f(float x)
 {return 2*sin(x)*exp(x/5);
 }



//---------------------------------------------------------------------------
void __fastcall TForm1::FormPaint(TObject *Sender)
{
Grafik();
}
//---------------------------------------------------------------------------
void TForm1::Grafik()
{
float x1,x2;
float y1,y2;
float y;
float dx;
int 1,b;
int w,h;
float mx,my;
int x0,y0;
1-10;
b=Form1->  ClientHeight-20;
h=Form1->  ClientHeight-40;
w=Form1->  Width-20;
x1=20;
x2=25;
x=x1;
y1=f(x);
y2=f(x);
do
{y=f(x);
if (y<y1)y1=y;
if (y>y2) y2=y;
x+=dx;}
while (x<=x2);
my=(float)h/abs(y2-y);
mx=w/abs(x2-x1);
x0=1+abs(x1*mx);
y0=b-abs(y1*my);
Canvas->MoveTo(x0,b);
Canvas->LineTo(x0,b-h);
Canvas->MoveTo(1,y0);
Canvas->LineTo(1+w,y0);
Canvas->TextOutA(x0+5,b-h,FloatToStrF(y2,ffGeneral.6,3);
Canvas->TextOutA(x0+5,b,FloatToStrF(y1,ffGeneral.6,3);
x=x1;
do {y=f(x);
Canvas->Pixels[x0+x*mx] [y0-y*my]=clRed
x+=dx;
while (x<-x2);
}