Question

pascal编程进制转换

输入任意k进制正数n，将之转成10进制数
算法怎么设计？数学表达式是什么？

Answer 1

思想：把n每一位分解，再乘以k^i求和，就可以了。
以n(i) 表示 n的第i位数（从右往左），m表示十进制转换后的数。
∴m=∑n(i)*k^i
程序段:
\\*****\\
a:=1;m:=0;
while n>0 do
begin
m:=m+(n mod 10)*a;
n:=n div 10;
a:=a*k;
end;

Answer 2

var n:string;
k,a,c,i:longint;
begin
readln(k);readln(n);
c:=length(n);
a:=0;
for i:=1 to c do a:=a*k+ord(n[i])-ord('0');
write(a);
end.
数学表达就如我程序中所写

Answer 3

var n,k,s,t:integer;
begin
readln(k,n);
s:=0; t:=1;
while(n<>0) do
begin
s:=s+(n mod 10)*t;
t:=t*k;
n:=n div 10;
end;
writeln(s);
end.