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

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;

С уважением, Александр. [000897]

Содержание раздела

---

---