PASCAL宽搜~~

懂队列吗?懂就好办了 -队列初始化 -while 队首指针=队尾指针then 输出无解 end. 基本就是这样了，没什么难的，好好学吧，我也刚会不久

用队列，读取头节点，处理后把与之相关的节点加入队列，直到队列的头节点赶上尾节点 q[1,1]:=x1;q[1,2]:=y1;//最初的节点进队列 t:=1;//队首指针 tail:=1;//队尾指针...

procedure Tfrm_FmtTree(); var i,j :integer; leafList,leafListPlus: TList; leaf,subNode: TTreeN...

以走迷宫为例,就是一群人一起出发,然后遇到叉路口就分开走,只要有一个人走出就把所有人带走

这样是不对滴..bfs是从一个节点扩展多个节点,所以你要给初始节点一个deep=0.之后从它扩展. 如果从i->j,则deep[j]:=deep[i]+1;deep取决于由那个节点扩展的，而不是循环...

你要搜索，那么我们就必须先确保该数组排序，然后不断的二分法尝试 像一个阵列100号，从小到大的顺序行，求x -1存在，或代表x的函数在一个数组下标 存在（X：Longint型）：Longint...

program hxdb; var i:integer; {循环变量i，代表人数} x,y,z:integer; {代表三次排尾人数} begin ...

500至2000元，

1.最简单的方法，枚举5个人带来的糖块数目，然后按题意分，分完后符合条件就输出。在此之上加优化（其实加不加都差不多，又不是比赛，不过优化程序可以给老师表扬O(∩_∩)O~），如for循环时，5人的糖块...

第一题：var n,s,i,l,j:longint; a:array[1..200] of integer; begin readln(n); a[1]:=1;l:=1; for ...