Soru = ikinci dereceden bir bilinmeyenli denklemin köklerini bulan programı prosedürde yapınız          ( ∆=b 2 *4ac ∆<0 ise “Kök Yok”  / ∆=0 ise x1=-b/(2*a) x1=x2 / ∆>0 ise x1=(-b+√∆) / 2a , x2=(-b-√∆)/ 2a )

Şekli :

Kodlar :

Procedure deltahsp(x,y,z:integer); 
Var 
delta:real; x1,x2:real;
Begin 
delta:=0;
delta:=sqr(y)-(4*x*z);
if delta<0 then showmessage('Reel Kök Yok')
else if delta=0 then 
begin 
x1:=-y/(2*x);
showmessage('Tek Kök Var x1=x2 = '+ floattostr(x1));
end 

else begin 
x1:=(-y+sqrt(delta))/(2*x);
x2:=(-y-(sqrt(delta)))/(2*x);
showmessage('İki Kök Var : x1 = ' + floattostr(x1) + ' x2 = ' + floattostr(x2));
end; 
end; 

Procedure TForm1.Button1Click(Sender: TObject); 
var 
a,b,c:integer;
begin 
a:=strtoint(inputbox('A Değeri','A Değerini Giriniz',''));
b:=strtoint(inputbox('B Değeri','B Değerini Giriniz',''));
c:=strtoint(inputbox('C Değeri','C Değerini Giriniz',''));
deltahsp(a,b,c);
end;

Çalışma Şekli :

İki bilinmeyenli denklemin çözümü için 3 tane sayı girmemiz gerekiyor ve bu 3 sayıyı girdikten sonra iki bilinmeyenli denklemin formülü sayesinde çözüme kolayca ulaşarak sonucu ekrana bildirir.