【基础】任意进制转换

来自本人百度空间 2009-08-20 16:44

program change(input,output);
var
        a,i,n1,n2,topb:longint;
        str1:string;
        b:array[1..9999999] of integer;
        c:array['0'..'Z'] of integer;
        topc:char;function chengfang(a,j:longint):longint;
var     i,m:longint;
begin
        m:=1;
        for i:=1 to j do m:=m*n1;
        chengfang:=a*m;
end;{chengfang}
begin
        assign(input,'change.in');
        reset(input);
        assign(output,'change.out');
        rewrite(output);        readln(n1,n2);
        readln(str1);
        close(input);
        for topc:='0' to 'Z' do
            if ord(topc)>= ord('A') then c[topc]:=10+ord(topc)-ord('A')
                else c[topc]:=ord(topc)-ord('0');
        a:=0;
        for i:=length(str1) downto 1 do begin
            a:=a+chengfang(c[str1[i]],length(str1)-i);
        end;
        topb:=0;
        while a<>0 do begin
            inc(topb);
            b[topb]:=a mod n2;
            a:=a div n2;
        end;
        for i:=topb downto 1 do write(b[i]);
        close(output);
end.