Рекурсивная функция Опции

[Гость]

Помогите, пожалуйста !!!!
Дана символьная строка, представляющая собой запись натурального числа в р-ичной системе счисления (2 <= р<= 9). Составить программу перевода этого числа в десятичную систему счисления. Нужно сделать, используя РЕКУРСИВНУЮ ФУНКЦИЮ.

[volvo]

Пробовал переделать , но никак не получается.

В следующий раз приводи свой способ...

Вот так перевод в 10 с/с делается рекурсивно:

function ToDecR(n:string; radix:longint):longint;
const digit: string[16] = '0123456789ABCDEF';
begin
    if length(n) = 0 then ToDecR := 0
    else
      ToDecR := ToDecR(copy(n, 1, length(n) - 1), radix) * radix +
                pos(n[length(n)],digit) - 1;
end;