Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.07.18;
Скачать: CL | DM;

Вниз

Округление чисел   Найти похожие ветки 

 
PIF   (2005-06-29 17:59) [0]

Здравствуйте! Скажите пожалуйста, как округлить число до  заданного
количества значащих цифр после запятой, которое(т.е. число значащих цифр)задает пользователь.
Заранее благодарен!!!


 
Ega23 ©   (2005-06-29 18:21) [1]

Умножить на 10 в степени заданного количества значащих цифр после запятой, округлить до целого, разделить на 10 в степени заданного количества значащих цифр после запятой.

А вообще - RoundTo


 
TStas ©   (2005-06-29 19:07) [2]

function RoundToN(r:Real, n:Byte):real; //Знаков, сколько введется
var
  i:byte;
  m:Integer;
begin
m:=1;
for i:=1 to n do m:=10*m;
Resul:=m*r;
Result:=round(Result)/m;
end;


 
PIF   (2005-06-29 21:29) [3]

Спасибо за помощь!!!



Страницы: 1 вся ветка

Текущий архив: 2005.07.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.029 c
3-1117704486
Kerim_
2005-06-02 13:28
2005.07.18
ADO - удаление записей из связанных таблиц


8-1111349902
qwertyuiop
2005-03-20 23:18
2005.07.18
DirectDraw.pas чего-то не компилируется в Delhi7


3-1118300903
Антоныч
2005-06-09 11:08
2005.07.18
Запрос в БД Access, защищенную паролем


3-1117878710
Peter_cc
2005-06-04 13:51
2005.07.18
Отображение мемо в Qreport


3-1118291495
_oleg
2005-06-09 08:31
2005.07.18
Добавление столбца в таблицу InterBase