Текущий архив: 2005.06.06;
Скачать: CL | DM;
Вниз
число сделать наибольшим числом кратным 10. Найти похожие ветки
← →
Cat © (2005-05-19 18:51) [0]Есть число 124 нужно сделать его наибольшим числом кратным 10.
т.е 130.
Как лучше реализовать такой алгоритм
← →
Ega23 © (2005-05-19 18:56) [1]
function A(const aVal:Integer):Integer;
begin
Result:=aVal + ( 10 - (aVal mod 10));
end;
← →
begin...end © (2005-05-19 18:59) [2]Для положительного числа:
J := (I div 10) + Ord(I mod 10 <> 0)
← →
Ega23 © (2005-05-19 19:00) [3]не, не так:
function A(const aVal:Integer):Integer;
begin
if (aVal mod 10)=0 then Result:=aVal
else
Result:=aVal + ( 10 - (aVal mod 10));
end;
← →
Чапаев © (2005-05-19 21:36) [4]
while a mod 10<>0 do Inc(A);<-- вот это я извращенец!
← →
Sha © (2005-05-19 21:44) [5]i:=i+9; dec(i,i mod 10);
← →
тихий вовочка © (2005-05-19 22:33) [6]Я делил на десять. Рез-т округлял в большую сторону (Ceil). И умножал на 10.
124
12.4
13
130
← →
Eraser © (2005-05-19 22:37) [7]тихий вовочка © (19.05.05 22:33) [6]
intResult := Ceil(125 / 10 * 10);
← →
raidan © (2005-05-19 23:38) [8]>Чапаев © (19.05.05 21:36) [4]
Афтар, выпей йаду! :)
>Sha © (19.05.05 21:44) [5]
Респект :)
Ваш вариант все-таки чуть-чуть быстрее чем у Ega23 :)
Страницы: 1 вся ветка
Текущий архив: 2005.06.06;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.03 c
