Betrifft Function hier:
http://www.delphipraxis.net/498960-post2.html
Die
function SqrtHeron(r: Double; anz: Integer): Double;
ist falsch!
Richtig:
Delphi-Quellcode:
function SqrtHeron(r: Extended; anz: Integer): Extended;
var
i: Integer;
begin
result := 1; // Startwert
for i := 1 to anz do // Anzahl der Annäherungsdurchläufe
begin
result := 0.5 * (result + r/result); // Heron-Verfahren
end;
end;
procedure TForm1.Button20Click(Sender: TObject);
var val : Extended;
begin
val:= SQRTHERON(2.0,5);
Memo.lines.add(FloatToStrF(val, ffGeneral, 22, 20));
Memo.lines.add(FloatToStrF(SQRT(2.0), ffGeneral, 22, 20)); //eingebaute Function
end;