Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Срочно! Как сделать округление числа типа real до 2-го знака? [D7, Win95/98]

Гость2 © (2005-05-31 10:28:00)
Как сделать округление числа типа real до 2-го знака после запятой (ес-но, средствами Делфи)?

anatolyk (2005-05-31 21:33:00) [1]
Вычитал в книге:
function TForm1.RoundEx(x:double; Precision:Integer): Double;
begin
Result := StrToFloat(FloatToStrF(X,ffFixed,14+Precision,Precision));
end;

Плохиш (2005-05-31 11:48:00) [2]
>Alex Konshin © (31.05.05 11:37) [5]
>И чему вас только в школе учат?

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

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

Alex Konshin (2005-05-31 11:37:00) [4]
Следующий вопрос будет: "А почему неправильно округляет?"

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

Гость2 (2005-05-31 11:05:00) [5]

> PS. Форум = Help?

Форум = Good Help!

Плохиш (2005-05-31 10:57:00) [6]
RoundTo

PS. Форум = Help?

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

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

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

Ega23 (2005-05-31 10:35:00) [8]
function Round2(Value:Double):Double; begin Result:=Round(Value*100)/100; end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »