摘要：
一道经典贪心题，用并查集来优化。万恶的pku，这题pascal读入必须用seekeof判断是否读完数据，否则WA死你。。。View Code 1 program pku1456(input,output); 2 var 3 x,w :array[0..11000] of longint; 4 f :array[0..11000] of longint; 5 n :longint; 6 answer :longint; 7 procedure swap(var aa,bb:longint); 8 var 9 ... 阅读全文
摘要：
最大的移动时间取决于被经过次数最多的一个房间，把每个移动看做一个区间，覆盖1-400的点，特别的，有时区间端点需要加减，因为它会影响后面一个点（前面一个点）。View Code 1 program pku1083(input,output); 2 var 3 cover:array[0..801] of integer; 4 x,y,n:longint; 5 cases:longint; 6 i,j:longint; 7 answer:longint; 8 procedure swap(var aa,bb:longint); 9 var10 t... 阅读全文
摘要：
求一个图中到其他点的最短路的最大值最小的点和这个值。floyd一遍完事View Code 1 program pku1125(input,output); 2 var 3 f:array[0..300,0..300] of longint; 4 n:longint; 5 procedure init; 6 var 7 i,j,s,x,y:longint; 8 begin 9 fillchar(f,sizeof(f),30);10 for i:=1 to n do11 begin12 read(s);13 for ... 阅读全文
摘要：
这道题需要涉及到置换群的知识，只需知道一个定理。最小交换次数=元素个数-环的个数。View Code 1 program pku1674(input,output); 2 var 3 number :array[0..11000] of integer; 4 v :array[0..11000] of boolean; 5 n,cases:longint; 6 answer :longint; 7 procedure init; 8 var 9 i:longint;10 begin11 readln(n);12 for i:... 阅读全文
摘要：
石头剪刀布，每个人出什么已知，你可以决定他们游戏的顺序，有多少人有可能赢分情况：1：对于石头剪刀布都有的情况，这个值是n 2：对于只有两种的情况，答案是两种对抗能赢得那种的人数 3：只有一种的情况，答案是nView Code 1 program pku2232(input,output); 2 var 3 n,i :longint; 4 c,s,f:longint; 5 ss:ansistring; 6 begin 7 while not eof do 8 begin 9 c:=0;s:=0;f:=0;10 ... 阅读全文