2-laboratoriya ishi. Mavzu: stl kutubxonalari. Kontеynеr sinflar, kontеynеrlar (kollеksiyalar). Chiziqli konteynerlar. Assosiativ kontеynеrlar. Tartiblanmagan assosiativ kontеynеrlar Ishning maqsadi

Masalaning qo‘yilishi: vector asosida yaratilgan to‘plam elementlarini vectorning maxsus funksiyalari yordamida qayta ishlash.
Masala: Berilgan int turidagi to‘plamda - ishorali elementlarning eng kattasini o‘chiruvchi dastur tuzing.
Masalani yechish g‘oyasi: talaba nomli yangi nomlar fazosi yartiladi. Uning tarkibiga Talaba classi va Ism, Fam, Yosh, Step nomli to‘plamlar joylashtiriladi. Talaba classining ruxsat berilmagan maydonlaridan foydalanish uchun friend funksiya yaratiladi.
Dastur matni:
//#include

#pragma hdrstop

#include "Unit9.h"
#include "math.h"
#include

#include

#pragma package(smart_init)

#pragma resource "*.dfm"

int a = -360;
int Xe0,Ye0,Xe,Ye, // Ekran koordinatalari
Rect_X,Rect_Y, // Koordinata chegaralarining soha chegarasidan farqi

Mashtab; // Soha koordinatasining Haqiqiysiga nisbati, Mashtab

float h,X,Y,m; //Gmonik tebrama harakat qilayotgan jisim harakati

float YY;

const float Pi=3.1415;

TForm1 *Form1;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)

{

//PaintBox1->Canvas->Pen->Color=clRed;

if(a<=360){
//for (int a=-360; a<=360; a++)
X=400 + a;
//Y=600-sin(a*Pi/180)*100;

Y=200-cos(a*Pi/180)*100;

//PaintBox1->Canvas->LineTo(X,Y);
PaintBox1->Canvas->LineTo(X,Y);

a++;

}
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)

{
Mashtab=80; // Mashtabni tanlash
Rect_X =10; // Chegaralar
Rect_Y =10;
h=0.9;//h qadam
Xe0 = PaintBox1->Width/16; //Koordinata markazi - Soha markazi tanlandi
Ye0 = PaintBox1->Height/2;
X=-Pi-h;
X=X+h;
Y=sin(X)*Y;
Xe=Xe0+(int)(Mashtab*X);
Ye=Ye0-(int)(Mashtab*Y);
YY=200-cos(-360*Pi/180)*100;
PaintBox1->Canvas->MoveTo(Rect_X,Ye0);
PaintBox1->Canvas->LineTo(PaintBox1->Width-Rect_X,Ye0); //OX-o’qi
PaintBox1->Canvas->MoveTo(Xe0,Rect_Y);
PaintBox1->Canvas->LineTo(Xe0,PaintBox1->Height-Rect_Y);// OY-o’qi
PaintBox1->Canvas->MoveTo(40,YY); //Grafik kursorni o'rnatish
Timer1->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)

{
float X, T, m,W, Pi=3.1415;
X = StrToFloat(Edit1->Text);
T= StrToFloat(Edit2->Text);
m = StrToFloat(Edit3->Text);
W=(2*pow(Pi,2)*pow(X,2)*m)/pow(T,2);
Memo1->Text=+FloatToStr(W);
}