がくーん!! 停止条件のとこと、Nの計算のとこだけ変えてみました。 表示上のつごうで閾値を 1e-7 にしてます。 a=pi() l=0:n=49:h=99 while (h-l)>=1e-7:?n;"?", if n<a then l=n:?" small" else h=n:?" big" endif n=(h+l)/2 wait 20 wend:?n;"? ok"