linkedin facebook linkedin facebook nod32

Borland C++ Builder Tarmoqlanuvchi algoritmni dasturlash

Muallif: Mengliyev Shoydullo

Qo`shilgan sana: 2014-10-27

1. Borland C++ Builder Tarmoqlanuvchi algoritmni dasturlash

2.1-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<y) y=y-x;
goto A;
B: Edit3->Text=IntToStr(x);
}

2.2-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<y) x1=-b/(2*a);
Edit4->Text=FloatToStr(x1);
Edit5->Visible=False;
}

2.3-masala. Raketa V (km/soat) tezlik bilan Yer ekvatoridagi nuqtadan Yerning Quyosh atrofidagi orbitasi bo’ylab uchiriladi. Raketani uchirish natijasi qanday bo’ladi?

Borland C++ Builder da dasturu:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float a;
a=StrToFloat (Edit1->Text);
if a<7.9 label3->Caption='Raketa Yerga qaytib tushadi';
if (a>=7.9) and (a<11.2
label3->Caption='Raketa Yerning sun`iy yo`ldoshiga aylanadi';
if (a>=11.2) and (a<16.7)
label3->Caption='Raketa Quyoshning sun`iy yo`ldoshiga aylanadi';
if a>=16.7 label3->Caption:='Raketa Galaktikaning sun`iy yo`ldoshiga aylanadi';
}

2.4-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.5-masala. Agar kvadratning tomoni A, doiraning radiusi R ga teng bo’lsa, kvadrat va doiraning yuzlarini solishtirib kattasini aniqlang.

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<sd then {
Edit3 -> text=’Doiraning yuzi katta!’
}else
{Edit3 -> Text=’Yuzlari teng!’;
}

2.6-masala. Berilgan N yil kabisa yili bo’lish-bo’lmasligini aniqlang. Agar N 100 ga karrali son bo’lmasa va uning oxirgi ikki raqami 4 ga karrali son bo’lsa, u holda N-yil kabisa yilidir. Agar N soni 100 karrali bo’lsa,u holda N soni 400 ga karrali bo’lgandagina mazkur yil kabisa yili bo’ladi.

Borland C++ Builder da dasturu:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Int n;
n=StrToInt(Edit1 ->Text);
if n mod 100=0 then { if n mod 400 =0 then Edit2 ->Text=’Bu yil kabisa yili!’ else
Edit2 ->Text=’Bu yil kabisa yili emas!’; }
Else { if n mod 4 =0 then Edit2 ->Text=’Bu yil kabisa yili!’
else Edit2 ->Text=’Bu yil kabisa yili emas!’;
}
}

2.7-masala. A, B, C sonlar mos ravishda uchta kesmaning uzunliklarini ifodalaydi. Agar kesmalar uchburchakning tomonlarini ifodalasa, uchburchakning yuzi S, uchburchakka tashqi va ichki chizilgan aylanalarning radiuslari R1 va R2 larni toping.

Borland C++ Builder da dasturu:
#include <math.h>
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Float a,b,c,r1,r2,s,p;
a=StrToFloat(Edit1 ->Text);
b=StrToFloat(Edit2 ->Text);
c=StrToFloat(Edit3 ->Text);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
{
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
r2=s/p;
r1=a*b*c/(4*s);
Edit4 ->Text=FloatToStr(r1);
Edit5 ->Text=FloatToStr(r2);
Edit6 ->Text=FloatToStr(s);
else showmessage(‘Kiritilgan sonlar uchburchak tomonlarini ifodalamaydi!’);
}

2.8-masala. Ax+B=0 tenglamani yeching.

Borland C++ Builder da dasturu:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Float a,b,x;
a=StrToFloat(Edit1 ->Text);
b=StrToFloat(Edit2 ->Text);
if a=0 then
{if b!=0 then showmessage(‘Bu tenglamaning yechimi yo`q!’)
else
Edit3 ->Text=’Bu tenglamaning yechimlari cheksiz ko`p!’
else { x:=-b/a; Edit3 ->Text:=FloatTostr(x);
}}
}

2.9-masala. Bir tomoni va unga yopishgan ikkita burchagi berilgan uchburchakning uchinchi burchagi va qolgan ikki tomonini aniqlang.

Borland C++ Builder da dasturu:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Float a,ab,bb,b,c,cb;
a=StrToFloat(Edit1 ->Text);
ab=StrToFloat(Edit2 ->Text);
bb=StrToFloat(Edit3 ->Text);
cb=pi-ab*pi/180-bb*pi/180;
b=a*sin(bb)/sin(ab);
c=a*sin(cb)/sin(ab);
Edit4 ->Text=FloatToStr(cb);
Edit5 ->Text=FloatToStr(b);
Edit6 ->Text:=FloatToStr(c);
}

2.10-masala. Uchta sonning berilgan bularninig eng kattasi (EKT) ni toping.

Borland C++ Builder da dasturu:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Float a,b,c,max;
a=StrToFloat(Edit1->Text);
b=StrToFloat(Edit2->Text);
c=StrToFloat(Edit3->Text);
if a>b then
max=a else max=b;
if max>c then max=max else max=c;
Edit4->Text=FloatToStr(max);
}

987 marta o`qildi.

Foydalanuvchi ismi: jhl
Qo`shilgan sana: 2016-05-17

l;

Foydalanuvchi ismi: Zayniddin
Qo`shilgan sana: 2016-06-07

Ajoyib.

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений