Round/ru

From Free Pascal wiki
Revision as of 20:45, 22 March 2018 by Useroflazarus (talk | contribs)
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

См. также: