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

Question

[kititnikx]

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

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

Ввод: 9,4
Вывод: 9

Answer 1

[Hemul GM]

По тупому можешь просто while запустить, пока не получишь число больше твоего на единицу.
Это у тебя получился Floor. Округление в большую сторону.
Если надо математическое округление, то вычти число из найденного. Получишь дробную часть. Потом проверь больше ли оно 0.5 тогда +1, в противном случае остаётся таким же.

Comments

[kititnikx]

А если число будет слишком большим? Можно обойтись как-то без циклического прибавления на один?

[Hemul GM]

kititnikx, ну думай. Пораскинуть мозгами надо