Функция представления чисел с плавающей точкой и нужным числом разрядов
Функция представления чисел с плавающей точкой и нужным числом разрядов. Пример: 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;