L脚本语言 二分法求平方根近似值

#scp
#二分法求平方根的近似值
定义:函数,平方根,number

定义:浮点数,ACCURACY,0.001

定义:浮点数,start,0

定义:浮点数,end,0

定义:浮点数,mid,0

定义:浮点数,tmp,0

定义:浮点数,result,0

end=number

当:1

mid=(start+end)/2.0

tmp=mid*mid

result=tmp-number

如果:(result<0),result=result*(-1)

如果:(result<=ACCURACY),返回:mid

如果:(tmp>number),end=mid

否则:start=mid

#显示:mid

#显示:start

#显示:end

#显示:tmp

结束

返回:-1

结束

定义:函数,主函数

定义:字符串,string1

定义:浮点数,ret,0

ret=平方根(100)

显示:ret

等待:用户输入,string1

结束