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

Меню сайта

Мини-чат

Категории

Алгоритмы [95]

API [111]

Pascal [153]

Базы Данных [173]

BDE [0]

Интернет [0]

Мультимедия [0]

Аппаратное обеспечение [0]

Операционная система [0]

Компоненты [0]

Классы [0]

OLE+ [0]

Миграция [0]

Ошибки [0]

DLL [0]

Продукты третьих фирм [0]

Разное [0]

События [0]

Главная » Статьи » Не стандартные примеры на 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;

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

Категория: Алгоритмы | Добавил: DelphiAiX (28.04.2012)

Просмотров: 584 | Рейтинг: 0.0/0

Всего комментариев: 0

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]

Все материалы размещенные на сайте пренадлежат их владельцам и предоставляются исключительно в ознакомительных целях.
Администрация ответственности за содержание материала не несет и убытки не возмещает.
По истечению 24 часов материал должен быть удален с вашего компьютера.
Незаконная реализация карается законами РФ и Украины : "Об авторском и смежном праве".
При копировании материала, ссылка на сайт обязательна! Сделать бесплатный сайт с uCoz | Карта сайта | Карта форума