Советы по 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;

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



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