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

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

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

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

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

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

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

А можно так:

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

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

спасибо! как раз это и надо было!

спасибо, и мне помогли
как раз это искала:
"Если при выводе..."

допустим создаем переменную q:real;
теперь пишем q:=y:0:2 (если до сотых)
то есть выбираете цифру-сколько нужно цыфр после запятой,и пишите,как показано выше