Quelltexte bitte immer in [ delphi] [ /delphi] Tags (ohne Leerzeichen) fassen.
Delphi-Quellcode:
.
.
repeat
b:=(a+b)/2;
a:=zahl/b
until
until... until was? Dir fehlt die Abbruchbedingung der Schleife, und das scheint mir ein geradezu vorzüglicher Platz zu sein, die Genauigkeit ins Spiel zu bringen.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)