原创 poj1703Find them catch them
Find them, Catch them Time Limit: 1000MS Memory Limit: 10000K Total Submissions: 26679 Accepted: 8090 Descrip
原创 A Bug's Life -Poj
原文地址:A Bug's Life -Poj作者:蘭多夫87A Bug's Life Time Limit: 10000MS Memory Limit: 65536K Total Submissions: 25599 Accepted:
原创 poj1160post office{動態規劃…
var v,p,i,j,pos:longint; x:array[1..300] of longint; w:array[1..300,1..300] of longint; f:array[1..300,0..30]
原创 poj2492 A bug's life{種類並查集}
A Bug's Life Time Limit: 10000MS Memory Limit: 65536K Total Submissions: 25605 Accepted: 8334 Description Backg
原创 代碼框 的代碼
<pre style="padding: 9.5px; font-family: Monaco, Menlo, Consolas, 'Courier new', monospace; font-size: 13px; color: r
原创 數學定理{摘自 百度}{important}
{突然間在百度百科上發現了N多定理,先跟大家分享一下} 15定理 ▪ 2π定理 ▪ Sun-Ni定理 ▪ Vizing定理 ▪ 阿貝爾定理 ▪ 阿貝爾二項式定理 ▪ 阿貝爾-魯菲尼定理 ▪ 阿貝爾曲線定理 ▪ 阿達馬三圓定理 ▪
原创 2253Frogger{dijkstra思想應用}{AC…
var n,count:longint; x,y:array[1..200] of longint; w:array[1..200,1..200] of real; f:array[1..200] of real;
原创 1548 Robots{偏序集}{WA求解}
var a,b,n:longint; x,y:array[1..600] of longint; f:array[1..600] of longint; procedure swap(var a,b:longint); v
原创 帶權中位數
D[i]爲每個點的權值,則此時的中位數是trunc(∑D[i]/2)這個數 1:計算總的權值和,初始左邊總權值爲0; 2:當前點T從1開始算起 3:若左邊總權值+當前點的權值<總人數的一半,則轉4,否則轉5 4:則把當前點的權值累
原创 數的直徑{摘自 百度文庫}
1。我們用a~b表示樹中任意兩個結點a,b之間的唯一路徑,a~b之間可以有0個或多個結點 ;用x \in a~b表示結點x處於路徑a,b上,即存在形如a~x~b的路徑(這裏x可以和a或b 重合);用符號a-b表示a,b直接相鄰。 2
原创 擴展歐幾里得{計算最大公約數的線…
分析見《NOI導刊》第57期 var a,b,x,y:longint; function extendedeuclid(a,b:longint; varx,y:longint):longint; var t:longint;
原创 歸併排序{nlogn}
var n,i:longint; a,temp:array[1..100000] oflongint;{不要忘了設temp數組,要不然很悲劇} procedure merge(l,m,r:longint); var i,j,
原创 逆序對數{nlogn,歸排}
var n,i:longint; ans:int64; a,temp:array[1..100000] of longint; procedure merge(l,m,r:longint); var i,j,k:long
原创 1200同餘方程{擴展歐幾里得}
var a,b,x,y,d,e:longint; function extendedeuclid(a,b:longint;varx,y:longint):longint; var t:longint; begin if b=
原创 霍納法則{計算多項式的值}
{必修三學過的,但是一直沒打過,這是很好的技巧哦} var i,n,x,ans:longint; a:array[1..100] of longint;{a[1],a[2],a[n]分別爲最高次項係數,次高。。。常數項} beg