浏览我的博客
管理我的博客
浏览我的学校
管理我的学校
管理学校成员
申请班级博客
主页
用户ID:
密码:
验证:
登 录
注 册
取回密码
中山教育
中山国际网
中国教育在线
帮助
时代财富科技公司
FortuneAge Technology Co., Ltd.
校园博客客服网站(新)
<<
>>
我的资料
Mpq
博客信息
积分:988
等级:4级 lv 4
日志总数:231
发表评论总数:18 (
查看
)
获得评论总数:21
发表留言总数:0
所属学校:
三鑫
收藏本站:
最新公告
欢迎光临我的博客!
最新相册
我的日历
我的栏目
经典算法
Zoj题库
其他题的题库
数学天地
数据库
感悟OI
体育风云
成长日记
了解IT行业
文学殿堂
我的链接
-
我的OI空间
-
初三第一次联考成绩
-
同学录资料
-
初二(11)班论坛
-
浙江大学题库
-
纪中信息学论坛
-
信息学初学者之家
-
数学中国
-
北京大学题库
-
衡阳市八中信息学论坛
-
水木清华
-
体育期末成绩
-
三鑫四节之体育节
最新评论
RE:
FPC 2.1.4
--
游客
RE:
刘翔、约翰逊、杜库雷、阿诺德 跑道之外 他们跨过了什么?跨...
好文好文,是您的手笔?如果是您的文章,如果您愿意和我联系,...
--
xiaoyanzi游客
RE:
中考改革随想
还有就是数学不能使用计算器…….......在读初中之前原...
--
Mpq
RE:
三鑫四节之体育节
这次似乎不举行冬季长跑……看来在三鑫参加的体育项目最终是以...
--
Mpq
RE:
2007期末总结
看了你的"总结", 挺有针对性的! 相信下学期你一定会有...
--
lili游客
最新留言
[
全部留言
]
[
发表留言
]
RSS
首页
-> 经典算法
2007-06-10
HeapSort
Program Heap_Sort_Mpq_2007_1_31; const Maxn=1000000;type data=array[1..Maxn] of longint;var a:data; i,n,Tmp:longint; procedure heap(n,i:longint);var x,j:longint;begin x:=a[i]......
Posted @
2007-06-10 01:27
阅读全文
(420)
评论
(0)
2007-06-02
二分图匹配
Place the Robots Time limit: 5 Seconds Memory limit: 32768K Total Submit: 1112 Accepted Submit: 276 Robert is a famous engineer. One day he w......
Posted @
2007-06-02 10:54
阅读全文
(397)
评论
(0)
2007-06-02
快排
Program Qsort_Mpq; Const Maxn=100000; var n:longint; a:array[0..Maxn] of longint; procedure init;var i:longint;begin readln(n); for i:=1 to n do readln(a[i]);end; pro......
Posted @
2007-06-02 10:49
阅读全文
(419)
评论
(0)
2007-06-01
线段树
Light 提交文件:count.pas count.exe文件输入:count.in文件输出:count.out一天,Mpq的物理老师找到Mpq说:“你学过光现象的一些知识了,我知道你是学信息学的,现在我结合物理来问你一个信息学的问题(我晕,物理老师也懂信息学)。” Mpq很爽快的答应了,他认为物理老师的问题不会很难的。 王老师接着说:“你知道光在同一均匀物质中是沿直线传播的......
Posted @
2007-06-01 18:47
阅读全文
(432)
评论
(0)
2007-06-01
最长公共字串(LCS)
var s1,s2:string; i,j:integer; f:array[1..255,1..255] of longint; b:array[1..255,1..255] of string; begin readln(s1);readln(s2); for i:=1 to length(s1) do f[i,0]:=0; for j:=1 to ......
Posted @
2007-06-01 18:46
阅读全文
(450)
评论
(0)
2007-06-01
最长不下降序列
program Lis_Mpq; var i,n,m,Max_Len,Max_Ans:longint; a,f,Ans:array[0..100000] of longint; procedure init; var i:longint; begin readln(n); for i:=1 to n do readln(a[i]); Max_Le......
Posted @
2007-06-01 18:45
阅读全文
(298)
评论
(0)
2007-06-01
用Heap做Dijkstra
程序名:dijkstra 任务: 求出所给无向图(边权非负)的单源最短路. 输入格式: 第一行: 点数N(2 <= N <= 10,000), 边数M(M <= 100,000), 源点S(1 <= S <= N) 以下M行, 每行三个整数a, b, c表示点a, b(1 <= a, b <= N)之间连有一条边, 权值为c(0 <= c......
Posted @
2007-06-01 18:23
阅读全文
(232)
评论
(0)
共 1 页,7 条记录