Home » Tipps & Tricks » Mathematik » Arithmetik » Zahl bis zu einer bestimmten Stelle runden
Zahl bis zu einer bestimmten Stelle runden
Hier bieten sich, je nach Aufgabenstellung, mehrere Möglichkeiten an.Ohne Runden:
uses Math,...; function RoundToPointPosition(Number : Extended; PointPos : Byte): Extended; Var Multi:Integer; begin Multi:=Trunc(IntPower(10,PointPos)); Result := Trunc(Number * Multi)/Multi; end;
Mit Runden
uses Math,...; function RoundToPointPosition(Number : Extended; PointPos : Byte): Extended; Var Multi:Integer; begin Multi:=Trunc(IntPower(10,PointPos)); Result := Round(Number * Multi)/Multi; end;
Mit
function RoundToPointPosition(Number : Extended; PointPos : Byte): String; Begin Result:=FloatToStrF(Number,ffFixed,10,PointPos); End;
kann das Ergebnis in einen entsprechenden String umgewandelt werden.