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

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



Память: 0.46 MB
Время: 0.026 c