O‘ zbеkistоn rеspublikаsi оliy vа o‘rtа mаxsus tа`lim vаzirligi islom Karimov nomidagi

//-------------------------------------------------------------------- 
#include  
#include  
#include  
#pragma hdrstop 
//-------------------------------------------------------------------- 
#pragma argsused 
int main(int argc, char* argv[]) 
{ typedef struct { 
char title[40];
char author[20];

---

39 
int entry; }book ;
int sum=0;
book k; 
book b[10]; 
int i; 
for (i=1;i<=5; i++) 
{ cout<<"naimenovanie knigi"<
cin>>b[i].title; 
cout<<"avtor"<
cin>>b[i].author; 
cout<<"god izdanie"<
cin>>b[i].entry; 
 }for (i=1; i<=5; i++) 
if (b[i].entry<=2008) sum=sum+1; 
cout<<"Summa knig sum="<
 getch(); return 0; 
} 
//------------------------------------------------------------------- 
2-masala. 
Talabalarning familiyasi va ta‘lim olayotgan bosqichi haqida 
ma‘lumotlar berilgan. Bu ma‘lumotlar asosida 2-bosqich talabalari ro‗yxatini 
chiqaring.
Boshlang‘ich Forma ko‗rinishini quyidagicha yaratamiz(1-rasm): 
 
 
1-rasm. 
Forma ko‗rinishi 
Dastur kodi: 
//------------------------------------------------------------- 
#include  

---

40 
#include  
#include 
#include  
 #pragma hdrstop 
 #include "Unit1.h" 
//---------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
#pragma argsused 
TForm1 *Form1; 
typedef struct { 
String fam; 
int kurs; }book ; 
book a[10]; int n; 
//--------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
: TForm(Owner) 
{ } 
//----------------------------------------------------------------- 
void __fastcall TForm1::Button1Click(TObject *Sender) 
 { n=n+1; 
a[n].fam=Edit1->Text; 
 a[n].kurs=StrToInt(Edit2->Text); 
Edit1->Text=""; 
Edit2->Text="" ; } 
//----------------------------------------------------------------- 
void __fastcall TForm1::Button2Click(TObject *Sender) 
{ int i; 
for (i=1;i<=2; i++) 
{ Memo1->Lines->Add(a[i].fam); 
Memo1->Lines->Add(IntToStr(a[i].kurs)); 
} } 
//------------------------------------------------------------------- 
void __fastcall TForm1::Button3Click(TObject *Sender) 
{ int i; 
for (i=1;i<=2; i++) 
{ if (a[i].kurs==2){ 
Memo2->Lines->Add(a[i].fam); 
Memo2->Lines->Add(IntToStr(a[i].kurs));} 
} } 
//---------------------------------------------------------------- 
 
Dastur bajarilishi natijasida quyidagi Forma chiqadi va Memo2 
komponentasida asosiy natija olinadi(2-rasm): 

---

41 
 
 
2 -rasm. 
Forma ilovasida olingan natijalar 
 
Laboratoriya ishini bajarish uchun topshiriq variantlari: 
 
1.
Korxona xodimlari haqida quyidagi ma'lumotlar to‗plangan: xodimning 
familiyasi va ismi, lavozimi va telefon raqami. Bu ma'lumotlar asosida xodimning 
familiyasi bo‗yicha telefon raqami aniqlansin. 
2.
Talabalarning matematika, fizika, informatika va kimyo fanlari bo‗yicha 
o‗zlashtirish dasturi tuzilsin. A‘lochi talabalar ro‗yxati chiqarilsin.
3.
Talabalarning matematika, fizika, informatika va kimyo fanlari bo‗yicha 
o‗zlashtirish dasturi tuzilsin. O‗tgan talabalar ro‗yxati chiqarilsin. 
4.
Talabalarning matematika, fizika, informatika va kimyo fanlari bo‗yicha 
o‗zlashtirish dasturi tuzilsin. Qarzdor talabalar ro‗yxati chiqarilsin.
5.
Talabalarning familiyasi, guruh nomeri berilgan.
6.
Talabalarning familiyasi alifbo bo‗yicha saralangan ro‗yxat chiqarilsin.
7. Avtomashina egasining familiyasi, adresi, mashina nomeri ma‘lum. Shu 
ma‘lumotlar asosida mashina nomeri orqali avtomashina egasining familiyasi va 
adresi izlash yordamida chiqarilsin.
8. Kutubxonadagi mavjud kitoblar haqida ma‘lumotlar kiritilgan: kitob 
mulliflari, nomi, nashr yili. 
9.
Kitob mualliflari asosida kerakli kitoblarni izlab topish dasturini tuzing. 
10.
Informatika fanidan olimpiadada ishtirok etgan talabalar guruhi 
ro‗yxati berilgan. Shunday dastur tuzilsinki, natijada olimpiadada birinchi to‗rtta 
o‗rinni egallagan talabalar ro‗yxati chiqsin. 
11.
10 ta yo‗lovchining familiyasi, ular yuklarining soni va og‘irligi 
haqida ma'lumot berilgan. Yo‗lovchilar familiyasi alfavit tartibida joylashtirilsin. 
12.
Kafedra xodimlari familiyasi, staji, lavozimi kiritilgan. Bu 
ma‘lumotlar ichidan assistentlar ro‗yhatini chiqaring. 

---

42