Записать число в обратном порядке (69=>96)

Рейтинг: 0Ответов: 2Опубликовано: 17.11.2014

Задача состоит в том, чтобы записать число в обратном порядке (например, 69 => 96).

procedure TForm1.Button1Click(Sender: TObject);
var
  Perevorot: array [1..100] of integer;
  MyIndex, MySum: integer;
begin
  MySum := StrToInt(Edit1.Text); // На входе 69

  for MyIndex := 10 to 1 do
    MySum := MySum - Perevorot[MyIndex];

  Edit2.Text := IntToStr(MySum); // <<-- Тут должно быть 96
end;

У меня получается, результат по прежнему 69. Подскажите, в чём ошибка?

алгоритм delphi
Источник: Stack Overflow на русском

Ответы

▲ 3Принят

А не проще ли преобразовывать в число, а потом переписать строку в обратном порядке (найти длину и, начиная с конца, записать в переменную в цикле)?

▲ 2

Я не смог понять логики программы, но вижу, что неверно указан оператор цикла. Надо downto вместо to. Сейчас цикл for не работает.