L2-32. Eksperimento rezultatai surašyti masyve A(n). Rasti matematinę viltį M ir dispersija D.
Spausdinti masyvą ir skaičiavimo rezultatus.
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 <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
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...

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!