Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.16;
Скачать: CL | DM;

Вниз

Как округлить число вверх до первого, которое делится на 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


 
Svit ©   (2004-12-26 20:27) [4]

Круто=)


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

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



Страницы: 1 вся ветка

Текущий архив: 2005.01.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
3-1103005982
Mefodiy
2004-12-14 09:33
2005.01.16
Пустой DBGrid при подключении к Oracle через dbExpress


1-1104034380
Viktop
2004-12-26 07:13
2005.01.16
По какому рисунку был сделан клик?


3-1102679847
Lost3000
2004-12-10 14:57
2005.01.16
Нет русского при закачке файла DBF (FoxPro 2.6)


1-1103616175
kull
2004-12-21 11:02
2005.01.16
Существует ли проблемма?


14-1104155033
blackman
2004-12-27 16:43
2005.01.16
Оскорбляет ли Вас празднование в Москве юбилея императора Наполео