摘要：
const max=1000;vara,b:array[0..max]of longint;procedure init;vars1,s2,s:string;l1,l2,i:longint;begin readln(s1); readln(s2); ... 阅读全文
摘要：
题意把总分排序分析先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面vara,t,p:array[0..300]of longint;n,i,x,y,j:longint;procedu... 阅读全文
摘要：
题意排序分析数据规模太大，建议使用快排。varn,i:longint;a:array[0..100000]of longint;procedure kp(l,r:longint);vari,j,mid:longint;begin if l>=r then exi... 阅读全文
摘要：
题意找出这n个人排队的一种顺序，使得n个人的平均等待时间最小。分析打水的时候花费时间越少的人越先打，那么所有人的等待时间之和就会最小，所以我们要先排序，再计算总时间vara,b:array[0..50000]of longint;n,i,j,w:longint;tj:... 阅读全文
摘要：
分析要用高精度，数组一定要开得大。我做的时候，就是因为数组不够大而和我朋友调试了超久。const maxn=2600;vara,b:array[1..maxn]of longint;c:array[1..2*maxn]of longint;l1,l2:longint;... 阅读全文
摘要：
题意n个人(nn then i:=1; if (a[i]=0) then begin inc(j); if j=m then begin ... 阅读全文
摘要：
题意把1到n中，所有数的约数数量相加。分析从它给出的样例中，我们可以得出这样的规律：t:=(n/1)+(n/2)+...(n/n-1)+(n/n);varn,i,t:longint;begin read(n); t:=0; for i:=1 to n... 阅读全文
摘要：
题意走迷宫，要绕开障碍，走过的就不能再走，求有多少种不同的方法可以到达终点分析我们可以用深搜来做，输入时把障碍的坐标记录下来constdx:array[1..4]of longint=(0,0,1,-1);dy:array[1..4]of longint=(1,-1,... 阅读全文
摘要：
题意求出加上额外权值以后，最终的权值最大的k个人，并输出他们的编号。分析先排序，再一个一个求权值。varn,k,i:longint;e:array[0..10]of longint;a:array[0..50000,1..4]of longint;procedure ... 阅读全文
摘要：
题意有n堆纸牌，通过把牌移到另一堆，使每一堆的纸牌数相等。分析在编号为 1 堆上取的纸牌，只能移到编号为 2 的堆上；在编号为 N 的堆上取的纸牌，只能移到编号为 N-1 的堆上；其他堆上取的纸牌，可以移到相邻左边或右边的堆上。constmaxn=100;vara:a... 阅读全文
摘要：
题意一个一个的输入，按以下规则输出：1. 多项式中自变量为 x，从左到右按照次数递减顺序给出多项式。2. 多项式中只包含系数不为 0 的项。3. 如果多项式 n 次项系数为正，则多项式开头不出现“+”号，如果多项式 n 次项系数为负，则多项式以“-”号开头。4. 对于... 阅读全文