卟之悼的个人资料

初赛答案

女友的女友约我一起游泳求助，怎么破

轻松一下~

模拟赛~~~ 时间定的是10月2号上午8：00~~~11：00，由于有的人去不了机房，所以到时候会把题目发到这来

为进复赛祈祷～ rp++

大量微小说（不定时更新）

内涵帝各种暴走内涵~你有多纯洁你有多内涵？

想问一下，大学学计算机专业的话现在应该看些什么书呢？ rt

NBA明星转战《男人装》~惊艳四射~晃动天地啊~

哦哈哈哈~ 手下败将们~~~

祝贺内蒙省队获得四枚铜牌~ 考的最好的一届啊~

祝贺包九中队获得四枚铜牌~ rt

一试105铜牌有戏吗~ rt 第三题爆零啊…

有没有去北京八十中noi集训的~ rt 想问一下讲课的都有谁？

WTF 最近烦心事一个接着一个的出现，觉得整个人都快被击垮了… ！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！；！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

存个程序 type node=record x,y:longint; end; var a:array[0..16] of node; dis:array[0..16,0..16] of real; ans1,ans2,v,l,num:array[0..16] of longint; cut:array[0..16] of boolean; n,i,j,minv,t:longint; ans:real; function compare1(p1,p2:node):boolean; begin if p1.y<p2.y then exit(true); if p1.y=p2.y then if p1.x<p2.x then exit(true); exit(false); end; procedure swap(x,y:longint); var t1:node; t2:longint; begin t1:=a[x]; a[x]:=a[y]; a[y]:=t1; t2:=v[x]; v[x]:=v[y]; v[y]:=t2; t2:=l[x]; l[x]:=l[y]; l[y]:=t2; t2:=num[x]; num[x]:=num[y]; num[y]:=t2; end; procedure qsort1(l,r:longint); var i,j,m:longint; begin i:=l; j:=r; m:=(l+r) shr 1; repeat while compare1(a[i],a[m]) do inc(i); while compare1(a[m],a[j]) do dec(j); if i<=j then begin swap(i,j); inc(i); dec(j); end; until i>j; if i<r then qsort1(i,r); if l<j then qsort1(l,j); end; function chaji(p1,p2,p0:node):longint; begin exit((p1.x-p0.x)*(p2.y-p0.y)-(p1.y-p0.y)*(p2.x-p0.x)); end; function compare2(p1,p2:node):boolean; var t:longint; begin t:=chaji(p1,p2,a[1]); if t>0 then exit(true); if t<0 then exit(false); if p1.x<p2.x then exit(true); exit(false); end; procedure qsort2(l,r:longint); var i,j,m:longint; begin i:=l; j:=r; m:=(l+r) shr 1; repeat while compare2(a[i],a[m]) do inc(i); while compare2(a[m],a[j]) do dec(j); if i<=j then begin swap(i,j); if m=i then m:=j else if m=j then m:=i; inc(i); dec(j); end; until i>j; if i<r then qsort2(i,r); if l<j then qsort2(l,j); end; function make:real; var i,tot:longint; bao:array[0..16] of integer; begin tot:=0; fillchar(bao,sizeof(bao),0); for i:=1 to n do if not cut[i] then begin inc(tot); bao[tot]:=i; if tot=2 then break; end; if (tot=0)or(tot=1) then exit(0); for i:=3 to n do if not cut[i] then begin while (tot>1)and(chaji(a[i],a[bao[tot]],a[bao[tot-1]])>=0) do dec(tot); inc(tot); bao[tot]:=i; end; bao[tot+1]:=bao[1]; make:=0; for i:=1 to tot do make:=make+dis[bao[i],bao[i+1]]; end; procedure search(k,vv,le:longint); var ll:real; i:longint; begin if vv>minv then exit; if k>n then begin ll:=make; if (vv<minv)and(le>=ll) then begin ans1:=ans2; minv:=vv; ans:=le-ll; end; exit; end; cut[k]:=true; inc(ans2[0]); ans2[ans2[0]]:=k; search(k+1,vv+v[k],le+l[k]); ans2[ans2[0]]:=0; dec(ans2[0]); cut[k]:=false; search(k+1,vv,le); end; function d(p1,p2:node):real; begin exit(sqrt(sqr(p1.x-p2.x)+sqr(p1.y-p2.y))); end; begin readln(n); for i:=1 to n do readln(a[i].x,a[i].y,v[i],l[i]); for i:=1 to n do num[i]:=i; qsort1(1,n); qsort2(2,n); for i:=1 to n do for j:=1 to n do begin dis[i,j]:=d(a[i],a[j]); dis[j,i]:=dis[i,j]; end; fillchar(cut,sizeof(cut),false); ans:=0; minv:=maxlongint; search(1,0,0); writeln(ans:0:2); for i:=1 to ans1[0]-1 do for j:=i+1 to ans1[0] do if num[ans1[i]]>num[ans1[j]] then begin t:=ans1[i]; ans1[i]:=ans1[j]; ans1[j]:=t; end; for i:=1 to ans1[0] do write(num[ans1[i]],' '); writeln; end.

本人现在在清华大学CAD机房，有什么想问的吗？不用考试～^_^

APIO！加油！都发挥出自己的最佳水平，争取全都拿上奖牌！~

最大权闭合图最大权闭合图定义：图中个点的后继必然也在图中

祝大家考试顺利~ 嗯，下个星期就不去机房了

马上就要升级了哦~

“小兵张嘎”变非主流揭童星雷人今昔对比!!! 还记得儿时的那些童星吗？还记得儿时他们跟我们带来的欢乐与感动吗？多年之后，我们早已长大成人，而当年的童星显然也逃不过时间这把杀猪刀

我的usaco

如果你可以回到十年前，想对自己说些什么呢如果你可以回到十年前，想对自己说些什么呢

遇见神人啦！！快来看！！！

快来看看吧，粗大事了！

看过人体蜈蚣的说说这部电影怎么样吧看过人体蜈蚣的说说这部电影怎么样吧

这位魔术师碉堡啦，处处是亮点啊缓冲时点定吧~~~~

来这里向心爱的人表白吧来这里向心爱的人表白吧

谁能推荐些好看的电影最好是悬疑类的~

你有活下去把握么？全校每个人都被隔离开，你只能选一个人，如果这个人同时选择了你，你们才能活着出去。你有活下去把握么？

爆照啦~大家都来评论一下啊十楼上图~

有人想要我的ID吗有人想要我的ID吗

一夫多妻之后… 中国会变成什么样

咱们有必定给纯洁下一个定义咱们有必定给纯洁下一个定义

窝窝们小年快乐啊窝窝们小年快乐啊

各位敢不敢把你们名字的缩写打出来，看看楼下叫你什么 Cyf

本人今年高二,想在高考前当上帝吧吧主求攻略

每天上学放学时听音乐把声音开得很大现在耳朵隐隐作痛真心求教该怎么办

北航好吗,怎么我们学校拿一等的几乎都保北航了

冬令营的时间确定了吗

谁能推荐一些好看的喜剧电影呢 RT

一起刷usaco~ 近期计划，做usaco~

全国复赛人数和各省均分总和是多少呀全国复赛人数和各省均分总和是多少呀

快复赛了,大家都在干什么呢只是刷题吗?还是学习一些新算法