‘ Informatics ’ 的存档; 分类
省选挂了, 没事把上次的贪吃蛇改成双人版, 不过好像还是不怎么好玩… 下载地址: http://cgangee.googlecode.com/files/Snake3.zip {************************************************} { } { [ 阅读全文]
在ural上写了两道高斯消元题，觉得已经基本掌握了 program ural_1042; const maxn=250; var i,j,k,m,n,l:longint; a:array[0..maxn,0..maxn]of longint; f,g:array[1..maxn]of longint; ans:array[1..maxn]of boolean; begin readln(n); for i:=1 to n do begin read(j); [ 阅读全文]
const maxn=1000000; var a:array[1..maxn+1]of longint; i,j,k,m,n,l:longint; procedure swap(i,j:longint); var k:longint; begin k:=a[i]; a[i]:=a[j]; a[j]:=k; end; procedure down(i,n:longint); var j:longint; begin while i*2<=n do begin j:=i*2; if (j+1<=n)and(a[j]>a[j+1]) then inc(j); [ 阅读全文]
id page section no title how2submit 1 8 1.2.1 例题1 盒子里的气球 2 9 1.2.1 例题2 图书馆 ural1188 3 13 1.2.2 例题1 钓鱼 uva757 4 13 1.2.2 例题2 照亮的山景 5 15 1.2.2 例题3 镜子盒 6 19 1.2.3 例题1 折纸痕 uva177 7 20 1.2.3 例题2 三色多边形 ural1181 8 20 1.2.3 例题3 聪明的学生 [ 阅读全文]
写ural 1032，学到了一点数论知识… 鸽巢原理: 若有n个笼子和n+1只鸽子，所有的鸽子都被关在鸽笼里，那么至少有一个笼子有至少2只鸽子。 同余 m|(a-b) a≡b (mod m) program ural_1032; var i,j,k,m,n,l:longint; f,a,sum:array[0..15000]of longint; begin fillchar(f,sizeof(f),$ff); readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n do sum[i]:=sum[i-1]+a[i]; for i:=0 to n [ 阅读全文]
