Var a,b,c: Real; D: Real

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);
If a=0 Then Label5.Caption:=’Xato!’
Else Begin
d:=b*b-4*a*c;
if d<0 then
Label5.Caption:=’Tenglama ildizlari mavjud emas’
else begin
x1:=(-b+Sqrt(d))/(2*a);
x2:=(-b-Sqrt(d))/(2*a);
Str(x1:7:3,S1);
Str(x2:7:3,S2);
Label5.Caption:=’Tenglama ildizlari:’
+Chr(13)+’x1=’+S1
+Chr(13)+’x2=’+S2;
end;
end;
end;

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:=’ ‘;
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.
Dastur kodi va oynaning umumiy ko‘rinishini keltiramiz:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,