ims

//---------------------------------------------------------------------------#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();}//---------------------------------------------------------------------------