问题标题: 请问计蒜客题目 罗马数字转换成整数 怎么写?

0
0

0
已采纳
梁锦程
梁锦程
高级光能
高级光能

用字符串转换操作

1
高亮节
高亮节
资深守护
资深守护

不要求时间的话:

从字母的末端判断就行了

首先,定义一个字符串和整型,读入字符串 pascal:

a:=0;
for b:=length(s) downto 1 do
begin
if s[b]='I' then a:=a+1;
if s[b]='V' then a:=a+5;
if s[b]='X' then a:=a+10;
if s[b]='L' then a:=a+50;
if s[b]='C' then a:=a+100;
if s[b]='D' then a:=a+500;
if s[b]='M' then a:=a+1000;
end;

输出a

就对了

 

0
0
0
0
0
翟谦瑞
翟谦瑞
新手守护
新手守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

何沐阳 

资深守护 
资深守护

0
我要回答