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

#include <vcl.h>
#pragma hdrstop

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

void TForm1::SkaiciuotiFj(const char *Crf) {
ofstream fr(Crf);
if(Edit1->Text.Length() || Edit2->Text.Length() || Edit3->Text.Length() || Edit4->Text.Length() != 0){
  a = StrToFloat(Edit1->Text);   //a pradine reikme bus priskirta x kintamajam
  b = StrToFloat(Edit2->Text);  //kintamasis iki kurio kis intervalas
  hx = StrToFloat(Edit3->Text); //zingsnis intervalo
  z = StrToFloat(Edit4->Text);  // kintamasis
  x = a;    //x kintamajam priskiriam pradine reiksme a
  while(x <= b){
   double q;
   q = (x * x * x) + (2 * x) + z; //tarpinis kintamasis suskaiciuoti vardiklio reiksme kad nebutu klaidos x/0
   if(q == 0)
     ShowMessage("Kritine klaida, is nulio dalyba negalima! Bandykite dar karta.");
   else {
     y = ((x*x*x) + (2*x) + (3*x) + 4) / q;
     fr << setw(6) << setprecision(4) << x << "   " << y << endl;
     x += hx;
     //Label5->Canvas->LineTo(x,y);
     Image1->Canvas->LineTo(0,20);
     Image1->Canvas->LineTo(20,0);

        }
  }
}
 else ShowMessage("Prasome uzpildyti visus laukus!!!");
fr.close();
}
//------------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SkaiciuotiFj(Crfv);
Memo1->Lines->LoadFromFile("rezultatai.txt");
}
//---------------------------------------------------------------------------

void TForm1::Spausdinti(){


}
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Memo1->Clear();
}
//---------------------------------------------------------------------------