UC知道PASCAL语言的一点很基础的问题 请大牛们帮我看下
来源：百度知道 编辑：UC知道 时间：2024/06/30 21:47:24
如果一组数,保证前面一位的大于后面的一位数求后继的数组 若干
(比如863之后是864 865 870....
又比如)用代码如何实现啊（PAUSCAL）?
或者给我看下改题的代码
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数字，那么有几个就输出几个。
输入格式 输入有2行，第1行为3个正整数，用一个空格隔开：
s t w
（其中s为所使用的最小的字母的序号，t为所使用的最大的字母的序号。w为数字的位数，这3个数满足：1≤s<t≤26, 2≤w≤t-s ）
第2行为具有w个小写字母的字符串，为一个符合要求的Jam数字。
所给的数据都是正确的，不必验证。
输出格式 输出最多为5行，为紧接在输入的Jam数字后面的5个Jam数字，如果后面没有那么多Jam数字，那么有几个就输出几个。每行只输出一个Jam数字，是由w个小写字母组成的字符串，不要有多余的空格。
样例输入
2 10 5
bdfij
样例输出
bdghi
bdghj
bdgij
bdhij
befgh
(比如863之后是864 865 870....
又比如)用代码如何实现啊（PAUSCAL）?
或者给我看下改题的代码
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数字，那么有几个就输出几个。
输入格式 输入有2行，第1行为3个正整数，用一个空格隔开：
s t w
（其中s为所使用的最小的字母的序号，t为所使用的最大的字母的序号。w为数字的位数，这3个数满足：1≤s<t≤26, 2≤w≤t-s ）
第2行为具有w个小写字母的字符串，为一个符合要求的Jam数字。
所给的数据都是正确的，不必验证。
输出格式 输出最多为5行，为紧接在输入的Jam数字后面的5个Jam数字，如果后面没有那么多Jam数字，那么有几个就输出几个。每行只输出一个Jam数字，是由w个小写字母组成的字符串，不要有多余的空格。
样例输入
2 10 5
bdfij
样例输出
bdghi
bdghj
bdgij
bdhij
befgh
看了题目，会发现此题和noip2004普及组的《火星人》很像，但是又有一些差别。
其实《火星人》考的是生成排列，而此题考的是生成组合。
生成组合大致算法流程如下：
1. 从后向前找第一个未达到最大值的数a
2. a:=a+1
3. 后面的数都等于前面数加一
4. 判断a[0]，若a[0]=1则结束，否则转1
再结合题目，读入时只要转字符位数即可，即A:=ord(ch)-96
具体代码如下：
program noip2006_3_count;
var a:array[1..26]of longint;
s,t,w,i,p,q:longint;
str:string;
procedure first;
begin
assign(input,'count.in');
assign(output,'count.out');
reset(input);rewrite(output);
readln(s,t,w);
readln(str);
end;
Begin
first;
for i:=1 to w do
a:=ord(str)-96;
if t-s>w then
begin
p:=1;
while (p<=5)and(a[1]<t-w+1) do
begin
q:=w;
while (q>=1)and(a[q]=t-w+q) do dec(q);
if q<>0 then
begin
inc(a[q]);
for i:=q+1 to w do a:=a[i-1]+1;
for i:=1 to w do write(chr(a+96));
writeln;
inc(p);
end;
end;
e