在PASCAL下 如何將36進制數(shù)化為10進制數(shù)（請?zhí)峁┧惴ǎ?/h1>

2023-01-24 02:36

2個回答

2023-01-24 04:55

又學到知識,樓上高手~!

2023-01-24 04:02

輸入：
輸入數(shù)據(jù)共有三行，第一行是一個正整數(shù)，表示需要轉(zhuǎn)換的數(shù)的進制n(2≤n≤16)，第二行是一個n進制數(shù)，若n>10則用大寫字母A～F表示數(shù)碼10～15，并且該n進制數(shù)對應(yīng)的十進制的值不超過1000****00，第三行也是一個正整數(shù)，表示轉(zhuǎn)換之后的數(shù)的進制m(2≤m≤16)。

輸出：
輸出僅一行，包含一個正整數(shù)，表示轉(zhuǎn)換之后的m進制數(shù)。

樣例：
change.in
16
FF
2

change.out
1111****

program asdf;
var
n,m,h,i:integer;
f:longint;
s:string;
a:array[1..2000]of char;
function fj(d:string):longint;
var
i,j,k:integer;
begin
fj:=0;
for i:=1 to length(d) do
begin
k:=1;
for j:=1 to length(d)-i do k:=k*n;
if (n<=10)or((d[i]>='0')and(d[i]<='10'))
then k:=k*(ord(d[i])-ord('0'))
else k:=k*(ord(d[i])-ord('A'));
fj:=fj+k;
end;
end;
procedure fd(t:longint);
var
i:integer;
begin
h:=2001;
while t>0 do
begin
i:=t mod m;
dec(h);
if i<10 then a[h]:=chr(ord('0')+i)
else a[h]:=chr(ord('A')+i-10);
t:=t div m;
end;
end;
begin
assign(input,'change.in');
assign(output,'change.out');
reset(input);
rewrite(output);
readln(n);
readln(s);
readln(m);
f:=fj(s);
fd(f);
for i:=h to 2000 do
write(a[i]);
writeln;
close(input);
close(output);
end.