Simulaでこの処理を書いてみたらいいとおもうよ。
Smalltalkとの実用性の差は歴然。

お題：√2 を小数点以下1000桁まで展開せよ?

ちなみにSmalltalkではこんな感じ。

| x epsi delta |
x := 1.
epsi := 1/(10 raisedTo: 1000).
[(delta := -2 * x * x + 1 * x / 2) abs > epsi] whileTrue: [x := x + delta].
^x * 2s1000

ideone (GNU Smalltalk) だと駄目だけど、VisualWorks、Squeak、Pharo で動く。