pascal-搜索回溯

《pascal-搜索回溯》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、杭十五中信息学奥赛――算法设计（4）【题目】求集合元素问题（1,2x+1,3X+1类)某集合Ａ中的元素有以下特征：(1)数1是A中的元素(2)如果X是A中的元素,则2x+1,3x+1也是A中的元素(3)除了条件(1),(2)以外的所有元素均不是A中的元素[参考程序1]usescrt,dos;vara:array[1..10000]oflongint;b:array[1..10000]ofboolean;times,n,m,long,i:longint;hour1,minute1,second1,sec1001:word;hour2,minute2,second2,sec1002:w

2、ord;beginwrite('N=');readln(n);{gettime(hour1,minute1,second1,sec1001);times:=minute160+second1;writeln(minute1,':',second1);}fillchar(b,sizeof(b),0);a[1]:=1;m:=2;long:=1;whilelong<=ndobeginfori:=1tolongdoif(a[i]2=m-1)or(a[i]3=m-1)thenifnotb[m]thenbegininc(long);a[long]:=m;b[m]:=true;break;end

3、;inc(m);end;{gettime(hour2,minute2,second2,sec1002);times:=minute260+second2-times;writeln(minute2,':',second2);writeln('Ok!UsesTime:',times);}fori:=1tondowrite(a[i],'');readln;end.回溯－14杭十五中信息学奥赛――算法设计（4）[参考程序2]usescrt;constn=10000;vara:array[1..n]oflongint;i,j,k,l,y:longint;beginclrscr;fillch

4、ar(a,sizeof(a),0);i:=1;j:=1;a[i]:=1;repeaty:=2a[i]+1;k:=j;whiley〈a[k]dobegina[k+1]:=a[k];k:=k-1;end;ify>a[k]thenbegina[k+1]:=y;j:=j+1;endelseforl:=k+1tojdoa[l]:=a[l+1];j:=j+1;a[j]:=3a[i]+1;inc(i);untilk>=n;fori:=1tondobeginwrite(a[i],'');if(imod10=0)or(i=n)thenwritelnend;end.[参考程序3]usescrt;var

5、a:array[1..10000]oflongint;n,i,one,another,long,s,x,y:longint;beginwrite('n=');readln(n);a[1]:=1;long:=1;one:=1;another:=1;whilelongythenbegins:=y;inc(another);end回溯－14杭十五中信息学奥赛――算法设计（4）elsebegins:=x;inc(one);inc(another);end;inc(long);a[long]:=s;end;fori:=1tondowrite(a[i],'');end.[参考程序4]varn:

6、integer;top,x:longint;functioninit(x:longint):boolean;beginifx=1theninit:=trueelseif((x-1)mod2=0)and(init((x-1)div2))or((x-1)mod3=0)and(init((x-1)div3))theninit:=trueelseinit:=false;end;beginwrite('inputn:');readln(n);x:=0;top:=0;whiletop

7、rite('outputend.');readlnend.〖问题描述〗用高精度计算出S=1!+2!+3!+...n!(n<=50)其中"!"表示阶乘,例如:5!=54321要求：输入正整数N,输出计算结果S四、搜索回溯法搜索回溯法是程序设计中最常用的一种算法，其思想方法是按一定的顺序对每阶段试探所有可能性：即从初始态出发向前搜索，如果成功则继续，否则回退一步，如此反复直至所有可能都试遍。在搜索过程中，须作标志以记住已搜索过的步骤，设栈实现回溯。算法框架回溯－14杭十五