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

Вниз

Вопрос по кратности значений   Найти похожие ветки 

 
avgur   (2004-04-15 15:40) [0]

как сделать, что-бы значеник было кратным 5.
например если 16 то стало 15
        если 19 то стало 20


 
Ega23 ©   (2004-04-15 15:42) [1]

+ и - ?


 
Тимохов ©   (2004-04-15 15:42) [2]

вам самому вопрос ясен?


 
TUser ©   (2004-04-15 15:42) [3]

result:=5*round(Znachenik/5)


 
Reindeer Moss Eater ©   (2004-04-15 15:43) [4]

Val := Val - (Val Mod 5)


 
TUser ©   (2004-04-15 15:47) [5]

2[4]19~станет=20:)


 
han_malign ©   (2004-04-15 15:55) [6]

>[3],[4]
для целочисленных
const Step:integer=5;
var rest,Val: integer;

rest:=Val mod Step;
if(rest>=(Step+1) div 2)
then inc(Val,Step-rest)
else dec(Val,rest);

- будет все таки быстрее чем [3];
Для вещественых альтернаивы [3] нет...



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

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

Наверх




Память: 0.47 MB
Время: 0.022 c
1-1082012479
Secety
2004-04-15 11:01
2004.05.02
От Dfm к рабочей форме.


14-1081857387
Igorek
2004-04-13 15:56
2004.05.02
Записать изображение активного курсора в файл


11-1066369188
Ал
2003-10-17 09:39
2004.05.02
Как обработать нажатие F1 на любой форме?


1-1082207532
maxz
2004-04-17 17:12
2004.05.02
Как сделать, чтобы программа занимала меньше места в оперативке?


1-1082031444
Серг
2004-04-15 16:17
2004.05.02
Поиск в Excelевском документе