wurzel formel

[Matze]

Diese Funktion steht doch oben schon fast genauso.

In Delphi kenne ich root als vordefinierte Funktion ebenfalls nicht, aber das ist ja nicht schlimm.

[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.

[sirius]

Zitat von fLaSh11:

ich könnte schwören, dass es diese Funktion in unserer TurboPascal Version in der Schule gab...

Ich könnte schwören, dass mein Turbo Pascal 6.0 (was hier immernoch auf 3 3,5" DD-Disketten rumliegt) weder root noch power hatte. Ich habe mir mit ln und exp immer einen abgebrochen, wenn ich es denn mal brauchte.