原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
完善程序训练
PAGE
PAGE 14
专题训练
1、【问题描述】
集合A中的元素有以下特征：
(1)数1是A中的元素；
(2)如果X是A中的元素，则2X+1，3X+1也是A中的元素；
(3)除了条件（1），（2）以外的所有元素均不是A中的元素；
给定数N，请求出集合中的第N个元素(元素按由小到大排列)。
例如 N=5， A（5）=9
5个元素分别是1、3、4、7、9
var n,Long,x:longint;
function init(x:longint):boolean;
begin
if x=1 then init:=true
else if( (x-1)mod 2=0)and( init((x-1)div 2))
or ________________________then init:=true else_________________ ;
end;
begin
readln(n);
x:=0;
Long:=0;
while Longn do
begin
x:=__________ ;
if init(x) then _____________________ ;
end;
writeln(_________________ );
end.
2、求N个数中的第K小的数。程序利用快排（递归、分治算法），当找到第N个小的数时候就停止。
样例：输入：5 {N}
5 6 4 1 8 {N个数}
2 {第2小的数}
输出：4 {第2小的数是4}
var i,j,k,n:integer;
a:array[1..100] of integer;
procedure search(b,e:integer);
var i,m,t:integer;
begin
if b=e then ____;
i:=b; j:=e; m:=a[k];
repeat
while _______do inc(i);
while ______ do dec(j);
if _____ then begin t:=a[i];a[i]:=a[j];a[j]:=t end;
until i=j;
if i=k then exit;
if ik then ________________else ______________________;
end;
begin
readln(n);
for i:=1 to n do read(a[i]);
readln(k);
search(1,n);
writeln(a[k]);
end.
3、根据二叉树的前序遍历和中序遍历，求出树的后序遍历。
样例输入：abdec （前序） 输出：debca（后序）
dbeac （中序）
var s1, s2 : string;
procedure try(L1, r1, L2, r2 : integer);
var m : integer;
begin
m := pos(s1[L1], s2);
if m L2 then try(__________________);
if m r2 then try(________________________);
write(s1[L1])
end;
begin
readln(s1); readln(s2);
try(1, length(s1), 1, length(s2));
end.
4、（选排列）下面程序的功能是利用递归方法生成从1到n(n10)的n个数中取k(1=k=n)个数的全部可能的排列（不一定按升序输出）。例如，当n=3，k=2时，应该输出（每行输出5个排列）：
12 13 21 23 32
31
程序：
Var i,n,k:integer;
a:array[1..10] of integer;
count:longint;
Procedure perm2(j:integer);
var i,p,t:integer;
begin
if ① the
文档评论（0）