O‘zbekiston respublikasi oliy va o‘rta maxsus ta’lim vazirligi samarqand davlat universiteti

Button1
ga 
dastur
kodi kiritiladi. So‘ng saqlanib dastur bajarishga o‘tiladi. 
Dastur kodi
procedure TForm1.Button1Click(Sender: TObject); 
var
x1,y1,x2,y2,x3,y3,a,b,c,p,s : real; 
begin 
x1:=StrToFloat(Edit1.Text); // x1 ga qiymat o‘qilyapti
y1:=StrToFloat(Edit2.Text); // y1 ga qiymat o‘qilyapti
x2:=StrToFloat(Edit3.Text); // x2 ga qiymat o`qilyapti
y2:=StrToFloat(Edit4.Text); // x1 ga qiymat o‘qilyapti
x3:=StrToFloat(Edit5.Text); // x3 ga qiymat o‘qilyapti
y3:=StrToFloat(Edit6.Text); // y3 ga qiymat o`qilyapti
// uchburchak tomonlarini hisoblash
a:=sqrt(Sqr(x2-x1)+sqr(y2-y1)); 

---

184 
b:=sqrt(Sqr(x2-x3)+sqr(y2-y3)); 
c:=sqrt(Sqr(x3-x1)+sqr(y3-y1)); 
// perimetrini yarmini hisoblaymiz
p:=(a+b+c)/2;
Memo1.Lines.Add(' Natija P = '+FloatToStrF(p,fffixed,8,3)); 
// uchburchak yuzasini hisoblaymiz
s:=sqrt(p*(p-a)*(p-b)*(p-c)); 
// Natijani oynaga chiqaramiz
Memo1.Lines.Add(' Natija S = '+FloatToStrF(s,fffixed,8,3)); 
end; 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; 
edit5.Clear;edit6.Clear;edit7.Clear;edit9.Clear; Memo1.clear; 
end; 
procedure TForm1.FormCreate(Sender: TObject); 
Begin Memo1.Clear; // Memo1 redaktor oynasini tozalash
// Memo1 ko‘p satrli redaktorga satrlarni chiqarish
Memo1.Lines.Add(' 1-topshiriq. 205 guruh talabaqsi Kimsanov 
Kimsan'); 
end; 
end.
Tarmoqlanuvchi dastur tuzish 
1. Kvadrat tenglamani yechish dasturi 
1-bosqich
.
1. Dasturni ishga tushiramiz
2. Standard jihоzlаr pаnеlidan Label1, Label2, Label3, Label4, Label5 ni 
tanlaymiz.
3. Parametrlar va xossalar bo`limdan foydalanib Label1 ga “Kvadrat 
tenglama”, Label2 ga “a=”, Label3 ga “b=”, Label4 ga “c=”, Label5 ga 
“Tenglamani ildizlari=” yozuvini kiritamiz.
4. Standard jihоzlаr pаnеlidan “Edit1”, “Edit2”, “Edit3” matn kiritish 
maydonlarini hosil qilamiz

---

185 
5. 
Standard 
jihоzlаr 
pаnеlidan 
“Button1”, “Button2”, “Button3” tug-
masi hosil qilamiz hamda parametrlar 
va xossalar bo`limdan foydalanib 
“Button1”ga “Hisoblash”, “Button2” 
ga “Yangilash”,“Button3”ga “Chiqish”
matnlarni kiritamiz.
2-bosqich. 
1. Button1( Hisoblash) yozuvi yozilgan tugma yordamida dasturlash 
maydonini yuklang (Sichqonchaning chap tugmachasini ikki marta 
bosgan holda).
3. Dasturlash maydoniga quyidagi dasturni kiriting: