R. A. Yusupov C++ Builderda masalalar va topshiriqlar samarqand 2018 yil

public: // User declarations

__fastcall TForm1(TComponent* Owner);

};

//*** forma moduli ***

#include //jpg-tasvir bilan ishlashni

//ta'minlaydi

int __fastcall GetInt(int f); // butun sonni o'qish

int __fastcall GetString(int f,AnsiString *st);//satrni

//o'qish

// konstruktor

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

int i;

int left=10;

//javobni tanlash uchun radiotugmalarni yaratamiz

for (i=0; i<4; i++)

{

//radiotugmani yaratamiz

RadioButton[i]= new TRadioButton(Form1);

//xususiyat qiymatlarini o'rnatamiz

RadioButton[i]->Parent=Form1;

RadioButton[i]->Left=left;

RadioButton[i]->Width=Form2->ClientWidth-left-20;

RadioButton[i]->Visible=false;

RadioButton[i]->Checked=false;

//Click xodisani qayta ishlaydigan funksiyani beramiz

RadioButton[i]->OnClick=RadioButtonClick;

}

}

void __fastcall TForm1::FormActivate(TObject *Sender)

{

AnsiString st;

//test fayl nomini bo'yruqlar satrida ko'rsatish kerak

int n=ParamCount();

if(n<1)

{

Label1->Font->Style=TFontStyles()<

Label1->Caption="Test fayl nomi berilmagan.\nTest ";

"fayl nomini dastur ishga tushganda bo'yruqlar"

" satrida yoki Exam.bat faylida ko'rsatish kerak";

Button1->Tag=2;

return;

}

f=FileOpen(ParamStr(1),fmOpenRead);

if (f==-1)

{

Label1->Font->Style=TFontStyles()<

Label1->Caption="Test fayliga murojaatda xatolik "+ParamStr(1);

Button1->Tag=2;

return;

}

//Test xaqida ma'lumotni berish

GetString(f,&st); //Test nomlanishini o'qish

Form1->Caption=st;

GetString(f,&st);//Kiritish ma'lumotini o'qish

Label1->Width=Form1->ClientWidth-Label1->Left-20;

Label1->Caption=st;

Label1->AutoSize=true;

//Baxolash darajasi xaqida ma'lumotni o'qish

for(int i=0;i<4;i++)

{

level[i]=GetInt(f);

GetString(f,&mes[i]);

}

nq=0; //savollar soni

}

// fayldan navbatdagi savolni o'qish

bool __fastcall TForm1::GetQuestion()

{

AnsiString st;

int p; // agar р=1, unda savolda tasvir mavjud

if (GetString(f,&(Question.Text))!=0)

{

//javob variantlar sonini, to'g'ri javob nomerini va

// aniq tasvir alomatini oqish

Question.nAnswer = GetInt(f);

Question.rAnswer = GetInt(f);

p = GetInt (f);

if (p) //savolda tasvir mavjud

GetString (f,&(Question.Img));

else Question.Img = "";

// javob variantlarni o'qiymiz

for (int i = 0; i < Question.nAnswer; i++)

{

GetString(f, &(Question.Answer[i]));

}