codves m进制转十进制 1475

本文介绍了一个简单的算法,用于将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

10


代码:

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.

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值