[USACO 2.2.1] Preface Numbering

最新推荐文章于 2022-06-15 21:46:56 发布

zane295384295

最新推荐文章于 2022-06-15 21:46:56 发布

阅读量386

点赞数

分类专栏： USACO 文章标签： output input pascal string c 百度

本文链接：https://blog.csdn.net/zane295384295/article/details/7077136

版权

USACO 专栏收录该内容

38 篇文章 0 订阅

订阅专栏

[题目描述]

Preface Numbering

序言页码

一类书的序言是以罗马数字标页码的。传统罗马数字用单个字母表示特定的数值，一下是标准数字表:

I 1 L 50 M 1000
V 5 C 100
X 10 D 500

最多3个可以表示为10n的数字(I,X,C,M)可以连续放在一起，表示它们的和:

III=3
CCC=300
可表示为5x10n的字符(V,L,D)从不连续出现。

除了下一个规则，一般来说，字符以递减的顺序接连出现:

CCLXVIII = 100+100+50+10+5+1+1+1 = 268
有时，一个可表示为10^n的数出现在一个比它大的数前(I在V或X前面，X在L或C前面，等等)。在这种情况下，数值等于后面的那个数减去前面的那个数:

IV = 4
IX = 9
XL = 40
像XD, IC, 和XM这样的表达是非法的，因为前面的数比后面的数小太多。对于XD(490的错误表达)，可以写成 CDXC; 对于IC(99的错误表达)，可以写成XCIX; 对于XM(990的错误表达)，可以写成CMXC。

给定N(1 <= N < 3,500)，序言的页码数，请统计在第1页到第N也中，有几个I出现，几个V出现，等等 (从小到大的顺序)。不要输出并没有出现过的字符。

比如N = 5, 那么页码数为: I, II, III, IV, V. 总共有7个I出现，2个V出现。

PROGRAM NAME: preface

INPUT FORMAT
一个整数N。

SAMPLE INPUT(preface.in)
5

OUTPUT FORMAT
每行一个字符和一个数字k，表示这个字符出现了k次。字符必须按数字表中的递增顺序输出。

SAMPLE OUTPUT(preface.out)
I 7
V 2

[解题思路]

数字转换。建议先百度一下。

[Code]

{
ID: zane2951
PROG: preface
LANG: PASCAL
}

program preface;
const
   change:array[1..4,0..9]of string=(('','I','II','III','IV','V','VI','VII','VIII','IX'),
                                     ('','X','XX','XXX','XL','L','LX','LXX','LXXX','XC'),
                                     ('','C','CC','CCC','CD','D','DC','DCC','DCCC','CM'),
                                     ('','M','MM','MMM','','','','','',''));

var
   ans:array['A'..'Z'] of longint;
   n,i:longint;

//----------calc-----------
procedure calc(x:longint);
var
   s:string;
   ce,t,i:longint;

begin
   t:=0;
   while x>0 do
      begin
         inc(t);
         ce:=x mod 10;
         x:=x div 10;
         s:=change[t,ce];
         for i:=1 to length(s) do inc(ans[s[i]]);
      end;
end;

//----------main-----------
begin
   assign(input,'preface.in'); reset(input);
   assign(output,'preface.out'); rewrite(output);
   readln(n);
   for i:=1 to n do calc(i);
   if ans['I']>0 then writeln('I ',ans['I']);
   if ans['V']>0 then writeln('V ',ans['V']);
   if ans['X']>0 then writeln('X ',ans['X']);
   if ans['L']>0 then writeln('L ',ans['L']);
   if ans['C']>0 then writeln('C ',ans['C']);
   if ans['D']>0 then writeln('D ',ans['D']);
   if ans['M']>0 then writeln('M ',ans['M']);
   close(input); close(output);
end.