округление

← →
Archy (2006-04-26 19:04) [0]

как млжно округлить результат делени до 3-х знаков после запятой?

← →
Джо © (2006-04-26 19:08) [1]

RoundTo, SimpleRoundTo или "руками": умножаешь на 1000, отбрасываешь дробную часть (Trunc), делишь на 1000.

← →
Archy (2006-04-26 19:18) [2]

как работает RoundTo, SimpleRoundTo?

← →
Джо © (2006-04-26 19:22) [3]

> [2] Archy (26.04.06 19:18)
> как работает RoundTo, SimpleRoundTo?

[b]Нормально, согласно спецификации.[/b]

← →
Archy (2006-04-26 19:26) [4]

> Нормально, согласно спецификации.

нет, я имею в виду как его применять?
к примеру :
a:0.526538721653
и чтоб его по правилам округлить куда в код вписывается
RoundTo, SimpleRoundTo

← →
Джо © (2006-04-26 19:35) [5]

> [4] Archy (26.04.06 19:26)
>
> > Нормально, согласно спецификации.
>
> нет, я имею в виду как его применять?

Посмотреть справку по ним это, конечно, дольше, чем ждать в форуме ответов?
A := 0.526538721653; ShowMessageFmt ("%.5f",[SimpleRoundTo(A,-3)]); ShowMessageFmt ("%.5f",[RoundTo(A,-3)]);

Обрезание, а не округление, можно, как я и говорил, сделать руками так, как нравится, например, так:

function TruncTo (const A: Double; Digits: Integer): Double; var Base: Double; begin Base := IntPower(10,Digits); Result := Trunc(A*Base)/Base end;

Пример:

ShowMessageFmt ("%.5f",[TruncTo(A,3)]);

← →
Archy (2006-04-26 19:39) [6]

Спасибо.....!
да мне обрезание не нужно :)

> Archy (26.04.06 19:39) [6]
> Спасибо.....!
> да мне обрезание не нужно :)

Ну вот, а я ножик уже наточил :)

и посмотреть вот это
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=1217

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