Berechnung eines Wertes aus Widerstandsreihe

[marabu]

Hallo Frank,

etwas kompakter - wenn dich die höheren Rechenarten nicht stören - geht es so:

Delphi-Quellcode:

uses
  Math;

function Norm(e: Extended; var dExp: Integer): Extended;
begin
  dExp := Ceil(Log10(e)) - 3;
  Result := e / Power(10, dExp);
end;

Freundliche Grüße