TA’lim vazirligi

2.2-masala. Ikki butun musbat son M va N larning eng katta umumiy bo’luvchisi (EKUB) ni aniqlang.



Borland C++ Builder da dasturu:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int m,n,x,y;

m=StrToInt(Edit1->Text);

n=StrToInt(Edit2->Text);

x=m;y=n;

A:

if (x=y) goto B;

if (x>y) x=x-y;

if (x

goto A;

B: Edit3->Text=IntToStr(x);

}
2.3-masala. Ikkita X va Y sonlarning kattasini tanlash (EKT) dasturini tuzing.



Borland C++ Builder da dasturu:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int m,y,x;

x=StrToInt (Edit1->Text);

y=StrToInt(Edit2->Text);

if (x==y)

ShowMessage("Bu sonlar teng");

if (x>y) m=x; Edit3->Text=IntToStr(m);

if (x

Edit4->Text=FloatToStr(x1);

Edit5->Visible=False;

}
2.4-masala. X va Y haqiqiy sonlar berilgan. Z ni hisoblang:




Borland C++ Builder da dasturu:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int z,y,x;

x=StrToInt (Edit1->Text);

y=StrToInt(Edit2->Text);

if (x>y)

{ z=x-y;

}

else {

z=x+1;

}

Edit3->Text=FloatToStr(z);

}