TA’lim vazirligi

2.7-masala. Lakmus qog’ozidan foydalanib eritma muhitini aniqlang.

Yechish. Ma’lumki, eritmaga tushirilgan lakmus qog’ozi qizil bo’lsa, eritma kislotali;

Ko’k bo’lsa, ishqorli; aks holda eritma neytral bo’ladi.



Borland C++ Builder da dasturu:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Char a[10];

a:=Edit1 ->text;

if a='qizil' then

Label3 ->Caption='Eritma kislotaliil'

if a='ko`k'

Label3 ->Caption='Eritma ishqorli'

Else

{

Label3.Caption='Eritma neytral';

} }
2.8-masala. Agar kvadratning tomoni A, doiraning radiusi R ga teng bo’lsa, kvadrat va doiraning yuzlarini solishtirib kattasini aniqlang.

Yechish. Kvadratning yuzi , doiraning yuzi (bunda ) formula yordamida aniqlanadi.



Borland C++ Builder da dasturu:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Float a,r,sk,sd;

a=StrToFloat(Edit1 ->Text);

r=StrToFloat(Edit2 ->Text);

sk=a*a; sd=pi*r*r;

if sk>sd then

{ Edit3 ->Text=’Kvadratning yuzi katta!’ }

else

{

if sk

Edit3 -> text=’Doiraning yuzi katta!’

}else

{Edit3 -> Text=’Yuzlari teng!’;

}

2.9-masala. Quyidagi funksiya hisoblansin: x>0 bo’lganda 1 ga teng; x=0 da nolga teng; x<0 da -1 ga teng.

Yechish. Berilgan funksiya bilan belgilanadi.





Borland C++ Builder da dasturu:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

Float x,y;

x=StrToFloat(Edit1 ->Text);

if x>0

y:=1

else {

if x=0 then y=0

else y:=-1;

}

Edit2 ->Text=FloatToStr(y);

}