profile="http://gmpg.org/xfn/11"> Round() pascal. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Round() pascal.

Round() pascal.
Функция Round() возвращает округленное до целого число от аргумента.

program Round_Task;
  // Round(x) pascal
var
  i_NUm: integer;
  r_NUm: real;
begin
  r_NUm := 2.889;
  i_NUm := Round(r_NUm);
  //Вывод на экран MININT
  Writeln('Результат округление до целого числа: ', i_NUm, ' от ', r_NUm: 4: 2);
  r_NUm := 7.124;
  i_NUm := Trunc(r_NUm);
  //Вывод на экран MININT
  Writeln('Результат округление до целого числа: ', i_NUm, ' от ', r_NUm: 4: 2);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:
Round pascal
Round () pascal.

Комментарии запрещены.