Hallo,
wie kann ich eine periodische Zahl runden?
z.B. solcher Zahl 0,0122726666666667 (z.B. Runden auf 0,022726) oder solcher Zahl 0,125238888888889 (z.B. Runden auf 0,125238).
Ich möchte kein RoundTo verwenden, weil ich mich dann festlegen muss, wann gerundet werden muss. Aber es soll ja nur die periodische Zahl gerundet werden, und da weiß ich nicht, ab wann er auftritt.
Ich habe folgenden Code geschrieben, der aber noch nicht immer richtig funktioniert:
Delphi-Quellcode:
function periodische_Zahl_runden(input: string; periode:integer=3): string;
var
a: integer;
treffer: integer;
neue_zahl : string;
begin
if (pos(',',input) <= 0) AND (pos('.',input) <= 0) then begin result := input; exit; end; // Nur bei Dezimalzahlen
//periode := 3; // wenn dreimal hintereinander die Zahl
treffer := 0;
for a := 1 to length(RemoveLastChar(input)) do
begin
if input[a] = input[a+1] then begin treffer := treffer+1; end else begin treffer := 0; end;
if treffer >= periode then begin
neue_zahl := copy(input,0,a-periode+1);
break;
end;
end;
if treffer < periode then begin
neue_zahl := input;
end;
result := neue_zahl;
end;
Delphi-Quellcode:
//ShowMessage( periodische_Zahl_runden('151.111324111111111') ); // OK
//ShowMessage( periodische_Zahl_runden('123,215') ); // OK
//ShowMessage( periodische_Zahl_runden('80170000000') ); // OK Keine Periodische Zahl
//ShowMessage( periodische_Zahl_runden('0,220027777777778') ); // OK
ShowMessage( periodische_Zahl_runden('0,0000004379') ); //keine periodische Zahl - Wird zu früh abgeschnitten
Wie kann man den Code verbessern?