codevs天梯 m进制转十进制 模拟
2017-02-05 20:57
323 查看
将m进制数n转化成一个十进制数 m<=16
题目保证转换后的十进制数<=100
var
s:string;
n,ans:longint;
procedure init;
begin
readln(s);
val(copy(s,pos(' ',s)+1,length(s)-pos(' ',s)),n);
delete(s,pos(' ',s),length(s)-pos(' ',s)+1);
end;
procedure main;
var
i,j:longint;
begin
j:=1;
for i:=length(s) downto 1 do
begin
if ord(s[i])-48>10 then
begin
ans:=ans+j*(ord(s[i])-55);
j:=j*n;
end
else
begin
ans:=ans+j*(ord(s[i])-48);
j:=j*n;
end;
end;
writeln(ans);
end;
begin
init;
main;
end.
题目保证转换后的十进制数<=100
var
s:string;
n,ans:longint;
procedure init;
begin
readln(s);
val(copy(s,pos(' ',s)+1,length(s)-pos(' ',s)),n);
delete(s,pos(' ',s),length(s)-pos(' ',s)+1);
end;
procedure main;
var
i,j:longint;
begin
j:=1;
for i:=length(s) downto 1 do
begin
if ord(s[i])-48>10 then
begin
ans:=ans+j*(ord(s[i])-55);
j:=j*n;
end
else
begin
ans:=ans+j*(ord(s[i])-48);
j:=j*n;
end;
end;
writeln(ans);
end;
begin
init;
main;
end.
相关文章推荐
- codevs天梯 十进制转N进制 暴力模拟
- codevs天梯 m进制转十进制 模拟
- CODE[VS] 1474 十进制转m进制
- CODE[VS] 1475 m进制转十进制
- CODEVS 1475 m进制转十进制
- CODEVS 1474 十进制转m进制
- CODEVS 1475 m进制转十进制
- codeVS 1474 十进制转m进制
- code[vs]-1474 十进制转m进制-纯字符串操作
- 找规律+模拟 之 codevs 1160 蛇形矩阵
- codevs 1098 均分纸牌 模拟 解题报告
- CODE[VS]-最小数和最大数-整数处理-天梯青铜
- codevs天梯 乘积最大
- codevs 天梯 蛇形矩阵 暴力
- CODE[vs] 天梯 1501 二叉树最大宽度和高度
- CodeVs天梯之Silver
- codevs天梯 高精度加法
- CODE[VS] 1197 Vigenère密码(模拟
- CodeVs天梯之Gold