Something

Unit1.cpp://---------------------------------------------------------------------------// koordinaciu plokstumoje yra daug trikampiu, kuriu virsuniu tasku koordinates (x,y) zinomos. Surasti didziausio ploto statu trikampi ir jo virsuniu atstumus iki koordinaciu pradzios tasko. padaryti ir naudoti funkcija, kuri skaiciuoja atstuma tarp dvieju duotu tasku. spausdinti duomenis ir skaiciavimo rezultatus//---------------------#include <vcl.h>#pragma hdrstop#include <fstream>using namespace std;#include "Unit1.h"//---------------------------------------------------------------------------#pragma package(smart_init)#pragma resource "*.dfm"TForm1 *Form1;//---------------------------------------------------------------------------__fastcall TForm1::TForm1(TComponent* Owner)        : TForm(Owner){}void TForm1::Ivesti(const char fv[], int A[], int B[], int &n){ n = 0;             //indeksui suteikiama pradine reiksme ifstream fd(fv);   //atidaromas failas duomenu ivedimui Memo1->Lines->Clear();   //lauk Memo2->Lines->Clear();   //lauk while ( !fd.eof() &&  n < mas  ) {  //kol ne failo pabaiga, vykdomas ciklas  fd>>A[n]>>B[n];                   //vedamos reiksmes i masyvus  Memo1->Lines->Add(A[n]);          //istr  Memo2->Lines->Add(B[n]);         //istr  if (!fd.fail()) n++;             //jei ivesta sekmingai, indeksas padidinamas  }  fd.close();                     //uzdaromas ivedimo failas}//-----------------------------------------------------void __fastcall TForm1::Button1Click(TObject *Sender){Ivesti(Duom, X, Y, a);}//---------------------------------------------------------------------------void TForm1::Skaiciuoti(Double D[]) { int t1 = 0;   int t2 = 0;   int t3 = 0;   int l = 0; for (int i = 0; i < a; i++)    for (int j = 0; j < a; j++)      for (int k = 0; k < a; k++) {        abs(t1 = pow(pow(X[j] - X[i], 2.0) + pow(Y[j] - Y[i],2.0), 0.5));        abs(t2 = sqrt( pow(X[k] - X[j],2) + pow(Y[k] - Y[j],2)));        abs(t3 = sqrt( pow(X[i] - X[k],2) + pow(Y[i] - Y[k],2)));        if ( (t1*t1 + t2*t2 == t3*t3) && (t3 != 0 )  ) {          T[l] = t1 * t2 / 2;          l++;          }        else if ( (t1*t1 + t3*t3 == t2*t2) && (t2 != 0 ) ) {          T[l] = t1 * t3 / 2;          l++;          }         else if ( (t2*t2 + t3*t3 == t1*t1) && (t1 != 0 )  )  {          T[l] = t2 * t3 / 2;          l++;          }  }          Memo1->Lines->Clear();          for (int i = 0; i < a; i++)          Memo1->Lines->Add(T[i]);            }void __fastcall TForm1::Button2Click(TObject *Sender){Skaiciuoti(T);}//---------------------------------------------------------------------------Uint1.h://---------------------------------------------------------------------------#ifndef Unit1H#define Unit1H//---------------------------------------------------------------------------#include <Classes.hpp>#include <Controls.hpp>#include <StdCtrls.hpp>#include <Forms.hpp>const int mas = 100;      //const char *Duom = "Duom.txt";         //aprasomas duomenu failo pavadinimasconst char *Rez = "Rez.txt";           //aprasomas rezultatu failo pavadinimas//---------------------------------------------------------------------------class TForm1 : public TForm{__published:	// IDE-managed Components        TButton *Button1;        TMemo *Memo1;        TMemo *Memo2;        TButton *Button2;        void __fastcall Button1Click(TObject *Sender);        void __fastcall Button2Click(TObject *Sender);private:	// User declarations int  X[mas],             //aprasomi koordinaciu      Y[mas],             //masyvai      x, y, a, b;      double      T[mas];             //masyvas laikinoms reiksmems      void Ivesti(const char fv[], int A[], int B[],int &n);      void Skaiciuoti(double D[]);       public:		// User declarations        __fastcall TForm1(TComponent* Owner);};//---------------------------------------------------------------------------extern PACKAGE TForm1 *Form1;//---------------------------------------------------------------------------#endif