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

var 
a,b,c:Real; 
D:Real; X1,X2:Real; 
S1,S2:String[7]; Code:Integer; 
begin 
Val(Edit1.Text,a,Code); 
Val(Edit2.Text,b,Code); 
Val(Edit3.Text,c,Code); 
3-bosqich. 
1. Button1( Hisoblash) yozuvi yozilgan tugma yordamida dasturlash 
maydonini yuklang (Sichqonchaning chap tugmachasini ikki marta 
bosgan holda).
3. Dasturlash maydoniga quyidagi dasturni kiriting:
var 
a,b,c:Real; 
D:Real; X1,X2:Real; 
S1,S2:String[7]; Code:Integer; 
begin 
Val(Edit1.Text,a,Code); 
Val(Edit2.Text,b,Code); 
Val(Edit3.Text,c,Code);

---

186 
4. Dasturlash maydonidan 
“F12” 
yordamida chiqamiz va 
Button2 
(Yangilash) 
yozuvi yozilgan tugma yordamida dasturlash maydonini 
yuklaymiz.
5. Dasturlash maydoniga quyidagi dasturni kiritamiz.
Begin 
Edit1.Text:=’ ‘; 
Edit2.Text:=’ ‘; 
Edit3.Text:=’ ‘; 
Label5.Caption:=’ ‘; 
Edit1.SetFocus; 
End; 
6. 
Button3 (Chiqish) 
yozuvi yozilgan tugmaning dasturlash maydoniga 
quyidagi dasturni kiritamiz.
Begin 
Form1.Close; 
End; 
6. 
Button3 (Chiqish
) yozuvi yozilgan tugmaning dasturlash maydoniga 
quyidagi dasturni kiritamiz.
Begin 
Form1.Close; 
End; 
7. Dasturni fayl menyusidagi 
“Save As…” 
buyrug`i yordamida biror 
nom berib kompyuter xotirasiga saqlaymiz.
8.Ikkinchi marta dasturni fayl menyusidagi 
“Save Project As…”
buyrug`i yordamida, biror nom berib kompyuter xotirasiga saqlaymiz.