vienmatis masyvas

 1. Laboratorinio darbo Lr. 3 ataskaita Vienmatis masyvas Atliko: grupės studentas: Tikrino: doc. Jonas Blonskis Pristatymo data: 2002-10-28 1.1. Programos užduotis L2-32. Eksperimento rezultatai surašyti masyve A(n). Rasti matematinę viltį M ir dispersija D. Spausdinti masyvą ir skaičiavimo rezultatus. • Komponentų paskirtis: Vardas Paskirtis ListBox1 Pradinių duomenų masyvui išvesti Label1 – Label6 Programos paaiškinimų langai ir skaičiavimai. Button1 Skaičiavimo mygtukas Button2 Mygtukas, kurį paspaudus rezultatai surašomi į rezultatų failą. Button3 Mygtukas, kurį paspaudus baigiamas programos darbas. Button4 Mygtukas, kurį paspaudus - parodomas rezultatų failas. Button5 Mygtukas, kurį paspaudus – parodomi masyvo duomenys. Button6 Mygtukas, kuris išvalo Memo1 langą. Memo1 Rezultatams parodyti. Pastaba: Tuščias reikšmės langelis reiškia tuščią simbolių eilutę. • Konstantos: const int Ckiek = 100; // maksimalus masyvo elementų skaičius Ši konstanta skirta saugoti maksimaliam masyvo elementų skaičiui. const char *CDoum = "duom.txt"; // duomenų failo vardas const char *CRez = "rezult.txt"; // rezultato failo vardas Šios konstantos skirtos saugoti duomenų ir rezultatų failams. • Formos schema: • Objektų inspektoriuje keičiamos komponentų savybių reikšmės: Vardas Keičiama savybė Reikšmė Form1 Caption Laboratorinis darbas Nr. L2-32 ListBox1 Items Label1 Caption Masyve yra n = elementų Label2 Caption Rezultatai ir duomenys Button1 Caption Skaičiuoti Button2 Caption Saugoti Enabled false Button3 Caption Baigti Button4 Caption Rezultatai Button5 Caption Duomenys Button6 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 Button6 OnClick Button6Click Form1 OnCreate FormCreate • TForm1 klasės aprašo failas: //--------------------------------------------------------------------------- #ifndef MasH #define MasH //--------------------------------------------------------------------------- #include #include #include #include const int Ckiek = 100; // maksimalus masyvo elementu skaicius const char *CDoum = "duom.txt"; // duomenu failo vardas const char *CRez = "rezult.txt"; // rezultato failo vardas //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TLabel *Label1; // Masyvo elementų skaičius TLabel *Label2; // Rezultatai ir duomenys TButton *Button1; // Skaičiuoti TButton *Button2; // Saugoti TButton *Button3; // Baigti TListBox *ListBox1; // Masyvui parodyti (duomenims) TButton *Button6; // Valyti TMemo *Memo1; // Rezultatams išvesti TButton *Button4; // Rezultatai TButton *Button5; // Duomenys void __fastcall Button1Click(TObject *Sender); // kviečia metodus void __fastcall Button2Click(TObject *Sender); // kviečia metodus Viltis(), Dispersija(), parodo rezultatus Memo1 lange void __fastcall Button3Click(TObject *Sender); // programos pabaiga void __fastcall FormActivate(TObject *Sender); // kviečia metodus Skaityti(), Parodyti() void __fastcall Button4Click(TObject *Sender); // parodo rezultatus Memo1 lange void __fastcall Button5Click(TObject *Sender); // parodo duomenis Memo1 lange void __fastcall Button6Click(TObject *Sender); // išvalo Memo1 langą private: // User declarations AnsiString Failas, Duomenys; // failams "duom.txt" ir "rezult.txt" float A[Ckiek]; //masyvo elementu kiekis float n, // masyvo elementų kiekis vilt, // matematinė viltis disp, // matematinė dispersija dispd, // mat. dispersijai gražinti viltm; // Matematinei vilčiai gražinti float ViltisM(float vilt, float viltm); // suskaičiuoja matematinę viltį ((1/n)*vilties sumos) float DispersijaD(float disp, float dispd); // suskaičiuoja matematine dispersija ((1/n-1)* dispersijos sumos) void Skaityti(); // Patikrina, ar nurodytas failas yra, ir perskaito iš tekstinio failo // sukelia duomenis į masyvą; jei failo nėra, tai išduoda pranešimą // A. - Reikšmių masyvas // ->n. Masyvo reikšmių kiekis void Saugoti(); // Parodo Memo1 lange paspaudus Button4 ir surašo pradinį masyvą ir rezultatus // į failą "rezult.txt" // ->A. pradinis masyvas // ->n. Masyvo elementų kiekis // ->viltm. - Matematinė viltis // ->dispd. - Matematinė dispersija public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif • Metodų aprašai TForm1::FormActivate(TObject *Sender) // kviečia metodus Skaityti() ir Parodyti(), tai yra perskaito iš failo masyvą ir jį parodo ekrane Pradžia: Forma Skaityti(); Parodyti(); Label1-> Masyve yra n = elementų Pabaiga. Forma TForm1::Button1Click(TObject *Sender) // kviečia metodus Viltis(), Dispersija(). Spausdina skaičiavimus Memo1 lange Pradžia: Button1Click Viltis(); Dispersija(); Spausdinti į Memo1 langą mat. viltį Spausdinti į Memo1 langą mat. dispersiją Spausdinti į Memo1 langą Mas. elementų kiekį Pabaiga. Button1Click TForm1::Button2Click(TObject *Sender) // kviečia metodą Saugoti(), spausdina rezultatus į failą “rezult.txt” ir išsaugo jį. TForm1::Button3Click(TObject *Sender) // programos pabaiga TForm1::Button4Click(TObject *Sender) // atidaro Memo1 lange “rezult.txt” failą, tai yra parodo skaičiavimo iš failo rezultatus. TForm1::Button5Click(TObject *Sender) // atidaro Memo1 lange “duom.txt” failą, tai yra parodo pradinio masyvo duomenis. TForm1::Button6Click(TObject *Sender) // išvalo Memo1 langą. • Funkcijų aprašai void Skaityti(); Skaitymo pradžioje int i = 0; float nn = 0; float n, A[i]; int Ckiek = 100; Ši funkcija ar, nurodytas failas yra. Jei yra, tai perskaito pradinius duomenis į globalų masyvą A, o elementų skaičius išsaugomas globaliniame kintamajame n. Jei failo nėra, tai parodomas pranešimas, kad failas nerastas. Pradžia void Skaityti(); Sveikieji i = 0; Realieji nn = 0, n = 0, A[i]; Failas (FD); Atidaromas failas skaitymui (FD, “duom.txt”); T \ FD != NULL / N Kol nesibaigė failas (FD) ir, kol perskaitytų elementų kiekis neviršija maksimalaus elementų skaičiaus (i #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!