переворот числа рекурсия

[Аватар]

function RevertR(X: DWORD): DWORD;
var Coef: DWORD;
begin
  if X>9 then Result:= StrToInt(IntToStr(X mod 10)+IntToStr(RevertR(X div 10)))
         else Result:= X;
end;

[leonidzilb]

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

Нормальный код. Я ведь тоже так же предложил, только без локальных переменок.

есть цикл а если есть цикл то не нужна рекурсия

[min@y™]

Сообщение от Аватар

function RevertR(X: DWORD): DWORD;
var Coef: DWORD;
begin
  if X>9 then Result:= StrToInt(IntToStr(X mod 10)+IntToStr(RevertR(X div 10)))
         else Result:= X;
end;

сорри, но через перевод в строку и обратно - любой дурак сможет, так неинтересно.

[Аватар]

Ну молоток, сразу дурака раскусил

[Stilet]

а если есть цикл то не нужна рекурсия

Чего?? А ты вообще понял что делает цикл в примере Миная? И почему он у меня отсутствует понял?

[Krasiosoft]

А в чем заключается преимущество рекурсии над циклом, в решении этой задачи?

[Stilet]

В данной задаче ничем. ИМХО.

[leonidzilb]

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

А в чем заключается преимущество рекурсии над циклом, в решении этой задачи?

вопрос с экзамена
экзамен не обсуждают а решают

[min@y™]

А в чем заключается преимущество рекурсии над циклом, в решении этой задачи?

Здесь - никакого преимущества. Это просто учебная задача типа олимпиадной.
Рекурсия используется на практике тогда и только тогда, когда сделать по-другому получится очень громоздко или совсем невозможно.