All pastes #26941 Raw Edit

Unnamed

public text v1 · immutable
#26941 ·published 2005-10-28 17:22 UTC
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