zoukankan      html  css  js  c++  java
  • Jam的计数法

    Jam的计数法

    count.pas/c/cpp

    【问题描述】

    Jam是个喜欢标新立异的科学怪人。他不使用阿拉伯数字计数,而是使用小写英文字母计数,他觉得这样做,会使世界更加丰富多彩。在他的计数法中,每个数字的位数都是相同的(使用相同个数的字母),英文字母按原先的顺序,排在前面的字母小于排在它后面的字母。我们把这样的“数字”称为Jam数字。在Jam数字中,每个字母互不相同,而且从左到右是严格递增的。每次,Jam还指定使用字母的范围,例如,从2到10,表示只能使用{b,c,d,e,f,g,h,i,j}这些字母。如果再规定位数为5,那么,紧接在Jam数字“bdfij”之后的数字应该是“bdghi”。(如果我们用U、V依次表示Jam数字“bdfij”与“bdghi”,则U<V,且不存在Jam数字P,使U<P<V)。你的任务是:对于从文件读入的一个Jam数字,按顺序输出紧接在后面的5个Jam数字,如果后面没有那么多Jam数字,那么有几个就输出几个。

    【输入文件】

    输入文件count.in 有2行,第1行为3个正整数,用一个空格隔开:

    s t w

    (其中s为所使用的最小的字母的序号,t为所使用的最大的字母的序号。w为数字的位数,这3个数满足:1≤s<t≤26, 2≤w≤t-s )

    第2行为具有w个小写字母的字符串,为一个符合要求的Jam数字。

    所给的数据都是正确的,不必验证。

    【输出文件】

    输出文件count.out 最多为5行,为紧接在输入的Jam数字后面的5个Jam数字,如果后面没有那么多Jam数字,那么有几个就输出几个。每行只输出一个Jam数字,是由w个小写字母组成的字符串,不要有多余的空格。

    【输入样例】

    2 10 5

    bdfij

    【输出样例】

    bdghi

    bdghj

    bdgij

    bdhij

    befgh

    思路:

    本来用不断加一的方法打了暴力【傻逼的做法。。。

    其实正解就是生成一个大于给出的字符串的组合【保证唯一和严格递增】,每个元素在s到t之间

    然后输出就可以了。。。。

    代码:

     1 program count;
     2 const
     3   inf='count.in';
     4   outf='count.out';
     5 var
     6   ss,tt,n,j,tot:longint;
     7   s,t:char;
     8   check:boolean;
     9   first,ans:string;
    10   b:array['a'..'z'] of boolean;
    11 
    12 procedure init;
    13 begin
    14    assign(input,inf);    assign(output,outf);
    15    reset(input);         rewrite(output);
    16 
    17    fillchar(b,sizeof(b),true);
    18 
    19    readln(ss,tt,n);
    20    s:=chr(ord(ss)+96);
    21    t:=chr(ord(tt)+96);
    22    readln(first);
    23 end;
    24 
    25 procedure outgo;
    26 begin
    27   close(input);
    28   close(output);
    29   halt;
    30 end;
    31 
    32 procedure printf;
    33 begin
    34   if ans<=first then exit;
    35   if tot=5 then outgo;
    36   for j:= 1 to n do
    37     write(ans[j]);
    38   writeln;
    39   inc(tot);
    40 end;
    41 
    42 procedure dfs(d:longint;last:char);
    43 var
    44   i:char;
    45 begin
    46   for i:= last to t do
    47    begin
    48      ans:=ans+i;
    49      if d=n then printf
    50        else dfs(d+1,chr(ord(ans[d])+1));
    51      ans:=copy(ans,1,d-1);
    52    end;
    53 end;
    54 
    55 begin
    56     init;
    57     dfs(1,first[1]);
    58     outgo;
    59 end.
  • 相关阅读:
    zw版【转发·台湾nvp系列Delphi例程】HALCON MoveRectangle
    zw版【转发·台湾nvp系列Delphi例程】HALCON SetIcon1
    zw版【转发·台湾nvp系列Delphi例程】HALCON SetIcon2
    zw版【转发·台湾nvp系列Delphi例程】HALCON DispArc
    zw版【转发·台湾nvp系列Delphi例程】HALCON HSerializedItem
    zw版【转发·台湾nvp系列Delphi例程】HALCON union1
    zw版【转发·台湾nvp系列Delphi例程】HALCON SqrtImage
    zw版【转发·台湾nvp系列Delphi例程】HALCON SubImage
    zw版【转发·台湾nvp系列Delphi例程】HALCON SetWindowExtent
    Raphael绘制圆圈环绕方法
  • 原文地址:https://www.cnblogs.com/bobble/p/6435150.html
Copyright © 2011-2022 走看看