Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Округление вещественного числа до сотых

Автор: Jeeb 7.02.2006 2:35

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

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

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

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

Автор: volvo 7.02.2006 2:44

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

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

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

А можно так:

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

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

Автор: Jeeb 7.02.2006 14:08

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

Автор: Гость 9.12.2014 14:04

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

Автор: Ulyana 14.10.2017 17:25

Цитата(Jeeb @ 7.02.2006 2:35)

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