codves m进制转十进制 1475

原创于 2017-02-16 21:07:45 发布 · 302 阅读

0 ·

CC 4.0 BY-SA版权

codevs 专栏收录该内容

20 篇文章

订阅专栏

本文介绍了一个简单的算法，用于将m进制数（m≤16）转换为十进制数，并确保转换后的数值不超过100。通过解析输入的m进制数并逐位计算其对应的十进制值，最终输出转换结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目描述 Description
将m进制数n转化成一个十进制数 m<=16
题目保证转换后的十进制数<=100

输入描述 Input Description
n和m

输出描述 Output Description
共一个数
表示m进制的n化成十进制的数

样例输入 Sample Input
1010 2

样例输出 Sample Output

代码：

var ch,k:char;
st,st1:string;
j,i,x,m,n:longint;
begin
read(ch);
while ch<>' ' do
begin
st:=st+ch;
read(ch);
end;
read(m);
n:=10;
x:=0;st1:='';
for i:=1 to length(st) do
begin
case st [i] of
'0':j:=0;'1':j:=1;
'2':j:=2;'3':j:=3;
'4':j:=4;'5':j:=5;
'6':j:=6;'7':j:=7;
'8':j:=8;'9':j:=9;
'A':j:=10;'B':j:=11;
'C':j:=12;'D':j:=13;
'E':j:=14;'F':j:=15;
end;
x:=x*m+j;
end;
repeat
case x mod n of
0:k:='0';1:k:='1';
2:k:='2';3:k:='3';
4:k:='4';5:k:='5';
6:k:='6';7:k:='7';
8:k:='8';9:k:='9';
10:k:='A';11:k:='B';
12:k:='C';13:k:='D';
14:k:='E';15:k:='F';
end;
x:=x div n;
st1:=k+st1;
until x=0;
writeln(st1);

end.