|
Registriert seit: 17. Jun 2006
Ort: Bautzen
503 Beiträge
FreePascal / Lazarus
|
Re: Ganze Zahl runden
11. Feb 2007, 23:03
um 1378 z.B. zu runden:
Delphi-Quellcode:
uses math;
var zahl: real;
level: integer;
zahl:=1378;
level:=2;
zahl:=zahl*Power(10,-level);
zahl:=Round(zahl);
zahl:=zahl*Power(10,level);
ungetestet aber könnte funktionieren... wenn nicht und du kannst dir nicht erklären warum nicht, dann einfach nochmal posten!
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg
|