4.00000 kein gültiger Fließkommawert ?

[Sharky]

Zitat von Neutral General:

...Wieso wird jetzt das Ergebnis so verfälscht ?

Weil Du es so programmiert hast

Zahl4 := Zahl4 + StrToFloat(Temp); Du addierst ja die Wurzel (in temp) zu deiner Zahl.

Richtig wäre also:

Delphi-Quellcode:

function Wurzel(Zahl4:Real) : Extended;
var
Temp : String;
ch_tmp : Char;
begin
   Str(Sqrt(Zahl4):5:4, Temp);
   ch_tmp := DecimalSeparator;
   DecimalSeparator := '.';
   result := StrToFloat(Temp);
   DecimalSeparator := ch_tmp;
end;

Aber warum überhaupt so kompiliert?

Delphi-Quellcode:

function Wurzel(Zahl4:Real) : Extended;
begin
  result := Sqrt(Zahl4);
end;