Laboratoriya ishi №6 Mavzu: Obyektga yo„naltirilgan dasturlash tizimlarida strukturaviy ilovalarni yaratish

 
Label 2 komponenti 
Hususiyat 
i 
Qiymati 
Izoh 
Caption 
B tomon uzunligi: 
Left 
16 
Top 
56 
Name 
BLabel 
 
Label 3 komponenti 
Hususiyat 
i 
Qiymati 
Izoh 
Caption 
C tomon uzunligi: 
Left 
16 
Top 
88 
Name 
CLabel 
 
Label 4 komponenti 
Hususiyat 
i 
Qiymati 
Izoh 
Caption 
P = 
Left 
80 
Top 
120 
Name 
PLabel 

---

Label 5 komponenti 
Hususiyat 
i 
Qiymati 
Izoh 
Caption 
S = 
Left 
80 
Top 
152 
Name 
SLabel 
 
Edit 1 komponenti 
Hususiyat 
i 
Qiymati 
Izoh 
Text 
Left 
120 
Top 
24 
 
Edit 2 komponenti 
Hususiyat 
i 
Qiymati 
Izoh 
Text 
Left 
120 
Top 
56 
 
Edit 3 komponenti 
Hususiyat 
i 
Qiymati 
Izoh 
Text 
Left 
120 
Top 
88 
 
Edit 4 komponenti 
Hususiyat 
i 
Qiymati 
Izoh 
Text 
Left 
120 
Top 
120 
 
 
Edit 5 komponenti 
Hususiyat 
i 
Qiymati 
Izoh 
Text 
Left 
120 
Top 
152 
 
TButton komponenti 
Hususiyat 
i 
Qiymat 
i 
Izoh 
Caption 
Hisobla 
sh 
Tugma matni 

---

Left 
152 
Tugma bilan oynaning chap 
tomoni orasidagi masofa 
Top 
176 
Tugma bilan oynaning yuqori 
tomoni orasidagi masofa 
Name 
OKButt 
on 
Tugma nomi (o‘zgaruvchi) 
 
Natijada quyidagi interfeysga ega oyna hosil bo‘ladi: 
Interfeysni tayyorlab olgach, Hisoblash tugmasini ikki marta chertib uning OnClick 
hodisasi uchun kod yozamiz: 
1. 
… 
2. 
TForm1 *Form1; 
3. 
int a, b, c; 
4. 
float p, s; 
5. 
… 
6. 
void fastcall TForm1::Button1Click(TObject *Sender) 
7. 
{ 
8. 
a=StrToInt(Edit1->Text); 
9. 
b=StrToInt(Edit2->Text); 
10.
c=StrToInt(Edit3->Text); 
11.
p=(a+b+c)/2; 
12.
s=sqrt(p*(p-a)*(p-b)*(p-c)); 
13.
Edit4->Text=FloatToStr(p); 
14.
Edit5->Text=FloatToStr(s); 
15.
} 
16.
//
3- 
qatorda foydalanuvchi tomonidan edit1, edit2 va edit3 komponentlarga kiritilgan 
qiymatlarni songa aylantirib saqlash uchun mos ravishda integer tipli a, b va с nomli 
o‘zgaruvchilar e‘lon qilindi. 
4- 
qatorda yarim perimetr va yuzaning qiymatini hisoblash uchun mos ravishda real tipli p 
va s o‘zgaruvchilar e‘lon qilindi. 
8, 9 va 10-qatorlarda edit1, edit2 va edit3 komponentlarga kiritilgan qiymatlarni songa 
aylantirib mos ravishda integer tipli a, b va с nomli o‘zgaruvchilarga saqlanmoqda. 
11- 
qatorda a, b va c o‘zgaruvchilarning qiymatlaridan foydalanib yarim perimetr – p 
hisoblanyapti. 
12- 
qatorda geron formulasi yordamida uchburchakning qiymatlari hisoblandi. 
13-qatorda p o‘zgaruvchida saqlanayotgan qiymat Edit4 komponentining text 
hususiyatiga matnga aylantirilgan holda o‘zlashtirildi. 

---

14- 
qatorda s o‘zgaruvchida saqlanayotgan qiymat Edit5 komponentining 
text hususiyatiga matnga aylantirilgan holda o‘zlashtirildi. 
Topshiriqlar 
1. Ikkita haqiqiy a va b sonlari berilgan bo'lsin. Ularning yig‗indisi, ayirmasi 
va ko‗paytmasini topish dasturini tuzing. 
2. Kubning qirrasi ma‘lum bo‗lsa, uning yon sirti va hajmi toppish dasturini tuzing. 
3. Ikkita haqiqiy musbat son berilgan bo‗lsin. Ularning o‗rta arifmetik va 
o‗rta geometrik qiymatlarini topish dasturini tuzing. 
4. Ikkita haqiqiy son berilgan bo‗lsin. Bu sonlarning o‗rta arifmetik qiymatini 
hamda modullarining o‗rta geometrik qiymatini topish dasturini tuzing. 
5. To‗g‗ ri burchakli uchburchakning katetlari berilgan. Uning gipotenuzasi va 
yuzini topish dasturini tuzing. 
6. Temperaturasi t
i
 bo‗lgan vi litr suv t
2
 temperaturali v
2
litr suvga qo‗shildi. 
Hosil bo‗lgan suvning temperaturasi va hajmini topish dasturini tuzing. 
7. Radiusi r bo‗lgan aylanaga tashqi chizilgan muntazam n-burchakning 
perimetrini topish dasturini tuzing. 
8. h balandlikdan tashlangan tosh yerga qancha vaqtdan keyin tushishini topish 
dasturini tuzing? 
9. Teng tomonli uchburchakning tomoni berilgan bo‗lsin. Uning yuzi va 
perimetrini topish dasturini tuzing. 
10. Uzunligi l bo‗lgan mayatnikning tebranish davrini topish dasturini tuzing. 
11. Og‗irliklari m
i
 va m
2
, orasidagi masofa r bo‗lgan ikki jism bir-birini qanday kuch 
bilan tortishini topish dasturini tuzing 
12. To‗g‗ri burchakli uchburchakning gipotenuzasi hamda bitta kateti berilgan 
bo‗lsin. Uning yuzi va ichki chizilgan aylanasining radiusini topish dasturini 
tuzing. 
13. Aylananing uzunligi l bo‗lsin. Shu aylana bilan chegaralangan doira yuzini topish 
dasturini tuzing. 
14. Agar halqaning ichki radiusi 20, tashqi radiusi esa undan x miqdorga katta bo‗lsa, 
halqaning yuzini topish dasturini tuzing. 
15. Asoslari a va b, a asosga yopishgan burchagi alfa bo‘lgan teng yonli trapetsiya 
yuzini topish dasturini tuzing.