
普及组重要的模拟题。附上题目链接 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.