帮忙用回溯算法写一道freepascal题

2021-03-06 08:52:09 字数 679 阅读 3283

1楼:魔塔双侠

vara:array[1..10000]of longint;f:

array[1..10000]of boolean;num,n,x,b,i,j:longint;flag:

boolean;procedure work(m,time:longint);beginif m=b then begin if time=1 then if f[m-a[m]] then begin f[m-a[m]]:=false; work(m-a[m],time+1); f[m-a[m]]:

=true; end;end;beginassign(input,'lift.in');assign(output,'lift.out');reset(input); rewrite(output);fillchar(f,sizeof(f),true);readln(n,x,b);for i:

=1 to n do read(a[i]);num:=100000;work(x,0);if flag then writeln(num) else writeln(-1);close(input); close(output);end.

其实这个要用搜索做的。回溯法效率低

2楼:匿名用户

这个应该是要用广搜bfs做的吧?回溯的话肯定超时。

我觉得不必用回溯了。。

求问一道初三物理题,谢谢啦,初三一道物理计算题,各位帮帮忙,谢谢啦~

1楼 匿名用户 第一列,理解为串联,0 5a 第二列并联,0 9a 初三一道物理计算题,各位帮帮忙,谢谢啦 2楼 开心 30cm 0 3m 20x0 3 20x0 3x2 18 一道物理题目,谢谢啦? 3楼 匿名用户 两个灯泡串联,通bai过的du电流i相同。 两灯zhi泡的额定电压相同dao,所以...

一道法语题,不确定答案,请帮忙解答一下,谢谢

1楼 匿名用户 应该选 c d en parler 。但是这里的en代替的并不是人 代替的不是de lui ,而是代替的michele这个人不认真 不诚实这件事情。 代替的是du fait qu elle n est pas serieuse ni hon e 2楼 朵奇兰 我认为答案应该是c,此处...

请帮我解答两道数学题,OO谢谢(请用算术方法解答)

1楼 小哲 1 设第一天看了x页,则第二天看了2x 6 40解得第一天看了17页 2 设甲xcm。乙ycm 则x y 22,0 8x y 3 4,解该二元一次方程组 2楼 廖汉淋 1 40 6 五分之二 20 17 2 3 1 五分之一 四分之十五,四分之十五 4 四分之三十一,22 四分之三十一 ...