REAL, округление до сотых
собственно сабж. Забыл как делать, мож кто подскажет? До десятых, сотых и т.д.
Умножь на 100, округли до целого, и подели на сто. !
RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24
RoundTo(1.234, -2) 1.23
RoundTo(1.235, -2) 1.24
RoundTo(1.245, -2) 1.24
спасибо всем огромное!
2-м вариантом не пользовался, а вот 1-й интересно, я бы так же сделал :)
2-м вариантом не пользовался, а вот 1-й интересно, я бы так же сделал :)
А я бы воспользовался форматированным выводом:
writeln([переменная]:a:b),
где а - общее количество символов
b - количество знаков после запятой
простенько и работает
writeln([переменная]:a:b),
где а - общее количество символов
b - количество знаков после запятой
простенько и работает
Спасибо! Как раз сейчас применил. Я и не знал о такой штуке :)
А вот roundTo не работает в ТП7. Это из БП?
А вот roundTo не работает в ТП7. Это из БП?
в турбе нет roundto
а как вы real числа выводили? без :a:b они выводятся мантиссой и порядком
имхо неэстетично
а как вы real числа выводили? без :a:b они выводятся мантиссой и порядком
имхо неэстетично
будешь смеяться - раньше не приходилось работать с плавающей запятой :) Округлял до целого...