Перейти к публикации

Округление числа с требуемой кратностью.


Рекомендованные сообщения

Здравствуйте!

Подскажите, пожалуйста, как написать макрос на Visual Basic (файл *.BAS) или может уже существует такой макрос для ST4, чтобы округление числа производилось до кратности 5 (точность до которого требуется округлить) т.е. пример: 3,852 ~ 5; 4,9 ~ 5; 5,1 ~ 10.

Данный макрос можно сравнить с функцией в Excel ОКРВВЕРХ(число; точность)

Число — это округляемое значение. Точность — это кратное, до которого требуется округлить.

Ссылка на сообщение
Поделиться на других сайтах


Здравствуйте!

Подскажите, пожалуйста, как написать макрос на Visual Basic (файл *.BAS) или может уже существует такой макрос для ST4, чтобы округление числа производилось до кратности 5 (точность до которого требуется округлить) т.е. пример: 3,852 ~ 5; 4,9 ~ 5; 5,1 ~ 10.

Данный макрос можно сравнить с функцией в Excel ОКРВВЕРХ(число; точность)

Число — это округляемое значение. Точность — это кратное, до которого требуется округлить.

Не знаю бейсик, но алгоритм простой:

Х - число

У1 = Х div 5 - частное от деления на 5

У2 = Х mod 5 - остаток от деления на 5

если У2 > 0 то У2 = 1

У = 5 * (У1+У2)

Но из-за ограниченной точности представления чисел я б считал так:

у1 = целое (х)

у1 = у1 / 5

у2 = х - (вещественное) 5 *у1

если у2 > 0 то у3 = целое (1)

у = 5 * (у1+у3)

Изменено пользователем Tiro
Ссылка на сообщение
Поделиться на других сайтах

Присоединяйтесь к обсуждению

Вы можете опубликовать сообщение сейчас, а зарегистрироваться позже. Если у вас есть аккаунт, войдите в него для написания от своего имени.
Примечание: вашему сообщению потребуется утверждение модератора, прежде чем оно станет доступным.

Гость
Ответить в тему...

×   Вставлено в виде отформатированного текста.   Вставить в виде обычного текста

  Разрешено не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отобразить как ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставить изображения напрямую. Загрузите или вставьте изображения по ссылке.

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу.




×
×
  • Создать...