Dvimačio masyvo ataskaita

2. Laboratorinio darbo Lr. 4 ataskaita Dvimatis masyvas 2.1. Programos užduotis L3-6. Duotas masyvas A(n, m). Masyvo viduryje įterpti eilutę, kur surašyti kiekvieno stulpelio didžiausias reikšmes. Spausdinti pradinę ir po pertvarkymų matricas lentelėmis, užrašant eilučių ir stulpelių numerius. 2.2 Programos aprašymas • Formos schema: • Komponentų paskirtis: Vardas Paskirtis StringGrid1 Pradiniai matricai išvesti. Parodyti duomenims. StringGrid2 Rezultatams išvesti, atlikus skaičiavimus. Label1 – Label2 Programos paaiškinimų langai. Button1 Duomenų Įvedimo mygtukas Button2 Mygtukas, kurį paspaudus atliekami skaičiavimai. Button3 Mygtukas, kurį paspaudus rezultatai surašomi į tekstinį failą. Button4 Mygtukas, programos pabaigai. Button5 Mygtukas, kuris išvalo Memo1 langą. Memo1 Rezultatams parodyti. Pastaba: Tuščias reikšmės langelis reiškia tuščią simbolių eilutę. • Objektų inspektoriuje keičiamos komponentų savybių reikšmės: Vardas Keičiama savybė Reikšmė Form1 Caption Dvimatis masyvas L3-6 StringGrid1 Cells StringGrid2 Cells Label1 Caption Pradinė matrica Label2 Caption Matrica po pakeitimo Button1 Caption Įvesti Button2 Caption Skaičiuoti Enabled false Button3 Caption Saugoti Button4 Caption Pabaiga Button5 Caption Valyti Memo1 Items • Formos pavyzdys kai duomenų faile nėra nė vieno skaičiaus • Programos komponentai reaguoja į šiuos įvykius Komponentas Įvykis Vykdomas Metodas Button1 OnClick Button1Click Button2 OnClick Button2Click Button3 OnClick Button3Click Button4 OnClick Button4Click Button5 OnClick Button5Click Form1 OnCreate FormCreate • Konstantos: const int Eilutes = 10; Ši konstanta skirta saugoti maksimaliam matricos eilučių skaičiui. const int Stulpeliai = 10; Ši konstanta skirta saugoti maksimaliam matricos stulpelių skaičiui. const char * RFv = "Rezultatai.txt"; Ši konstanta skirta saugoti matricos rezultatams. • TForm1 klasės aprašo failas: /--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include #include #include #include #include #include #include const int Eilutes = 10; // maksimalus eilučių kiekis const int Stulpeliai = 10; // maksimalus stulpelių skaičius const char * RFv = "Rezultatai.txt"; // rezultatų failas class TForm1 : public TForm { __published: // IDE-managed Components TStringGrid *StringGrid1; // Pradiniai matricai parodyti TStringGrid *StringGrid2; // Pakeistai matricai TButton *Button1; // Mygtukas Įvesti TButton *Button2; // Mygtukas Skaičiuoti TButton *Button3; // Mygtukas Saugoti TButton *Button4; // Mygtukas Baigti TButton *Button5; // Mygtukas Valyti (Memo1 langą) TLabel *Label1; // Užrašas Pradine matrica TLabel *Label2; // Užrašas Pakeista matrica TMemo *Memo1; TOpenDialog *OpenDialog1; // Atidaryti bet kokiems tekstiniams failams void __fastcall Button1Click(TObject *Sender); void __fastcall Button2Click(TObject *Sender); void __fastcall Button4Click(TObject *Sender); void __fastcall Button5Click(TObject *Sender); void __fastcall Button3Click(TObject *Sender); void __fastcall FormCreate(TObject *Sender); private: // User declarations int A[Eilutes][Stulpeliai]; int B[Eilutes]; // Maksimaliom reikšmėm įterpti į masyvą int n, // Eilučių skaičius m, // Stulpeliu Skaičius k; // Matricos eilučių viduriui FILE *f, *R; TStringGrid * g; // rodyklės tipo kintamasis atskiroms reikšmėms AnsiString fvardas; // failo vardui AnsiString failas(); // metodas gražinti duomenų failo vardui void Ivedimas(); // Patikrina, ar nurodytas failas yra pažymėtas, ir perskaito iš tekstinio failo // sukelia duomenis į masyvą; // A. - Reikšmių masyvas // ->n. - Matricos elementų eilučių kiekis // ->m. - Matricos elementų stulpelių kiekis void Spausdinimas(char *pav); // Matricos spausdinimui į failą “rezultatai.txt” lentelėmis // ->A. - Reikšmių masyvas // ->n. - Matricos elementų eilučių kiekis // ->m. - Matricos elementų stulpelių kiekis // ->B[j] – Įterpiama nauja eilutę // ->max – Matricos kiekvieno stulpelio maksimalią reikšmę surašo į naujai įterptą eilutę int StulpelioMax(int j); // Stulpelio maksimalių reikšmių radimui void Isvedimas(int i); // Surašo stulpelių maksimumus į įterptą eilutę int EilutesIterpimas(int j); // paruošiama vieta, tada įterpiama tuščia eilutė public: // User declarations __fastcall TForm1(TComponent* Owner); // Tuščio rezultatų failo sukūrimui }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif • Metodų aprašai TForm1::FormActivate(TObject *Sender) // Sukuria failą tik rašymui ir uždaro Pradžia: Forma Atidaryti failą “rezultatai.txt” tik rašymui Uždaryti failą “rezultatai.txt” Pabaiga. Forma TForm1::Button1Click(TObject *Sender) // kviečia metodus Ivedimas(), PradinisAtvaizdavimas(). Spausdina atliktų veiksmų pranešimus Memo1 lange. Pradžia: Button1Click fvardas = failas(); T/ (fvardas == "") /N Rodyti pranešimą (" Failas nerastas ! ") Ivedimas(); g = StringGrid1; SpausdStringGrid(); Memo1 lange spausdinti atliktus veiksmus Pabaiga. Button1Click TForm1::Button2Click(TObject *Sender) // kviečia metodą Spausdinimas(), StulpelioMax(), EilutesIterpimas(), SpausdStringGridSpausdSpa(). Surašo maksimalias stulpelio reikšmes į įterptą eilutę. Atspausdina pradinę matricą faile “rezultatai.txt”. Atliktų veiksmų sąrašas atspausdinamas Memo1 lange. TForm1::Button3Click(TObject *Sender) // kviečia metodą Spausdinimas(); ir atspausdina pakeistą matricą. Pradžia: Button3Click Spausdinimas(“Pakeista matrica”); Pabaiga. Button3Click TForm1::Button4Click(TObject *Sender) // Programos pabaiga. TForm1::Button5Click(TObject *Sender) // Išvalo Memo1 langą. • Funkcijų aprašai void Ivedimas(); Skaitymo pradžioje int i, j; Patikrina ar failas yra ištirtas. Jei neištirtas, pranešama, kad (“Failas nerastas ”). Kitu atveju pasirodo OpenDialog1 langas ir parenkamas failas. Iš failo nuskaitomi eilutės ir stulpeliai į matricą A(n, m). Pradžia void Ivedimas(); Sveikieji i = 0; Realieji j = 0, n = 0, m = 0, A[i][j]; T \ Jeigu failas neištirtas / N Rodyti pranešimą (“Failas nerastas”) Atidaryti failą tik skaitymui Nuskaityti n, m (stulpelių ir eilučių skaičių) I = 0, n-1 J = 0; m-1 Nuskaityti iš failo į masyvą A[i][j] Pabaiga. void Ivedimas(); void TForm1::Spausdinimas() int i = 0; int j = 0; Ši funkcija pavaizduoja pradinį globalųjį masyvą A komponentėje ListBox1. Pradžia void Spausdinimas(); Atidaryti failą “rezultatai.txt” papildymui i = 0, n-1 j = 0, m-1 Spausdinti į failą A[i][j] Pabaiga. void Spausdinimas(); void TForm1::SpausdStringGrid() int i=0, j = 0, A[i][j]; Parodo pradinius matricos duomenis StringGrid’e. Sunumeruoja eilutes ir stulpelius ir užpildo duomenimis. Pradžia void SpausdStringGrid(); Prie eilutės ir stulpelio pridėti kas kart po 1 j = 0, m-1 Cells[j+1][0] = " Stulp " + IntToStr(j) i = 0, n-1 Cells[0][i+1] = " Eil " + IntToStr(i) i = 0, n-1 j = 0, m-1 Cells[j+1][i+1] = IntToStr(A[i][j]) Pabaiga. void PradinisAtvaizdavimas(); int TForm1::StulpelioMax(int j) int max = 0; int i = 0, j = 0; Ši funkcija kiekviename stulpelyje suranda maksimumą. Pradžia int StulpelioMax(int j) max = 0; i = 0, n – 1 Jeigu A[i][j] > max, tai max = A[i][j] Gražinti max Pabaiga. int StulpelioMax(int j) int TForm1::EilutesIterpimas(int j) int i, k; k = n/2; int i = 0, j = 0; Ši funkcija įterpia naują eilutę vidury matricos Pradžia int EilutesIterpimas(int j) k = n/2; j = 0, m-1 i = n-1, k, (-1) A[i+1][j] = A[i][j] j = 0, m-1 A[k][j] = B[j] n = n + 1; Pabaiga. int EilutesIterpimas(int j) • Metodų aprašai TForm1::FormActivate(TObject *Sender) // Šis metodas programai užsikrovus automatiškai sukuria failą “rezultatai.txt” ir jį uždaro. int TForm1::StulpelioMax(int j) // Šis metodas suranda kiekvieno stulpelio maksimumą ir jį grąžiną į programą, tai yra į tuščią eilutę įterpimui. int TForm1::EilutesIterpimas(int j) // Šis metodas įterpia naują eilutę. • 2.3 Atmintinė vartotojui Duomenys atidaromi automatiškai pasirinkus reikiama failą. Rezultatai spausdinami faile “rezultatai.txt” StringGrid ir Memo languose. Skaičiai turi būti realieji. Failuose skaičiai turi būti atskirti bent vienu tarpo simboliu. Masyvo elementų kiekis turi būti mažesnis už Eilutes, Stulpeliai, tai yra už 10. • 2.4 Programos tekstas Failas Unit1.h /--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include

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!