f1=function(a,b,c,x1,x2)
{
cat(a," x^2+",b,"x+",c,"\n")
cat("在整數",x1,"與",x2,"之間")
z1=a*x1^2+b*x1+c
z2=a*x2^2+b*x2+c
if (z1*z2 <0) {
x=(x1+x2)/2
repeat
{
y=a*x^2+b*x+c
if ( abs(y)==0 ) break
x3=(x1+x2)/2
if (z1*y<0)
{
x2=x
}
else if (z2*y<0 ) {
x1=x
}
x=x3
}
cat("有根",x,"\n")
}else{
cat("之間不存在實根或超過一個實根","\n")
}
}
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.126.64.108