Wikioi 天梯 m进制转十进制（1475）

题目描述 Description

将m进制数n转化成一个十进制数 m<=16

题目保证转换后的十进制数<=100

输入描述 Input Description

共一行

n和m

输出描述 Output Description

共一个数

表示m进制的n化成十进制的数

样例输入 Sample Input

1010 2

样例输出 Sample Output

10

数据范围及提示 Data Size & Hint

乘权累加法

题目再次给出了计算方法……

对于进制之间转换，我们为了深入地理解它就要从它的本质入手。我们用最直白的话说，n进制就是逢n进1。我们明确，虽然进制不同，但是作为数，他们有共同的计量单位——“1”。我们暂且称“1”为“单位”，以避免大家把它与数字“1”混淆。

那么，逢n进一，就是说n进制下，每个数位最多包含n-1个单位，“十位”上的一个“1”，代表n个单位。

我们一定做过这样的数学问题：已知一个数各个数位上的数字，用表达式表示这个数。

大家都知道，假设一个数百位为是2，十位是3，个位是1的数，我们能很熟练的把它表示成2*100+3*10+1*1。

大家的意思就是，百位上一个1是100个单位，2就是200个单位。

为什么百位上的一个1是100呢？因为10进制下，10个单位逢10进一变成十位的一个1，即每个十位上的1包含10个单位，十位上再逢10进一才变成百位上的一个1，所以就得到了“百位上的一个1代表100个单位”的结论。推广一下，一个整数第i位上的一个“1”，就代表了进制的i-1次方个单位。由于数字“m”包含m个“1”，所以该数字就包含m*n^(i-1)个单位。

总之进制转换就是要将进制下的数字还原成他们表示的单位”1“的数量，然后再根据新的进制将单位量表示成数字。（由于我们平日的10进制习惯，事实上我们在计数单位量时用的仍然是十进制数字，所以省去了再转换的过程。即计数单位量的数字，就是所求的10进制数）

铺垫了这么多，终于说一下n进制下的i位数m，转化成10进制的公式：

(原数)D=西格玛（m*n^(j-1)）j:=1 to i。

（反过来读一遍时，笔者深感语言表达能力不强……）

（不过笔者很清楚，有些人就是冲着代码来的……）

Program asd;
Var
	x,xx:string;
	d:longint;
Const
	a:array[0..16]of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F','G');
Function fot(aa:char):longint;
	var i:longint;
	begin
		for i:=0 to 16 do if a[i]=aa then exit(i);
	end;
Function zhuan(bb:string):longint;
	var i:longint;
	begin
		zhuan:=0;
		for i:=1 to length(bb) do
			inc(zhuan,fot(bb[length(bb)-i+1])*trunc(exp((i-1)*ln(d))));
	end;
	
Begin
	readln(x);
	xx:=copy(x,1,pos(' ',x)-1);
	delete(x,1,pos(' ',x));
	val(x,d);
	writeln(zhuan(xx));
End.