| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Dmitry ©   (2004-12-26 19:49:00) 

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

---

Dmitry   (2004-12-27 00:25:00) [1]

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

---

Svit   (2004-12-26 20:27:00) [2]

Круто=)

---

Leonid Troyanovsky   (2004-12-26 20:12:00) [3]

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


(i + 4) div 5 * 5

--
Regards, LVT

---

Svit   (2004-12-26 20:04:00) [4]

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

---

Svit   (2004-12-26 19:57:00) [5]

ничего другого в голову не пришло
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;

---

Наверх