Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.031 c
1-1082060546
lipskiy
2004-04-16 00:22
2004.05.02
Глюк 7-ой дельфы?


14-1081411922
vopros
2004-04-08 12:12
2004.05.02
Слетал я в Киев на выходных.Понравилось обалденно.


6-1077853402
Delpher_Gray
2004-02-27 06:43
2004.05.02
WinSock сервер, события


1-1082109103
СП
2004-04-16 13:51
2004.05.02
TForm


1-1082122419
ss300
2004-04-16 17:33
2004.05.02
Ctrl+ a




   Наверх