Round/ru

From Lazarus wiki
Revision as of 19:39, 18 January 2018 by Useroflazarus (talk | contribs) (Created page with "Модуль System, входящий в состав RTL, содержит функцию '''Round''', которая округляет зна...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

Модуль System, входящий в состав RTL, содержит функцию Round, которая округляет значение типа real до значения типа integer. Её входным параметром является выражение вещественного типа, и Round возвращает значение типа longint, округленное до ближайшего целого числа. Если входное значение находится точно посередине между двух целых чисел - N.5 - то используется "банковское округление", в результате которого значение округляется до ближайшего четного числа.

Объявление:

function Round(X: Real): Longint;
begin
   WriteLn( Round(8.7) );
   WriteLn( Round(8.3) );
   // примеры "банковского округления" - .5 округляется до ближайшего четного числа
   WriteLn( Round(2.5) );
   WriteLn( Round(3.5) );
end.

Выход:
9
8
2
4

См. также: