NOIP2006普及组 Jam的计数法

时间:2023-03-09 16:26:31
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.