编写一个将N进制转换成十进制的调用程序。

有点乱 win-tc写的 仅供参考

#include "Stdio.h"
#include "Conio.h"
#include "Math.h"
int sum=0;
int w=0;
//sum 表示最后的转换结果
//w只是个过度参数 表示数据位数的增加
int main(void)
{
test(12,325);
printf("\n%d",sum);
getch();
return 0;
}

int test(int n,int xx){
//n 表示以前的进制 xx表示要转换的数
int i=xx%n;
sum=sum+i*(int)pow(10,w);
w++;
if(xx==0)return;
xx=xx/n;
test(n,xx);
}

是Pascal的我这个就可以。
var s:string;
n,m,l,k,j:integer;
c:char;
a:array[1..32767]of integer;
begin
readln(n);
readln(s);
repeat
inc(i);
c:=s[i];
if (c>='a')and(c<='z') then a[i]:=ord(c)-96
else a[i]:=ord(c)-48;
delete(s,1,1);
until length(s)=0;
for j:=1 to i do
if a[j]>9 then begin
a[j+1