摘要：
这题我是用广度优先搜索的方法来写的head是头指针，tail是尾指针我先找出下一个点，再判断这个点能不能走，能走就记录该点，到达终点时，就输出。我是用递归的方法输出的constmaxn=12;wayn=4;dx:array[1..wayn]of longint=(-1... 阅读全文
摘要：
分治：1.一元三次方程求解 1015 2.循环比赛日程表 3.求方程的根 5.黑白棋子的移动 1310 6.光荣的梦想 2323 7.小车问题 1668 8.方程分f(x)的根 9.求逆序对 1198 10.循环比赛 11.二分查找 1135 12.麦森数 1030 动态规划：挖地雷 取数字问题：搜 阅读全文
摘要：
分治：1.一元三次方程求解 1015 2.循环比赛日程表 3.求方程的根 5.黑白棋子的移动 1310 6.光荣的梦想 2323 7.小车问题 1668 8.方程分f(x)的根 9.求逆序对 1... 阅读全文
摘要：
这题有点像合并果子，只不过是合并最大的两个，并div k，再放进数组里排序。错了一个点，求大神看看。vara:array[0..10000]of int64;i,j,n,m:longint;procedure kp(l,r:longint);vari,j,mid:lo... 阅读全文
摘要：
这题就是把长度排序，长度相等，就把重的放后面，最后看重量有一个地方下降了，就分组加一。vartj,n,i,j:longint;c,w,s:array[0..1000]of longint;begin readln(n); for i:=1 to n do ... 阅读全文
摘要：
若今天的汇率比明天的汇率高，那么就换钱。varm:real;a:array[0..100]of longint;n,i:longint;begin readln(n); for i:=1 to n do readln(a[i]); m:=100... 阅读全文
摘要：
从大到小排序，如果a[i]+a[j]没超过限制，就可以加tj，否则i就指向下一个。varw,n,i,j,tj:longint;a:array[0..30000]of longint;procedure kp(l,r:longint);vari,j,mid:longin... 阅读全文
摘要：
题意将一些是接起来，找出接的最大的数分析这题其实就是最大整数。做的时候，我们可以先把数字符串排序，从小到大，再一个一个接起来varn,i,x,j:longint;t:string;s:array[0..20]of string;procedure kp(l,r:lon... 阅读全文
摘要：
varn,i,x,j:longint;s:array[0..20]of string;begin readln(n); for i:=1 to n do//因为数据之间有空格，所以先读入成数字，再变为字符串 begin read(x);... 阅读全文
摘要：
typejh=set of 0..100;//集合varn,m,i,u,v,tj:longint;w:jh;a,f:array[0..100]of boolean;s:array[1..100]of jh;procedure search(dep:longint;w:... 阅读全文