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

Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
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;
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.Text:=' ';
Edit3.Text:=' ';
Label5.Caption:=' ';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Close;
end; end.

Izoh : Deskirminanti manfiy bo‘lmagan har qanday kvadrat tenglamani hisoblash uchun hosil qilingan dastur maydoniga yangi qiymat kiritish orqali natijani olishimiz mumkin.
4-misol. Klaviaturadan kiritilgan butun sonlarni ishorasi va absolyut qiymatini chiqaradigan, agar nol son kiritsa, nol degan so‘z chiqadigan dasturini tuzing.
Keltirilgan misolni yechish uchun dastlab matematik tahlil qilishimiz zarur. Ixtiyoriy butun sonni kiritish orqali son qanday ekanligini bilish mumkin. Agar ixtiyoriy a son berilgan, a>0 bo‘lsa bu son butun musbat sonlar to‘plamiga tegishli, aks holda a<0 bo‘lsa bu son butun manfiy sonlar to‘plamiga tegishli bo‘ladi. Agar a=0 bo‘lganda esa, bu son nolga teng bo‘ladi.
Dastur kodi va oynaning umumiy ko‘rinishini keltiramiz: