"Перевернуть число" рекурсией

[Dmitry333]

Добрый день.

Есть задание:
Рекурсивно найти число, которое образуется из данного натурального числа при записи его цифр в обратном порядке.

В голову не приходит нормального решения, есть наработка, работает, и вороде всё норм, но не оптимально т.е надо сделать так чтобы не передавать второй параметр в Na();

У кого какие мысли? Делитесь, заранее благодарю.

Вот то что у меня есть, но меня это не устраивает:

function Na(x,y:integer):integer;
begin
     if (x div 10) = 0 then
     begin
          na:=(x mod 10)*y;
     end else
         begin
              na:=(x mod 10)*y+na(x div 10, y div 10);
         end;
end;
begin
     writeln(na(1234,1000));
     readln;
end.

[notHaker]

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

Добрый день.

Есть задание:
Рекурсивно найти число, которое образуется из данного натурального числа при записи его цифр в обратном порядке.

В голову не приходит нормального решения, есть наработка, работает, и вороде всё норм, но не оптимально т.е надо сделать так чтобы не передавать второй параметр в Na();

У кого какие мысли? Делитесь, заранее благодарю.

Вот то что у меня есть, но меня это не устраивает:

function Na(x,y:integer):integer;
begin
     if (x div 10) = 0 then
     begin
          na:=(x mod 10)*y;
     end else
         begin
              na:=(x mod 10)*y+na(x div 10, y div 10);
         end;
end;
begin
     writeln(na(1234,1000));
     readln;
end.

А как это у тя работает, если ты к функции значение присвоить пытаешся??

[Dmitry333]

А как это у тя работает, если ты к функции значение присвоить пытаешся??

Ну вообще-то так возвращается значение функции!!!
Если не веришь то проверь...

[Stilet]

А как это у тя работает, если ты к функции значение присвоить пытаешся??

Если ты основы паскаля не знаешь то это не значит что их незнает никто.
В паскале присвоение имени функции чего-то означает возврат результата - не флуди пожалуйста.

т.е надо сделать так чтобы не передавать второй параметр в Na();

Сделай рассчет этого параметра в глобальную переменную, хотя помоему достаточно оптимален и такой вариант, ибо он поуниверсальнее и помобильнее

[Serge_Bliznykov]

ну, если задача стоит избавиться от второго параметра,
то это можно сделать.
Но проблема в том, что число всё равно надо сдвигать влево (умножая на 10^нужной степени)
это можно сделать, например, так:

function Na(x:integer):integer;
var y,x0 : integer;
begin
  if (x div 10) = 0 then
  begin
     na:=(x mod 10);
  end else
    begin
      y := 1;
      x0 := x div 10;
      while x0>0 do begin
        x0 := x0 div 10;
        y := y * 10;
      end;
      na:=(x mod 10)*y+na(x div 10);
    end;
end;
begin
  writeln(na(1234));
  readln;
end.

только я не уверен, что это решение более эффективно, чем Ваше первоначальное! да, кстати, в первоначальном, когда дошли до единиц уже на y можно не умножать: na:=(x mod 10);

[notHaker]

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

Если ты основы паскаля не знаешь то это не значит что их незнает никто.
В паскале присвоение имени функции чего-то означает возврат результата - не флуди пожалуйста.

ссори... я их попросту забыл, давненько это было...

[Dmitry333]

спасибо