Операции с вещественными числами (Паскаль)

round (x);

Округление до ближайшего целого числа

int (x);

Вычисление целой части числа

Var x: real;

Begin

write (‘Введите вещественное число: ’);

read (x);

writeln (‘Отбрасывание дробной части числа: ’, trunc (x));

writeln (‘Округление до ближайшего целого числа: ’, round (x));

writeln (‘Вычисление дробной части числа: ’, frac (x));

writeln (‘Вычисление целой части числа: ’, int (x))

End.

Введите вещественное число: 4.599

Отбрасывание дробной части числа: 4

Округление до ближайшего целого числа: 5

Вычисление дробной части числа: 0.599

Вычисление целой части числа: 4