clc
a=input('a= :');
b=input('b= :');
c=input('c= :');
d=input('d= :');
e=input('e= :');
f=input('f= :');
found=0;
bas=-10;
son=10;
step=0.01;
while (found==0)
for x=bas:step:son
    sonuc=a*x^5+b*x^4+c*x^3+d*x^2+e*x+f;
    if sonuc>-0.01 && sonuc <0.01
        disp(' Bu fonksiyonu sa?layan de?er : ') 
        x
        sonuc
        bas
        son
        step
       
        found=1;
        break;
    end
end
if found==0
    step=step/10;
    bas=bas*2;
    son=son*2;
end
end