摘要:
近期第一次写DFS,纪念一下题目描述房间里放着n块奶酪。一只小老鼠要把它们都吃掉,问至少要跑多少距离?老鼠一开始在(0,0)点处。输入格式第一行一个数n(nIris Then Exit;有兴趣的话还可以把各点间距离存起来、、、搜索+回溯、不详细解释了、 1 Var 2 x,y:Array[0..21] of Double; 3 Used:Array[0..21] of Boolean; 4 i,n:Integer; 5 xx,Iris:Extended; 6 Procedure DFS(i,t:Integer;xx:Double); 7 Var 8 j:intege... 阅读全文
摘要:
第一版见:http://www.cnblogs.com/Catch-22/archive/2012/11/05/2756004.htmlVer 0.9.5 Beta本版修正了乘积为0时无输出的Bug(感谢luogu.org的数据) 1 Uses Math; 2 Var 3 a,b:AnsiSTring; 4 DC,la,lb:longint; 5 c:Array[-2555555..2555555] of longint; 6 Procedure Plus(a,b:AnsiSTring); 7 Var 8 Tt,i:longint; 9 Begin... 阅读全文