Функция представления чисел с плавающей точкой и нужным числом разрядов

Written on 15 Октября 2007. Posted in [Delphi] Алгоритмы

Функция представления чисел с плавающей точкой и нужным числом разрядов.
Пример: Conv(2.005,2) возвращает 2.01; Conv(2.5,0) возвращает 3.

function Conv(cs: double; numb: integer): double;
var db, db1, db2: double;

i: int64;

ii, ink, i1: integer;

st: string;

begin

db:=cs-int(cs);

ink:=1;

for ii:=1 to numb do ink:=ink*10;

db1:=db*ink;

db2:=cs*ink*100;

i:=trunc(int(db2)/100);

i1:=trunc(db2-i*100);

if i1>49 then inc(i);

result:=i/ink;

end;