复件 任意进制转换.txt

来自「任意进制转换。 1、输入要输入的进制 2、输入要转换的数 3、输入要转成的」· 文本 代码 · 共 34 行

program p1017;
const index:array[0..15]of char=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
var m,n,p,r,l,i,t,k:longint;
 code:integer;
  str1:string;str2:char;
 result:array[1..100]of char;
  function ans(x:integer):longint;
  var j:integer;
  res:longint;
  begin
   res:=1;
    for j:=1 to x do res:=res*m;
   ans:=res;
  end;
begin
 readln(m);
 readln(str1);
 readln(n);
 l:=length(str1);r:=0;t:=0;
 for i:=1 to l do begin
  str2:=str1[i];
  t:=ord(str2)-55;
  if t<10 then val(str2,t,code);
  r:=r+t*ans(l-i);
 end;
 k:=0;
repeat
 p:=r mod n;
 inc(k);result[k]:=index[p];
 r:=r div n;
until r=0;
for i:=k downto 1 do write(result[i]);writeln;
end.