求解:Free Pascal编程

Question

1640 集合取数
时间限制:1000MS 内存限制:65536K
总提交数:61 通过数:36
描述
求集合的前N个元素：编一个程序，按递增次序生成集合M的最小的N个数，M的定义如下：
(1)数1属于M；
(2)如果X属于M，则Y=2*X+1和Z=3*X+1也属于M；
(3)此外再没有别的数属于M。
输入
一行，n (n≤100)
输出
一行，递增次序输出集合M的最小的N个数
输入样例
3
输出样例
1 3 4
拜托,我问的是PASCAL语言……

Answer 1

能不能告诉我，你的题目出自那个在线测评网站，谢谢
Program lt7_2_1；
uses crt；
var a，b：array[1..1000] of integer；
x，ha，hb，t，total，n：integer；
begin
clrscr；
write('N=')；readln(n)；
x：=1；a[1]：=1；
ha：=1；hb：=1；t：=0；total：=1；
while total<=n do
begin
write(x：5)；
inc(t)；
a[t]：=2*x+1；b[t]：=3*x+1；
if a[ha]>b[hb] then begin
x：=b[hb]；inc(hb)；
end
else begin
x：=a[ha]；
if a[ha]=b[hb] then inc(hb)；
inc(ha)；
end；
inc(total)；
end；
end.
分析：可以用两个队列来存放Y和Z中的数，分别用数组a和数组b存放。然后递推求出第N项，方法如下：
(1)令ha和hb分别为队列a和队列b的头指针，它们的尾指针为t。初始时，X=1，ha=hb=t=1；
(2)将2*x+1和3*x+1分别放入队列a和队列b的队尾，尾指针加1。即：
a[t]←2*x+1，b[t]←3*x+1，t←t+1；
(3)将队列a和队列b的头结点进行比较，可能有三种情况：
(A)a[ha]>b[hb]
(B)a[ha]=b[hb]
(C)a[ha]<b[hb]
将比较的小者取出送入X，取出数的队列的头指针相应加1。
(4)重复(2)，(3)直至取出第N项为止。

参考资料：http://zlzhb.blog.163.com/blog/static/1860914920072180199146/

Answer 2

int n=Convert.ToInt32(Console.ReadLine());
string str="";
if(n<=100)
{
for(int i=0;i<n;i++)
{
if(M[i]==1)
{
str+=M[i].ToString();
}else if(X==M[i]&&Y==M[i]*2+1&&Z==M[i]*3+1)
{
str+=" ";
str+=X.ToString();
str+=" ";
str+=Y.ToString();
str+=" ";
str+=Z.ToString();
}
}
Console.Write(str);
}
else
{
Console.Write("输入的不是小于等于100的整数");
}

Answer 3

竞赛是不能用其它单元的

var
x,y,z:array[1..100] of word;
n,i,ty,tz:word;
begin
y[1]:=1;
z[1]:=1;
for i:=2 to 100 do y[i]:=y[i-1]*2+1;
for i:=2 to 100 do z[i]:=z[i-1]*2+1;
ty:=1;
tz:=1;
for i:=1 to 100 do
begin
if y[ty]>z[tz] then
begin
x[i]:=z[tz];
inc(tz);
end
else
begin
x[i]:=y[ty];
inc(ty);
end;
if x[i]=x[i-1] then i:=i-1;
end;
readln(n);
for i:=1 to n do write(x[i],' ');
end.

Answer 4

Program lt7_2_1；
uses crt；
var a，b：array[1..1000] of integer；
x，ha，hb，t，total，n：integer；
begin
clrscr；
write('N=')；readln(n)；
x：=1；a[1]：=1；
ha：=1；hb：=1；t：=0；total：=1；
while total<=n do
begin
write(x：5)；
inc(t)；
a[t]：=2*x+1；b[t]：=3*x+1；
if a[ha]>b[hb] then begin
x：=b[hb]；inc(hb)；
end
else begin
x：=a[ha]；
if a[ha]=b[hb] then inc(hb)；
inc(ha)；
end；
inc(total)；
end；
end.