rendered paste body//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
const int CKiek = 30; //elementu kiekis masyve
const char *CDuom = "duomenys.txt"; //duomenu failo vardas
//const char *CRez = "rez.txt"; //rezultato failo vardas
const char *DDuom = "duomenys2.txt";
const char CRfv[] = "Rezultatai.txt"; //Rezultatu failas
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE-managed Components
TMemo *Memo1; //rezultatu langas
TButton *Button1;
TButton *Button2;
TButton *Button3;
TButton *Button4;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall Button3Click(TObject *Sender);
void __fastcall Button4Click(TObject *Sender);
private: // User declarations
int A[CKiek], B[CKiek],
n, //masyvo A elementu kiekis
z, //masyvo B elementu kiekis
k,
max1,
max1v,
max2,
max2v;
bool Duomenys(); //tikrina ar masyvai ivesti
bool Ivedimas( const char * failoVardas, int A[], int &k); //iveda
void Skaityti(); //nuskaito duomenys is failo
void RastiMax1(); //randa maksimale reiksme
void RastiMax2(); //randa maksimale reiksme
void Saugoti1( int A[], int n, char * masv); //saugo rezultatus i faila
void Parodyti1(); //parodo rezultatus ekrane
void RastiSum(); //Randa suma
void Parodyti2(); //parodo rezultatus ekrane
//masyva
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif