NOIP2006普及组 Jam的计数法

普及组重要的模拟题。附上题目链接 https://www.luogu.org/problem/show?pid=1061 （写水题题解算是巩固提醒自己细心吧qwq）

样例输入：

bdfij

样例输出：

bdghi
bdghj
bdgij
bdhij
befgh

这题把数字转换成字符。指定一个区间[L,R]，使用其中的字符作为数字使用。

拿样例数据来举例，L=2 R=10，则区间为

2	3	4	5	6	7	8	9	10
b	c	d	e	f	g	h	i	j

起始数字为bdfij，要求依次输出后面的5个数字。输出下一个数字就要对这个数字的最低一位进行进位，如果这个数字超出了区间右边界R，则向高一位进位。

bdfij最低一位是j，进一变成k，k对应的数字11超出了右边界R=10，向高一位进位。i进一变成j，但是如果i变成j那么最后一位就不能再为j了（根据题意，数字中的字符没有重复，且从左到右字典序依次增大），那么这时候再向高一位进位，f变成g，剩余h,i,j可以给前两位进行进位。修改字符串。bdfij变成了bdghi，输出然后从最后一位继续做一遍。

代码实现：

  var
          s,t,n:longint;  //s为边界L，t为边界R
          str:string;
  function w(ch:char):longint;  //函数：返回字符对应的编号
  begin
          exit(ord(ch)-ord('a')+);
  end;
  function dw(n:longint):char;  //函数：返回编号对应的字符
  begin
         exit(chr(n+ord('a')-));
 end;
 procedure doit(c:longint);
 var
         i,last:longint;
 begin
         if c> then halt;  //输出5次后退出程序
         for i:=length(str) downto  do  //从最低位开始
         begin
                 if i= then  //处理特殊情况
                 begin
                         last:=i;
                         break;
                 end;
                 if w(str[i])++length(str)-i>t then continue //如果进位后超出边界R则向高一位继续
                 else
                 begin
                         last:=i;  //不超出边界，last记录当前所在位数
                         break;
                 end;
         end;
         str[last]:=dw(w(str[last])+);  //进一位
         for i:=last+ to length(str) do  //处理剩余的位数
                 str[i]:=dw(w(str[i-])+);
         writeln(str);  //输出
         doit(c+);  //继续
 end;
 begin
         readln(s,t,n);
         readln(str);
         doit();
 end.