wurzel formel

[Clobber the mob]

Delphi-Quellcode:

function SqRoot (zahl : extended) : extended;
var
  a : extended; i : integer;
begin
  a := 2;
  for i := 1 to 100000 do
   begin
    a := (a + zahl / a) / 2;
   end;
  result := a;
end;

Nach Heron Verfahren.