Question

用freepascal做一个程序

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< span>，且不存在Jam数字P，使U<P<V< span>）。你的任务是：对于从文件读入的一个Jam数字，按顺序输出紧接在后面的5个Jam数字，如果后面没有那么多Jam数字，那么有几个就输出几个。
【输入文件】
输入文件counting.in 有2行，第1行为3个正整数，用一个空格隔开：
s t w
（其中s为所使用的最小的字母的序号，t为所使用的最大的字母的序号。w为数字的位数，这3个数满足：1≤s<T< span>≤26, 2≤w≤t-s ）
第2行为具有w个小写字母的字符串，为一个符合要求的Jam数字。
所给的数据都是正确的，不必验证。
【输出文件】
输出文件counting.out 最多为5行，为紧接在输入的Jam数字后面的5个Jam数字，如果后面没有那么多Jam数字，那么有几个就输出几个。每行只输出一个Jam数字，是由w个小写字母组成的字符串，不要有多余的空格。
【输入样例】
2 10 5
bdfij
【输出样例】
bdghi
bdghj
bdgij
bdhij
befgh

Answer 1

const zm:array[1..26]of char=('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z');
var s,t,w,i,s1,j:longint;
a,c:array[0..26]of char;
begin
assign(input,'e4.in');reset(input);
assign(output,'e4.out');rewrite(output);
readln(s,t,w);
for i:=1 to w do read(c[i]);
a:=c;
repeat
i:=w+1;
repeat
dec(i);
until ((a[i]>=zm[s])and(a[i]<zm[t]))or(i<=0);
if i=0 then begin
close(input);
close(output);
halt;
end;
a[i]:=succ(a[i]);
for j:=i+1 to w do
a[j]:=succ(a[j-1]);
if a[w]<=zm[t] then
begin
for j:=1 to w do
write(a[j]);
writeln;
s1:=s1+1;
end;
until s1>=5;
close(input);close(output);
end.
标程，希望能帮到你!