Помогите! Срочно! Работа с делфи существует форма в ней имеется 2 поля для ввода чисел нужно выполнить несколько расчетов(расчитать + и -), а затем с помощью отдельной формы которую мы вызываем через меню команд нужно сделать т...
Помогите! Срочно! Работа с делфи существует форма в ней имеется 2 поля для ввода чисел нужно выполнить несколько расчетов(расчитать + и -), а затем с помощью отдельной формы которую мы вызываем через меню команд нужно сделать точность расчета в поле с ответом... помогите как с помощью 2 формы округлить значение (до скольки знаков округлять нужно самим задать)
Гость
Ответ(ы) на вопрос:
ГостьЕсть специальная функция для округления с точностью до определённого разряда: RoundTo(). Она объявлена в модуле Math.
var
Res, Num : Extended;
begin
//Округление до сотых долей:
Res := RoundTo(Num, -2);
//Округление до десятых долей:
Res := RoundTo(Num, -1);
//Округление до единиц:
Res := RoundTo(Num, 0);
//Округление до десятков:
Res := RoundTo(Num, 1);
//Округление до сотен:
Res := RoundTo(Num, 2);
end;
Функция SimpleRoundTo() сходна с RoundTo() – различие лишь в способе округления последнего знака. SimpleRoundTo() округляет последнее число в большую сторону, а RoundTo() использует так называемое банковское округление, приводя число к ближайшему четному
Не нашли ответ?
Похожие вопросы