% program þu þekilde çalýþtýrýlýr
% ax^2+bx+c=0 denkleminin üç parametresi 
% [kok1,kok2]=kokbulma(a,b,c) þeklinde girilir ve kokler kok1 kok2
% deðiþkenlerine yazýlýr
function [kok1,kok2]=kokbulma(a,b,c)
if (b^2-4*a*c)<0 %kompleks mi deðil mi ona bakýyor
    disp('delta sýfýrdan küçük, kökler kompleks olacaktýr');
end
if (b^2-4*a*c)==0 
    disp('delta sýfýr iki kök birbirine eþittir');
end
if a==0
    disp('Denklem aslýnda birinci derecedendir, tek kök vardýr');
    kok1=-c/b;
    kok2=-c/b;
else
    kok1=(-b+sqrt(b^2-4*a*c))/(2*a);
    kok2=(-b-sqrt(b^2-4*a*c))/(2*a);
end


