Vienmatis masyvas "B" lygmuo

L4. Vienmatis masyvas „B” lygmuo 1.1. Užduotis. L4 – 12 užduotis : Duotas masyvas D(k). Surasti du didžiausius masyvo elementus. Jei jie nevienodi, tai mažesniojo reikšmę įterpti prieš didesnįjį. Tuos pačius veiksmus atlikti ir su masyvu Y(m). 1.2. Programos aprašymas. Formos schema: Taip atrodys formos schema, atlikus skaičiavimus. Klasės tipas – failas Unit1.h //--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include #include #include #include //--------------------------------------------------------------------------- const char CMasD[] = "MasD.txt"; // Masyvo A duomenu failo vardas const char CMasY[] = "MasY.txt"; // Masyvo B duomenu failo vardas const char CRez[] = "Rez.txt"; // Rezultatu failo vardas const int CMax = 100; // Masyvo maksimalus reiksmiu skaicius //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TMemo *Memo1; // Langas rezultatu failo isvedimui TButton *Button1; // Mygtukas veiksmu atlikimui TButton *Button2; // Programos uzdarymo mygtukas void __fastcall FormActivate(TObject *Sender); void __fastcall Button1Click(TObject *Sender); void __fastcall Button2Click(TObject *Sender); private: // User declarations double D[CMax], // D masyvas Y[CMax]; // Y masyvas void Ivesti(double D[],int &n, const char mas[]); // Nuskaito masyva void Irasyti(double D[],int n, const char mas[]); // Iraso masyva i faila void DuDidziausi(double D[], int n, int &max1, int &max1v, int &max2, int &max2v); // Randa du didžiausius masyvo elementus ir ju vieta void IrasytiDidziausiasReiksmes(const char mas[]); // Iraso didžiausias reiksmes i faila void Tikrinimas(double D[], int n); // Tikrina ar didžiausios reiksmes nelygios void Pasalinimas(double D[], int n); // Pasalina masyvo elementa void Iterpimas(double D[], int n); // Iterpia masyvo elementa int k, // D elementu kiekis m, // Y elementu kiekis max1, // Didziausiasis masyvo elementas max1v, // Didziausiojo masyvo elemento vieta max2, // Antras pagal dydi masyvo elementas max2v; // Antro pagal dydi masyvo elemento vieta public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif Klasės komponentų įvykių metodų aprašas: void __fastcall FormActivate(TObject *Sender); Išvalo rezultatų failą. void __fastcall TForm1::Button1Click(TObject *Sender); Kviečia metodus: Ivesti(double [],int &, const char []);, Irasyti(double [], int n, const char []);,DuDidziausi(double [], int, int &, int &, int &, int &);, IrasytiDidziausiasReiksmes(const char []);,Tikrinimas(double [], int n); ir vel Irasyti(double [],int n, const char []); void __fastcall Button2Click(TObject *Sender); Kviečia metodą Close();, kuris užbaigia programos darbą (uždaro formą). Klasės programuotojo metodų aprašas: void TForm1::Ivesti(double A[],int &n, const char mas[]) Metodas skirtas duomenų nuskaitymui iš duomenų failų MasD.txt (D masyvo) ir MasY.txt (Y masyvo). Kadangi skaitymas vyksta iš skirtingų failų, šis metodas naudoja parametrus, kurie nurodo masyvą, elementų kiekį ir failo vardą. Pradžia Ivesti(); Atidaryti failą skaitymui Skaityti n i = 0, n Skaityti C[i] Uždaryti failą Pabaiga Ivesti(); void TForm1::Irasyti(double A[],int n, const char mas[]) Surašo į rezultatų failą masyvų elementus. Kadangi reikia surašyti du atskirus masyvus, naudoja parametrus ( A – masyvas , n – elementu skaičius, mas – komentaras); Pradžia Irasyti(); Failas Crez Atidaryti failą papildomam rašymui Atspausdinti mas i = 0, n Spausdinti A[i] Spausdinti tuščia eilutę Uždaryti failą Pabaiga Irasyti(); void TForm1::DuDidziausi(double D[],int n, int &max1, int &max1v, int &max2, int &max2v) Metodas randa du didžiausius masyvo elementus ir ju vieta masyve Pradžia Dudidziausi(); Kintamiesiems priskiriamos pradinės reikšmės i = 0, n Taip D[i] > max1 Ne max2 = max1 Taip D[i] > max2 Ne max1 = D[i] max2 = D[i] max2v = max1v max2v = i max1v = i Pagaiga DuDidziausi(); void TForm1::IrasytiDidziausiasReiksmes(const char mas[]) Metodas Iraso didziausias masyvo reiksmes i faila (parametras mas – komentaras). Pradžia IrasytiDidziausiasReiksmes (); Failas Crez Atidaryti failą papildomam rašymui Atspausdinti komentara mas Atspausinti max1 „ir“ max2 Uzdaryti faila Pabaiga IrasytiDidziausiasReiksmes (); void TForm1::Tikrinimas(double D[], int n) Metodas tikrina ar didziausios masyvo reiksmes nelygios, jei nelygios iskviecia papildomus metodus. Pradzia Tikrinimas(); Taip max1 != max2 Ne Pasalinimas(D, n) Iterpimas(D, n) Pabaiga Veiksmai(); void TForm1::Pasalinimas(double D[], int n) Metodas pasalina antraji pagal dydi masyvo elementa Pradzia Pasalinimas(); ____ i = max2v, n-1 D[i] = D[ i + 1 ] n = n – 1 Pabaiga Pasalinimas(); void TForm1::Iterpimas(double D[], int n) Metodas iterpia antraji pagal dydi masyvo elementa pries didziausiaji elementa Pradzia Iterpimas(); ____ i = n, i > max1v, i-- D[i] = D[ i - 1 ] n = n +1 D[max1v] = max2 Pabaiga Iterpimas(); 1.3 Atmintinė vartotojui: Pradiniai duomenys yra saugomi tekstiniuose failuose, kurių pavadinimai „MasD.txt“ ir „MasY.txt“ (atitinkamai masyvui D ir masyvui Y), o rezultatai surašomi į tekstinį failą „Rez.txt“. Pirmasis skaičius duomenų failuose nurodo masyvų elementų kiekį. Duomenis į duomenų failą rekomenduojama suvesti su Notepad programa. Vykdant programą reikia nepamiršti, jog nėra apsaugos nuo klaidingų duomenų įvedimo, t.y. skaičiai duomenų failuose turi atitikti C++ kalbos reikalavimus. Programos tekstas – failas Unit1.cpp //--------------------------------------------------------------------------- #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!