Лабораторные работы / Генератор точек / Main

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

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

#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
    
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnGenClick(TObject *Sender)
{
    FILE *fl;
    fl = fopen("inpt.txt","wt");
    double N=StrToFloat(edtAmnt->Text);
    double R;
    double xN=StrToFloat(edtMaxX->Text);
    double xK=StrToFloat(edtMinX->Text);
    double yK=StrToFloat(edtMinY->Text);
    double yN=StrToFloat(edtMaxY->Text);
    double E=1000;//Точность..не забыть...
    double X,Y;

    if(chkSin->Checked)
    {
        R=xN-xK;
	    R=R/N;
        fprintf(fl,"%G\n",N);
	    randomize();
        X=xK;
        for(int i=0;i<=N;i++)
        {
            fprintf(fl,"%G   ",X);
            fprintf(fl,"%G",sin(X));
            fprintf(fl,"\n");
            Series1->AddXY(X,sin(X),"",clGreen);
            X=X+R;
        }
    }
    else
    {
        R=xN-xK;
	    R=R/N;
        fprintf(fl,"%G\n",N);
	    randomize();
        X=xK;
        for(int i=0;i<=N;i++)
        {
            fprintf(fl,"%G   ",X);
            Y=((random(yN-yK)+yK)*E+random(E+1))/E;
            fprintf(fl,"%G",Y);
            fprintf(fl,"\n");
            Series1->AddXY(X,Y,"",clGreen);
            X=X+R;
        }

    }
    fclose(fl);


}
//---------------------------------------------------------------------------