2-masala. Talabalarning familiyasi va ta‘lim olayotgan bosqichi haqida ma‘lumotlar berilgan. Bu ma‘lumotlar asosida 2-bosqich talabalari ro‘yhatini chiqaring. Boshlang‘ich Forma ko‘rinishini quyidagicha yaratamiz(8-rasm)

2-masala. Talabalarning familiyasi va ta‘lim olayotgan bosqichi haqida ma‘lumotlar berilgan. Bu ma‘lumotlar asosida 2-bosqich talabalari ro‘yhatini chiqaring.
Boshlang‘ich Forma ko‘rinishini quyidagicha yaratamiz(8-rasm):

Forma ko‘rinishi

Dastur kodi:

//-------------------------------------------------------------
#include
#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(9-rasm):





Forma ilovasida olingan natijalar