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



Автор: Alexandr Kordyum

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


Далее: Экспоненциальное распределение »»