Разное
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Delphi - База Знаний: Округление целого числа до 5
function Round5(ValueRound: integer): integer;
var chislo, rez: integer;
begin
chislo := strtoint(copy(inttostr(ValueRound), length(inttostr(ValueRound)), 1));
case chislo of
0, 5: rez := ValueRound;
1, 2: rez := ValueRound - chislo;
3, 4: rez := ValueRound + (5 - chislo);
6, 7: rez := ValueRound - (chislo - 5);
8, 9: rez := ValueRound + (10 - chislo);
end;
result := rez;
end;