主题：急需帮助!!!!!!!!!!!!!!!!!!!!
jinniu
[专家分：0] 发布于 2005-03-17 09:25:00
[em1]
1、编程，从键盘输入一字符串，把输入中所有十六进制数字字符串转换成等价的十进制数输出，每个数占一行。
如输入: TA3.4eGrs3Hb! ，
则输出：
163.3046875
3
11
回复列表 （共1个回复）
沙发
88888wan [专家分：0] 发布于 2005-05-17 14:16:00
program aa;
var ch:char;
dec,dec1,dec2,dec3,dec4:0..15;
i:1..4;
j:real;
begin
for i:=1 to 4 do
begin
read(ch);
ch:=upcase(ch);
case ch of
'0'..'9':dec:=ord(ch)-48;
'A'..'F':dec:ord(ch)-55;
else
exit;
end;
case i of
1:dec1:=dec;
2:dec2:=dec;
3:dec3:=dec;
4:dec4:=dec;
end;
end;
writeln;
j:=dec1*4096.0+dec2*256.0+dec3*16.0+dec4;
write('dec:',j:5:0);
write('dec:',j:5:0);
readln;
end.
我来回复
您所在位置：