MENGHITUNG PERSAMAAN AKAR KUADRAT MENGGUNAKAN PROGRAM DELPHI7

Nah sekarang saya akan membagikan tutorial MENGHITUNG PERSAMAAN KUADRAT mengggunakan DELPHI 7....

Source code Hitung:
      procedure TForm1.Button1Click(Sender: TObject);
Var a,b,c,d,X1,X2,P,Q:real;
begin
// memasukan nilai variabel
a:=StrToFloat(Edit1. Text);
b:=StrToFloat(Edit3. Text);
c:=StrToFloat(Edit2. Text);
// menghitung angka b^2-4ac
  d:= (b*b)-(4*a*c);
  If d= 0 then
begin
  label5. caption:='Mempunyai Satu Akar Real,X1=X2';
  X1:=(-b)/2*a;
  X2:=(-b)/2*a;
      edit4.text:=FloatToStr(X1);
      edit5.text:=FloatToStr(X2);
   end
else
   If d<0 then
begin
   label5. Caption:='Nilai X1';
   X1:=(-b/2*a);
   X2:=(sqrt (-1*d)/2*a);
edit4.Text:=FloatToStr(X1);
edit5.Text:=FloatToStr(X2) ;
end;
end;

end.

Source code Keluar

Close; {untuk keluar dari program}
end;


nah cukup sekian postingan materi dari saya, mungkin masih banyak kesalahan dalam postingan saya ini dan mehon koreksinya dari agan-agan yang sudah master. Karna saya masih newbie yg banyak kekuranga ^_^