Округление до ближайшего большего/меньшего

[kta87]

Есть множество действий ну я не буду весь код писать, просто вот на примере

begin
 a:= (t*c+i)/k

Но при ComboBox.itemindex 0 нужно а округлить до ближайшего меньшего, а при ComboBox.itemindex 1 , до ближайшего большего соответственно!
Подскажите как это реализовать, реализовать округление!

[_Санек_]

В delphi есть функции int(x), dec(x), inc(x), можно делить нацело div

[Serge_Bliznykov]

до ближайшего меньшего целого:

a := int((t*c+i)/k);

до ближайшего большего целого:

a := round(((t*c+i)/k) + 0.5 );

[kta87]

round(a) - до ближайшего большего
trunc(a) - до ближайшего меньшего
Вот и все!

[Serge_Bliznykov]

round(a) - до ближайшего большего

или Вы ошибаетесь, или у нас разные понятия, что такое "ближайшее большее"
5.25 - для этого числа какое ближайшее большее?!!

[kta87]

Ближайшее большее целое 6

[Serge_Bliznykov]

Ближайшее большее целое 6

ну, согласен.
Тогда Вы ошибаетесь, когда пишете:

round(a) - до ближайшего большего

round(5.25) вернёт 5

а вот если посмотрите на то, решение, что я предложил в пост #3

до ближайшего большего целого:

Код:

a := round(((t*c+i)/k) + 0.5 );

a := round(a + 0.5)
вернёт: round(5.25 + 0.5) = round(5.75) = 6

что и требовалось!

[KobolD]

можно всегда вычислять ближайшее меньшее a := int((t*c+i)/k); и если ComboBox.itemindex = 1 то a:=a+1
(то есть ближайшее большее есть ближайшее меньшее плюс один)

[Stilet]

Я что-то не понял а RoundTo из модуля Math с установкой SetRoundMode(rmDown) уже отменили?

[Serge_Bliznykov]

Сообщение от Stilet

Я что-то не понял а RoundTo из модуля Math с установкой SetRoundMode(rmDown) уже отменили?

У кого-то, может и отменили, а у кого-то (например, у меня) в Delphi 5 нет такой функции...
Поэтому и приходится обходится тем, что есть...

Сообщение от KobolD

(то есть ближайшее большее есть ближайшее меньшее плюс один)

ага. согласен. Так можно.

Кстати, ко всем форумчанам маленький занимательный вопрос.
для числа 5.000 каковы ближайшее меньшее целое и ближайшее большее целое?!