Ошибка переполнения стека из-за использования рекурсий

[Morrigan13]

Привет! Мне срочно необходима ваша помощь! Я пыталась вставить рекурсию в функцию, и все никак не получается. При выполнении программа падает с сообщением об ошибке "Error 202: Stack overflow error".
Помогите исправить ошибку, пожалуйста.=)


function ToDec(n:string; radix:word):word;
var
m,i,Func:word;
const
digit:string[16]='0123456789ABCDEFGHIJKLMNOPQRSTUVW XYZ';
begin
m:=0;
while n[1]='0' do
delete(n,1,1);
for i:=1 to length(n) do
ToDec:=m*radix+pos(n[i],digit)-1;
Func:=ToDec(n[i-1],radix);
ToDec:=m+Func;
end;

[Alter]

Для начала:
В строке

const digit:string[16]='012345678ABCDEFGHIJKLMNOPQRSTUVWX YZ';

не 16 символов, а 36.

[Somebody]

А зачем вообще рекурсия?

function ToDec(n:string; radix:word):word;
var
m,i,Func:word;
const
digit:string[36]='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
m:=0;
{while n[1]='0' do
      delete(n,1,1);}
{Зачем этот while? Он, конечно не мешает, но и ничего полезного не делает}
for i:=1 to length(n) do
    m:=m*radix+pos(n[i],digit)-1;
ToDec:=m;
end;

[Morrigan13]

Ну просто у меня задание - написать программу именно с рекурсией... вот... (
Прога без нее отлично работает.

[Stilet]

Ты лучше скажи что ты хочеш сделать, помоему ты стратегию неверную выбрал.

[Xardas]

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

Ну просто у меня задание - написать программу именно с рекурсией... вот... (
Прога без нее отлично работает.

В таком случае, давайте немного отвлечемся от этой задачи и представим, что нам надо вычислить значение, например, такого выражения:

2^0+2^1+2^2+2^3+...+2^n

Если внимательно посмотреть на выражение, то можно увидеть, что таким же образом представляется двоичное число в десятичном виде... Пример решения подобной задачи с использованием рекурсии можно найти в любой книге по программированию

Вот функция:

function ToDec(i:integer):extended;
begin
if i=0 then ToDec:=0
else ToDec:=ToDec(i-1)+strtoint(number[i])*exp(ln(index)*(length(number)-i))
end;

ЗАМЕЧАНИЯ:
1)Переменные index:integer; number:string следует сделать глобальными, в подпрограмму передавать length(number);
2) Писал на Делфи, в Паскале нет функции strtoint, ей альтернативой служит процедура val(st,num,code), преобразует строку st в число num, если преобразование удачное code получит значение 0, иначе - код ошибки; и еще одно, функция переводит только с 2-ой по 10-ую системы, чтобы переводило и 11-ую, 12-ую системы и т.д., необходимо поставить в соответствие букве десятичное число...

ЗЫ По поводу замечания 2), будем считать это Вашим домашним заданием , проблем, думаю, у Вас не возникнет.