Mavzu: Borland C++ Builderda kompanentalar tavsifi Reja kirish

AMALIY MASHG`ULOT
1. C++ Builder 6 dasturlar tuzish.
Masala: Tengtomoni uchburchakning elementlari quyidagi tartibda nomerlangan.
1-tomoni a, 2-ichki chizilgan aylananing radiusi
𝑅1=a*√3/6, 3-tashqi chizilgan aylananing
radiusi 𝑅2=2*𝑅1, 4-yuzasi
S=𝑎2√3/4. Shu elementlardan bittasi berilganda qolganlarini topuvchi programma tuzilsin.
Ushbu oynaga biz misolni yechish uchun 2 button ,1 ta edit ,1 ta stringrid1,1 ta label 1 ta Memo1 ni olamiz va uni oynaga quydagicha joylashtiramiz

#include
#include
#include
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TUmirzoqovAbror *UmirzoqovAbror;
__fastcall TUmirzoqovAbror::TUmirzoqovAbror (TComponent*
Owner)
: TForm (Owner)
{
}
void __fastcall TUmirzoqovAbror::Button1Click(TObject *Sender)
{ float a,r,R,s; if (RadioButton1->Checked ==true) {a=StrToFloat(Edit1->Text ); r=a*sqrt(3)/6; R=2*r; s=a*a*sqrt(3)/4;
Memo1->Lines->Add("r="+FloatToStr(r));
Memo1->Lines->Add("R="+FloatToStr(R));
Memo1->Lines->Add("s="+FloatToStr(s));
}
if (RadioButton2->Checked ==true) {r=StrToFloat(Edit1->Text ); a=r*6/sqrt(3); R=2*r; s=a*a*sqrt(3)/4;
Memo1->Lines->Add("a="+FloatToStr(a));
Memo1->Lines->Add("R="+FloatToStr(R));
Memo1->Lines->Add("s="+FloatToStr(s));
}
if (RadioButton3->Checked ==true) {R=StrToFloat(Edit1->Text ); r=R/2; a=r*6/sqrt(3); s=a*a*sqrt(3)/4;
Memo1->Lines->Add("a="+FloatToStr(a));
Memo1->Lines->Add("r="+FloatToStr(r));
Memo1->Lines->Add("s="+FloatToStr(s));
}
if (RadioButton4->Checked ==true) {s=StrToFloat(Edit1->Text ); a=sqrt(4*s/sqrt(3)) ; r=a*sqrt(3)/6;
R=2*r;
Memo1->Lines->Add("a="+FloatToStr(a));
Memo1->Lines->Add("r="+FloatToStr(r));
Memo1->Lines->Add("R="+FloatToStr(R));
}
}
Natija oynasi

Masala: parallipedning uchta tomoni berilgan parallipedning yuzasi va tola sirtini aniqlang
V=a*b*c; S=2*(a*b+b*c+a*c)
Ushbu masalani yechish uchun 5 ta edit 5 ta label va 1 ta button olinadi.

Dasturning kod oynasi quydagicha b
void __fastcall TForm1::Button1Click(TObject *Sender)
{int a,b,c,s,v; a=StrToInt(Edit1->Text); b=StrToInt(Edit2->Text); c=StrToInt(Edit3->Text); s=2*(a*b+b*c+a*c); v=a*b*c;
Edit4 ->Text = IntToStr(s);
Edit5 ->Text = IntToStr(v);
Natija oynasi quydagicha korinishda bo’ladi