Срочно! Как сделать округление числа типа 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]

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

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

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

>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;

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