Pirmoji klasė. "A" lygmuo

Laboratorinio darbo Nr. 2 ataskaita Pirmoji klasė „A“ lygmuo Atliko: Data: 2009.02.10 Dėstytojas: 1. Ataskaita: 2. Programa ir jos veikimas: 3. Duomenų įvedimas ir spausdinimas: 4. Uždavinio sprendimo veiksmai: 5. Programos gynimo testas: 2.1 Programos užduotis. L2-29A. Duoti du masyvai A(n) ir B(m). Klaviatūra įvedama reikšmė. Ją įrašyti kiekvieno masyvo gale, jeigu ji didesnė už masyvo reikšmių sumą. Spausdinti masyvus prieš ir po veiksmų. 2.2 Programos aprašymas. a) Programos schema: b) Unit1.h failas: //--------------------------------------------------------------------------- #ifndef Unit1H #define Unit1H //--------------------------------------------------------------------------- #include #include #include #include #include #include #include #include "Unit2.h" #include "Unit3.h" #include #include #include //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TMemo *Memo1; // Parodo duomenis Duomenys1.txt failo TMemo *Memo2; // Parodo duomenis Duomenys2.txt failo TMemo *Memo3; // Parodo duomenis Rezultatai.txt failo TEdit *Edit1; // Ivedimui reiksme skirtas Edit1 langas TBitBtn *BitBtn1; // Ivesti reiksme TBitBtn *BitBtn2; // Baigti programos darba TOpenDialog *OpenDialog1; TSaveDialog *SaveDialog1; TMainMenu *MainMenu1; // Meniu TMenuItem *Failas1; TMenuItem *Skaitytiduomenis1; // Nuskaito duomenis TMenuItem *N1; TMenuItem *Baigtidarba1; // Uzdaro programa TMenuItem *Analizuoti1; TMenuItem *Ivestireiksme1; // Iveda reiksme TMenuItem *Apie1; TMenuItem *Programosuzduotis1; // Atidaro AboutBox forma TMenuItem *Programosuzduotis2; TBevel *Bevel1; TBevel *Bevel2; TLabel *Label1; TLabel *Label2; TLabel *Label3; void __fastcall Programosuzduotis2Click(TObject *Sender); void __fastcall Skaitytiduomenis1Click(TObject *Sender); void __fastcall Baigtidarba1Click(TObject *Sender); void __fastcall BitBtn1Click(TObject *Sender); void __fastcall Ivestireiksme1Click(TObject *Sender); private: // User declarations XMasyvas A, B; // Masyvai AnsiString Duom1(); // Duomenu failu atidarymui skirti // AnsiString Duom2(); // ------------"----------------- // AnsiString Rez(); // Rezultatu failo atidarymui skirtas // AnsiString Duomenys1; // Duomenu failu atidarymui skirti // AnsiString Duomenys2; // ------------"----------------- // AnsiString Rezultatai; // Rezultatu failo atidarymui skirtas // public: // User declarations __fastcall TForm1(TComponent* Owner); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif c) Unit2.h failas: //--------------------------------------------------------------------- #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!