|贴子

2012-09-26
YM露姐。。梁露吧
求RP。。。
2012-09-26
QSORT！梁露吧
procedure qsort(l,h:integer); var i,j,t,m:integer; begin i:=l; j:=h; m:=a[(i+j) ...
2012-08-01
求神牛写个程序noip吧
3. 比赛 (contest.pas/c/cpp) 【问题描述】 N头牛，依次编号为1…N，两两进行群架比赛...
2012-04-13
....梁露吧
var a,a1,b,b1,c,c1,d,d1,a2,a3,b2,b3,c2,c3,d2,d3:integer; queue:array[0..50000,1....
2012-03-09
000000吴西吧
var a:array[-9..9] of longint ; b:array[-9..9] of boolean; c:array[1..9] of char...
2012-03-07
ooooooooooooooo梁露吧
const dx:array[1..4] of longint=(-1,0,0,1); dy:array[1..4] of longint=(0,1,-1,0)...
2011-11-11
111吴西吧
var m,i,j,k,q,yy,n:longint; a:array[1..1000] of longint; b:array[1..1000] of boo...
2011-11-11
李佳蔚呢。。。吉大附中高中部吧
2011-11-07
！！！吴西吧
var n,m,i,j:longint; a,b:array[1..100] of boolean; procedure try(ii,jj:longint);...
2011-10-29
我也是可以涂鸦的人了。。哈哈哈哈哈吉大附中高中部吧
实践是检验真理的唯一标准！！ 。。在无数个夜晚闷声大顶之后的产物。。
• 
2011-10-19
。。。梁露吧
var m,b:real; n,p,i,j,k,l,ii:longint; a:array[1..100] of char; {procedure zhuan(...
2011-10-09
请各位大牛看一下程序noip吧
解一元三次方程的问题 题目说必有三个不相等的实根 我用的盛金公式，NA（60） 有两个...
2011-09-26
递归吴西吧
转进制 var x,n:longint; procedure zhuan(x,n:longint); var k:longint; begin if x&...
2011-09-20
.......吴西吧
var b:array[1..20]of boolean; n,l:longint; a:array[1..20]of longint; procedure p...
2011-09-19
露姐进梁露吧
var a,b:array[1..100]of integer;i,j,k,l,y,z:longint; begin i:=1; while eoln=fals...
2011-09-16
！！！！吴西吧
var x:array[1..8]of integer; a,b,c:array[-7..16]of boolean; i:integer; procedure...
2011-09-15
数字金字塔吴西吧
var n,i,j:longint; w:array[0..1000,0..1000] of int64; k:array[0..1000,0..1000]of...
2011-09-15
数字金字塔问题noip吧
考虑在下面被显示的数字金字塔。 写一个程序来计算从最高点开始在底部任意处结束的路...
2011-09-14
！！！！吴西吧
var w:array[1..8] of longint; v:array[1..8] of longint; f:array[0..8] of longint...
2011-09-08
！！！！吴西吧
var a,b,c,d,n,m,x,y:longint; function xixi(x:longint):longint; var i,k:longint; ...