Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





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

Автор: 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; 

           




Программы  |  Загрузка  |  Партнерство  |  О компании  |  Контакты

Copyright © LSD Software 2006 - 2011