число сделать наибольшим числом кратным 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);

Я делил на десять. Рез-т округлял в большую сторону (Ceil). И умножал на 10.

124
12.4
13
130

>Чапаев © (19.05.05 21:36) [4]
Афтар, выпей йаду! :)

>Sha © (19.05.05 21:44) [5]
Респект :)
Ваш вариант все-таки чуть-чуть быстрее чем у Ega23 :)