Округление вещественного числа до сотых Опции

[Jeeb]

Доброго времени суток всем!

Есть задачка...

В ней надо округлить Y:real до сотых. Как это осуществить? не врубаюсь...

Зранее спасибо...

[volvo]

Что значит "округлить"? При выводе или как?

Если при выводе, то:

Var x: Real;
begin
  x := 1.2345;
  WriteLn('x = ', x:6:2); { Вторая цифра - количество знаков для округления }
end.

А можно так:

Var
  Y: real;
Begin
  Y := Trunc(Y*100) / 100;
End;

- получаешь то же число, округленное до сотых... (хотя могут быть и накладки, ведь Trunc просто отсекает дробную часть, фактически не округляя)