@kititnikx

Алгоритм округления на Pascal?

Всё бы хорошо, но использовать можно только: /, *, +, -, mod, div, if, while, for, степень, корень. Без всяких Round, Frac, Trunc. Приведение типов тоже нельзя использовать. И было бы хорошо обойтись без циклического прибавления на один, пока число меньше заданного. Не уверен, что это вообще реально)

Ввод: 7,56
Вывод: 8

Ввод: 9,4
Вывод: 9
  • Вопрос задан
  • 160 просмотров
Решения вопроса 1
HemulGM
@HemulGM
Delphi Developer, сис. админ
По тупому можешь просто while запустить, пока не получишь число больше твоего на единицу.
Это у тебя получился Floor. Округление в большую сторону.
Если надо математическое округление, то вычти число из найденного. Получишь дробную часть. Потом проверь больше ли оно 0.5 тогда +1, в противном случае остаётся таким же.
Ответ написан
Пригласить эксперта
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы