Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c