Matricos. Tyrimo ataskaita

1.1 Programos užduotis: L4-18. Duotas masyvas A(n m). Eilutę, kurios didžiausios ir mažiausios reikšmėssuma minimali pašalinti. Masyvą spausdinti prieš ir po veiksmų. 1.2 Programos aprašymas: • Formos schema: Meniu Memo1 • Formos pavyzdys, kai programa dar neįvykdyta: • TForm1 klasės aprašo failas: //--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include #include #include #include #include #include "Unit3.h" #include #include #include #include using namespace std; const int CEilSk = 50; //maximalus eiluciu skaicius matricoje const int CStuSk = 50; //maximalus stulpeliu skaicius matricoje const char *CRez = "Rez.txt"; //rezultatu failas //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TStringGrid *StringGrid1; // Programos rezultatams isvesti TButton *Button1; // Programos vykdymo mygtukas TButton *Button2; // Programos isjungimo mygtukas TListBox *ListBox1; // Programos rezultatams isvesti TOpenDialog *OpenDialog1; // Failo atidarymas TButton *Button3; // Mygtukas duomenu failo pasirinkimui TMemo *Memo1; // Infrmacinis langas TButton *Button4;// Mygtukas programos komponentams išvalyti. TMainMenu *MainMenu1; // Meniu langas TMenuItem *APIEPROGRAMA1; //Meniu lango mygtukas, informacijai apie programa išvesti. void __fastcall Button1Click(TObject *Sender); // Kviecia metodus // Atvaizdavimas(); // RastiMinMax(); // IrasytiIFaila(CRez); void __fastcall Button2Click(TObject *Sender); // Baigia programos darba void __fastcall Button3Click(TObject *Sender);// Mygtukas kuris vykdo komandas // Button1->Enabled = true; // Button4->Enabled = true; // Button2->Enabled = true; void __fastcall FormCreate(TObject *Sender); void __fastcall Button4Click(TObject *Sender); // Isvalo programos komponentus void __fastcall APIEPROGRAMA1Click(TObject *Sender);// Meniu mygtukas informacijai apie programa isvesti private: ifstream fd; ofstream fr; float RastiMinMax(); // Randa maximuma ir minimuma void Atvaizdavimas(); // Atvaizduoja matrica StringGrid1 lange void Salinti(int); // Metodas, kuris salina eilute kurios max ir min suma minimali void Ivesti(AnsiString); // Nuskaito matrica is duomenu failo void IrasytiIFaila(const char *); // Iraso matrica y duomenu faila AnsiString AtidarytiFaila(); // Metodas duomenu failui pasirinkti float A[CEilSk] [CStuSk]; // Duomenu matrica float suma, summin; // Sumos ir minimalios sumos kintamieji float max, min; // Maksimalios ir minimalios reiksmiu kintamieji int i, j; // eilutes ir stulpelio kintamieji int m, n, eil; // matricos kintamieji nusakytys formata [m x n] ir matricos eile AnsiString CDuom; // Kintamasis nurodantis failo varda public: __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif • Metodų aprašai: void __fastcall Button1Click(TObject *Sender); - kviečia metodus: Atvaizdavimas();RastiMinMax(); IrasytiIFaila(CRez); void __fastcall Button2Click(TObject *Sender); - uždaro programos langą. void __fastcall Button3Click(TObject *Sender); • mygtukas kuris vykdo komandas: Button1->Enabled = true; Button4->Enabled = true; Button2->Enabled = true void __fastcall Button4Click(TObject *Sender); -mygtukas programos komponentams išvalyti. void __fastcall APIEPROGRAMA1Click(TObject *Sender); • vykdo komanda AboutBox1->ShowModal(), kuri parodo informacija apie programą. void __fastcall FormCreate(TObject *Sender); • išvalo komponentą Memo1. • Funkcijų aprašai: float RastiMinMax(); Ši funkcija suranda didžiausios ir mažiausios reikšmės sumą eilutėse. Fiksuoja eilutę, kurioje suma mažiausia. Pradžia RastiMinMax() Realieji summin = 99999; max = 0; min = 99999; i = 0; i max) N/ max = A[i][j]; \T jei (A[i][j] #pragma hdrstop #include "Unit1.h" //------------------------------------------------------------------------------ #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //------------------------------------------------------------------------------ __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //---------------------------Isvalo programos komponentus----------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { Memo1->Clear(); Button1->Enabled = false; Button4->Enabled = false; } //-------------------------Vykdo metodus:--------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Ivesti(CDuom); Atvaizdavimas(); RastiMinMax(); IrasytiIFaila(CRez); ListBox1->Items->LoadFromFile(CRez); } //-------Mygtukas kuris vykdo funkcijas ir kviecia metoda AtidarytiFaila();----- void __fastcall TForm1::Button3Click(TObject *Sender) { CDuom = AtidarytiFaila(); Button1->Enabled = true; Button4->Enabled = true; Button2->Enabled = true; } //--------------------Nuskaito matrica is duomenu failo------------------------- void TForm1::Ivesti(AnsiString Df) { fd.open(Df.c_str()); fd >> n >> m; for (int i = 0; i > A[i] [j]; fd.close(); } //---Suranda maksimuma ir minimuma, tikrina kurioje eiluteje ju suma maziausia-- float TForm1::RastiMinMax() { summin = 99999; max = 0; min = 99999; for (int i = 0; i max) max = A[i][j]; else if (A[i][j] Lines->Add("DUOMENU FAILAS:"); Memo1->Lines->Add(CDuom); fr ColCount =m+1; StringGrid1->RowCount =n+1; for (int j = 0; j Cells[j+1][0] = "Stulp " + IntToStr (j); for ( int i = 0; i Cells[0][i+1] = "Eil " + IntToStr (i); for (int i = 0; i Cells[j+1][i+1] = FloatToStrF (A[i][j], ffFixed, 6, 2); } //-----------------------------Suraso duomenis y duomenu faila------------------ void TForm1::IrasytiIFaila(const char *Rf) { fr.open (Rf); fr Filter = "(*.txt)|*.txt"; OpenDialog1->Execute(); return OpenDialog1->FileName; } //----------------------Isvalo programos komponentus --------------------------- void __fastcall TForm1::Button4Click(TObject *Sender) { Memo1->Clear(); ListBox1->Items->Clear(); } //--------------Meniu mygtukas parodantis informacija apie programa------------- void __fastcall TForm1::APIEPROGRAMA1Click(TObject *Sender) { AboutBox1->ShowModal(); } //-----------------------Baigia programos darba--------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) { Close(); } //------------------------------------------------------------------------------ 1.4 Programos testavimo rezultatai Pradinis duomenų failas „Duom.txt“: 10 7 8 -50 4 5 -1 -101 6 8 5 50 -203 11 2 78 2 7 5 101 Rezultatų failas „Rez.txt“: MATRICA A: 0 1 2 3 ------------------------------- 0 | 10 7 8 -50 | 1 | 4 5 -1 -101 | 2 | 6 8 5 50 | 3 | -203 11 2 78 | 4 | 2 7 5 101 | ------------------------------- MINIMALI SUMA YRA : -125 JI YRA 3 EILUTEJE MATRICA A PO PAKEITIMU: 0 1 2 3 ------------------------------- 0 | 10 7 8 -50 | 1 | 4 5 -1 -101 | 2 | 6 8 5 50 | 3 | 2 7 5 101 | -------------------------------

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!