- 博客(9)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 残盘覆盖
constDIM=8;var tile:integer;board:array [1..DIM,1..DIM] of integer;procedure debug;vari,j:integer;begin for i:=1 to DIM do begin for j:=1 to DIM do begin write(board[i,j]:5); end;
2013-02-26 10:31:55
265
原创 瑞士轮
背景在双人对决的竞技性比赛，如乒乓球、羽毛球、国际象棋中，最常见的赛制是淘汰赛和循环赛。前者的特点是比赛场数少，每场都紧张刺激，但偶然性较高。后者的特点是较为公平，偶然性较低，但比赛过程往往十分冗长。本题中介绍的瑞士轮赛制，因最早使用于 1895 年在瑞士举办的国际象棋比赛而得名。它可以看作是淘汰赛与循环赛的折衷，既保证了比赛的稳定性，又能使赛程不至于过长。问题描述2 n 名编
2013-02-19 22:16:07
806
原创 瑞士轮
【算法分析】分析思路，先初始排一次序，每轮比赛过后排一次序，最后输出排在第Q位的参赛者编号即可。 如果使用快排，复杂度是O(nlogn)，不满足要求！我在考试中就是每遍都用快排，结果只拿了60分！ 仔细观察可以发现，每次比赛时，有一半人加一分，另一半人不加分，由于之前的序列是有序的，那么所有得分人（和不得分人）的序列也是有序的，这样就可以使用归并排序了。先使用快排对数据作一
2013-02-19 22:14:39
2328
原创 骑士周游
pascal写成的骑士周游，仍有运行时间长（约为10秒左右）的问题，求赐教，以作进一步优化。uses crt;constN=8;typechessarray=array [1..N,1..N] of integer;steparray=array[1..8,1..2] of integer;varchess:chessarray;step:steparray;p
2013-02-15 20:43:25
1017
转载 Freepascal之Crt单元
BOB HAN 原创 转载请注明出处 http://www.cnblogs.com/Booble/{这是我的首个一千行程序所以很多地方有冗余 不是很成熟况且程序上了千行用譬如Freepascal 等等这类的面向过程的平台就力不从心了Delphi7以前用过 不是很会用凭着对Crt单元的好奇 我写了这个小游戏}先给代码 可以直接copy走http
2013-02-15 20:08:30
2029
转载 Delphi和C++的语法区别
一、Delphi永远没办法在栈上创建一个对象下面是一段常见的的Delphi代码，在过程的开头声明本过程所需要的全部局部变量：procedure Foo;var obj: TObject; //这句容易被C++程序员误会。begin ...end;C++程序员会以为obj这个变量就是TObject对象实例本身，会以为这一句是在栈上声明并构造了TObject类的一个对象实例，他
2013-02-14 20:14:30
331
原创 Pascal文件读写(2)
var s:string;beginassign(input,'test.txt');reset(input);read(s);writeln(s);readln;close(input);end.
2013-02-14 18:59:23
995
原创 Pascal文件读写(1)
beginassign(output,'test.txt');rewrite(output);write('helloworld');close(output);end.
2013-02-14 18:53:55
1117
EditPlus绿色破解版
2011-10-19
程序员考试2004~2010(全)真题附答案解析
2011-10-09
数据结构算法与应用——C++语言描述英文
2011-10-07
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人