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);
}
Do'stlaringiz bilan baham: |