Как округлить число вверх до первого, которое делится на 5.

← →
Dmitry (2004-12-26 19:49) [0]

Необходимо округлять вот таким образом:
1 --> 5
2 --> 5
3 --> 5
5 --> 5
7 --> 10
11--> 15
12-->15
13-->15
14-->15
15-->15
16-->20
Подскажите как это сделать.

← →
Svit © (2004-12-26 19:57) [1]

ничего другого в голову не пришло
var s: string; begin s := inttostr(i); case strtoint(s[Length(s)]) of 1: i := i + 4; 2: i := i + 3; 3: i := i + 2; 4: i := i + 1; 6: i := i + 4; 7: i := i + 3; 8: i := i + 2; 9: i := i + 1; end; end;

← →
Svit © (2004-12-26 20:04) [2]

во
while (i mod 5 <> 0) do inc(i);

← →
Leonid Troyanovsky © (2004-12-26 20:12) [3]

> Svit © (26.12.04 20:04) [2]
> while (i mod 5 <> 0) do inc(i);

(i + 4) div 5 * 5

--
Regards, LVT

Круто=)

← →
Dmitry (2004-12-27 00:25) [5]

Спасибо! Спасли!

Как округлить число вверх до первого, которое делится на 5. Найти похожие ветки