PAD

\( f(x,a) = 0\) の解を求める（逐次近似法） PAD【f(x,a)は関数で定義，aは定数】
Start
Double型変数Erの宣言と初期化(D2セル)
Double型変数aの宣言と初期化(B2セル)
Double型変数xHiの宣言と初期化(B3セル) xHi：探査範囲の上限値
Double型変数xLoの宣言と初期化(B4セル) xLo：探査範囲の下限値
Double型変数x宣言と探査範囲の中間(1/2)位置で初期化
Double型変数epsの宣言	L の値を 1 増やす．
Long型変数Lの宣言と 0 で初期化	f(x,a) は 0 より大きい．	x の値で xHi を更新．
eps が Er より大きくかつ L が 1000 より小さい間		x の値で xLo を更新．
xの表示(B5セル)	探査範囲の中間(1/2)位置でx を更新．
Lの表示(B6セル)	f(x,a) の大きさ（絶対値）で eps を更新．
End

関数　\( f(x,a) = x^2 - a \)　の定義
Function f(ByVal x As Double, ByVal a As Double) As Double
　f = x ^ 2 - a
End Function