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

Срочно! Как сделать округление числа типа real до 2-го знака?   Найти похожие ветки 

← →
Гость2   (2005-05-31 10:28) [0]

Как сделать округление числа типа real до 2-го знака после запятой (ес-но, средствами Делфи)?

---

← →
Ega23 ©   (2005-05-31 10:35) [1]


function Round2(Value:Double):Double;
begin
Result:=Round(Value*100)/100;
end;


---

← →
Гость2   (2005-05-31 10:51) [2]

> Ega23 ©   (31.05.05 10:35) [1]

Большое спасибо!!!

---

← →
Плохиш ©   (2005-05-31 10:57) [3]

RoundTo

PS. Форум = Help?

---

← →
Гость2   (2005-05-31 11:05) [4]

> PS. Форум = Help?

Форум = Good Help!

---

← →
Alex Konshin ©   (2005-05-31 11:37) [5]

Следующий вопрос будет: "А почему неправильно округляет?"

Какое округление нужно? Хотя, что это я, если бы спрашивающий знал ответ на этот вопрос, то он бы и не задавал изначальный вопрос.
И чему вас только в школе учат?

---

← →
Anatoly Podgoretsky ©   (2005-05-31 11:40) [6]

Alex Konshin ©   (31.05.05 11:37) [5]
Может быть и другой вопрос, а почему не округляет. округление до N знаков психологический обман. Округление означает до круглого, целого. Остальное от лукавого. Не забывать также что речь про числа с плавающей запятой.

---

← →
Плохиш ©   (2005-05-31 11:48) [7]

>Alex Konshin ©   (31.05.05 11:37) [5]
>И чему вас только в школе учат?

Отдельные представители умудряются даже тому, чему учат, не научиться. К сожалению таких становиться всё больше :-(

---

← →
anatolyk   (2005-05-31 21:33) [8]

Вычитал в книге:
function TForm1.RoundEx(x:double; Precision:Integer): Double;
begin
 Result := StrToFloat(FloatToStrF(X,ffFixed,14+Precision,Precision));
end;

---

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

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



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