M. A. Saypiyeva Navoiy shahar Ayrim fanlar chuqur o‘rgatishga ixtisoslashtirilgan1-maktabi

var a, b, y, S:real; 
begin 
a:=strtofloat(edit6.Text); 
b:=strtofloat(edit7.Text); 
y:=strtofloat(edit8.Text); 
S:=1/2*a*b*sin(y); 
label5.Caption:='S='+floattostr(s); 
end; 
“
Button4” 
tugmachasining dasturlash maydonchasiga dasturni kiritamiz, 
buning uchun “Bitta tomoni va uchta burchagi bo‘yicha” tugmasini ikki marta tez-
tez bosib, kodlarni yozish oynasiga o‘tamiz va quyidagi dasturlarni kiritamiz: 

---

Academic Research in Educational Sciences 
VOLUME 2 | CSPI CONFERENCE 3 | 2021 
 
Zamonaviy ta'limda matematika, fizika va raqamli texnologiyalarning dolzarb muammolari va yutuqlari 
Toshkent viloyati Chirchiq davlat pedagogika instituti 
Google Scholar 
Scientific Library of Uzbekistan 
Academic Research, Uzbekistan 145 www.ares.uz 
var a,x,y,z,S:real; 
begin 
a:=strtofloat(edit9.Text); 
x:=strtofloat(edit10.Text); 
y:=strtofloat(edit11.Text); 
z:=strtofloat(edit12.Text); 
S:=sqr(a)*sin(y)*sin(z)/2*sin(x); 
label5.Caption:='S='+floattostr(s); 
end; 
“
Button5” 
tugmachasining dasturlash maydonchasiga dasturni kiritamiz, 
buning uchun “Uchta tomoni bo‘yicha” tugmasini ikki marta tez-tez bosib, kodlarni 
yozish oynasiga o‘tamiz va quyidagi dasturlarni kiritamiz: 
var a,b,c,p,S:real; 
begin 
a:=strtofloat(edit1.Text); 
b:=strtofloat(edit2.Text); 
c:=strtofloat(edit3.Text); 
if a+b<=c then 
 label5.Caption:='bunday uchburchak mavjud emas'+floattostr(S) 
 else begin 
 if a+c<=b then 
label5.Caption:='bunday uchburchak mavjud emas'+floattostr(S)