[skobanev]

Добрый, может сори за непонятный вопрос, но помогите округлить цены ( например 97 руб) до 100 или 90 или 1050 руб до 1000р или 1100р.

[skobanev]

Блин, простите идиота, пока писал уже все понял....

x:=(round(x/10)*10) ;

[lmikle]

Не совсем так.
Твой второй пример не проходит по этому тесту. Фактически, тут надо:
1. Вычислить до какой ПОЗИЦИИ надо округлять.
2. Воспользоваться функцикй RoundTo.

[skobanev]

Сообщение от lmikle

Не совсем так.
Твой второй пример не проходит по этому тесту. Фактически, тут надо:
1. Вычислить до какой ПОЗИЦИИ надо округлять.
2. Воспользоваться функцикй RoundTo.

Кстати с полтинником тут не получится, но надеюсь завтра выложу ченить что надумал )

[lmikle]

ОК.
Если у нас длинна цифры = 2, то округляем один разряд.
Если длинна цифры = 3, то округляем 2 разряда,
Если длинна цифры = 4, то округляем 3 разряда, и т.д.
Исключение - один разряд, всегда округляем до 10.
Соответсвенно, код будет выглядеть примерно так:

Код:

function RoundSpecial(N : Integer) : Integer;
var
  Buf : String;
begin
  Buf := IntToStr(Abs(N)); // Abs - убираем "-"
  If Length(Buf) = 1 
     Then Result := Sign(N) * 10 // Sign - возвращаем "-"
     Else Result := RoundTo(N,-1 * (Length(Buf)-1));
end;