作业帮 > 综合 > 作业

Pascal问题:进制转换.将一个四位十六进制的数转为十进制的数.

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/07/06 10:49:39
Pascal问题:进制转换.将一个四位十六进制的数转为十进制的数.
输入说明:一行,一个16进制数字(字母的大小写不限制,如F、f 带代表15)
输出说明:一行一个十进制数
输入样例:1A2B(1a2b)
输出样例:6699
Pascal问题:进制转换.将一个四位十六进制的数转为十进制的数.
var s:string;
i,t:integer;
begin
readln(s);
t:=0;
for i:=1 to 4 do
if s[i]>='A' then t:=t*16+(ord(s[i])-ord('A')+10)
else t:=t*16+ord(s[i])-ord('0');
writeln(t);
end.
再问: 小写算进去了吗?
再答: 额,没有,你做个判断吧,分一下大小写
再问: 帮我列一下,我不会。
再答: for i:=1 to 4 do if s[i]>='a' then t:=t*16+(ord(s[i])-ord('a')+10) else if s[i]>='A' then t:=t*16+(ord(s[i])-ord('A')+10) else t:=t*16+ord(s[i])-ord('0');