pascal递规

来源：百度知道 编辑：UC知道 时间：2024/05/29 11:26:29
把一个P进制的数N转换成Q进制，P、Q<=10
用递规做

我来做一下

！~~~\！#&￥！做好拉！！
var i,j,k,m,n,c,p,q,tens:longint;
ans:array[1..1000] of integer;
s:string;
function cimi(x,y:longint):longint;
var i1:longint;
begin
ciMI:=1;
for i1:=1 to y do cimi:=cimi*cimi;
end;
begin
readln(p);
readln(n);
readln(q);
m:=0;
str(n,s);
for i:=1 to length(s) do begin
tens:=(ord(s[i])-48)*cimi(i,p);
end;
while tens>0 do begin
inc(m);
ans[m]:=tens mod q;
tens:=tens div q;
end;
for i:=1 to m do write(ans[i]);
end.