round он же random

[[Smarik]]

странная вещь round, решил округлить число 1.5 с целью проверки как он округлит...потом проверил 2.5 и заметил странную вещь, он округляет как захочет тобишь 1.5 до 2-х и 2.5 тоже до 2-х, почему так?

edit1.Text:=IntToStr(round(1.5))+','+IntToStr(round(2.5))+','+IntToStr(round(3.5))+','+IntToStr(round(4.5));

[Alar]

Да именно так. потому для точных вычислений нужно использовать trunc - отбрасывание дробной части.

А где здесь random?

Для рандома есть специальный термин - условно случайное.

Вообще про точность в случайных числах говорить сложно

[eoln]

Вообще-то всё что вы изучали в школе по поводу округления - лишь приближение. По правилам число с половиной должно округляться до следующего целого, если целая часть нечётная, иначе до предыдущего
1,5 - 2
2,5 - 2
3,5 - 4
4,5 - 4

[Alar]

eoln, а как официально называется это правило?

[eoln]

Alar, увы не помню (или не знаю), но на численных методах в универе мы это проходили. Даже вопрос такой был на зачёте.

добавлено
вот тут нашёл упоминание об этом, правило называется №3

[[Smarik]]

мммм, теперь понятно, а то я никак не мог найти логики в его действиях.

[puporev]

Вы бы школьную алгебру учили нормально и тогда Америку бы не открывали.

[_Dmitry]

В "школьной" алгебре как раз всё однозначно: все половины округляются в большую сторону. Но если следовать этому правилу, то у бухгалтера никогда баланс не сойдётся. Поэтому, то, что написано выше называется бухгалтерским округлением.

Вот выдержка из help-а delphi для функции round

If X is exactly halfway between two whole numbers, the result is always the even number. This method of rounding is often called "Banker’s Rounding".

[puporev]

Извините, _Dmitrty, но не соглашусь. Вот выдержка из алгебры:

Правило 3
Если отбрасывается цифра 5, а за ней нет и никогда не было значащих цифр, то последняя из сохраняемых цифр остаётся неизменной, если она чётная, и увеличивается на 1, если она нечётная.

[Alar]

Нас учили в школе, давно это было, что 2.5 нужно округлять до 3-х. Но недавно узнал о такой особенности, как округление до четного, потому в будущем буду использовать только отбрасывание остатка после запятой - Trunc

Не думал, что про такую простую функцию, как Round, придется перечитывать справочник "Основы delphi"

_Dmitry, привожу вашу цитату на русском, или то что там имелось ввиду -

функция Round округляет число с плавающей запятой (Number) до целого значения.

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

12.4 округляется до 12
12.5 округляется до 12
12.6 округляется до 13

13.4 округляется до 13
13.5 округляется до 14
13.6 округляется до 14
http://delphibasics.ru/Round.php