Round/ru

From Free Pascal wiki
Revision as of 09:06, 10 August 2019 by Useroflazarus (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigationJump to search

Deutsch (de) English (en) Esperanto (eo) suomi (fi) русский (ru)

Модуль 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

См. также