Delphi

Delphi – 2. Dereceden 1 Bilinmeyenli Denklem

Merhabalar, bu makalemde Delphi de 2. Dereceden 1 bilinmeyenli denklemin çözümünün kodlarını paylaşacağım.

Öncelikle formunuzu aşağıdaki resimdeki gibi tasarlamanız gerekmektedir.
w9

Bu işlemden sonra matematiksel işlemleri yapmak için kod tarafınızda “uses” kısmına “Math” kütüphanesini eklemeniz gerekmektedir.

Bu işlemden sonra kod tarafınızdaki “implementation” ın altına

var

a,b,c:integer;

x1,x2,delta:Double;

kodlarını eklemelisiniz.

Hesapla butonunuzun click eventine aşağıdaki kodları ekleyebilirsiniz. Nesnelerin namelerini kendinize göre düzenleyebilirsiniz.

a:=strtoint(edit1.text);

b:=strtoint(edit2.text);

c:=strtoint(edit3.text);

 

 

if checkbox2.Checked then b:=-b;

if checkbox4.Checked then c:=-c;

delta:=((b*b)-(4*a*c));

 

if delta < 0 then

form1.caption:='Denklemin Real Kökü Yok!'

else if delta > 0 then begin

x1:=(-(b)+(Sqrt(delta)))/(2*a);

x2:=(-(b)-(Sqrt(delta)))/(2*a);

form1.caption:='(X1,X2)= (' +floattostr(x1)+'),('+floattostr(x2)+')';

Label7.caption:='('+FloatToStr (x1)+','+FloatToStr (x2)+')';

end else

begin

x1:=(-b/(2*a));

x2:=(-b/(2*a));

form1.caption:='&&&(X1,X2)= (' +floattostr(x1)+'),('+floattostr(x2)+')';

Label7.caption:='('+FloatToStr (x1)+','+FloatToStr (x2)+')';

end;
 

Ekstra olarak formunuzu “Temizle” butonunun click eventine aşağıdaki kodlarını ekleyerek temizleme işlemi yapabilirsiniz.
 

edit1.Clear;

edit2.Clear;

edit3.Clear;

label7.Caption:='(x1,x2)';

form1.caption:='2. Dereceden Denklem Çözümü.';

Kodlar için Utku Berk Taşkınsoy’a teşekkür ediyorum.

 

 

 

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir