sanyun0606
女, 17岁
山东 济南
上次登录：
14天前
 加为好友
|
|
2008年10月31日 星期五 11:36
原来在这恒古不变的回环里，太阳总是有升有落，从来没有为谁留过。
身边的女子一个个从自己身边走过，红巾翠袖，娉娉婷婷，袅娜多姿，像一阵风一般，微微一笑，什么也不留。
而她们的花容月貌，全都在我的美人扇中。
我一生之中只有美的东西，美人，美扇。
美人扇在我的手中轻摇，我微笑着对着每一位对我笑的美女，把最美的风姿，送给她们。
我常常流连于青楼红馆，只为细赏烟霞，协鱼水之欢。
有女子相伴的日子，漫漫长夜也变得不难熬了。
我曾陪师妃暄结伴同游，又看过沈落雁的柔弱之态，也听过石 |
2008年10月21日 星期二 07:50
呵呵~noip初赛过了~好高兴啊~还有一个月就要参加复试了，抓紧时间复习！！！ |
2008年10月10日 星期五 15:17
PASCAL单目运算符优先级
共四级
单目运算符 (最高优先级)
@ 取变量或函数的地址(返回一个指针)
not 逻辑取反或按位取反
乘除及按位运算符
* 相乘或集合交集
| |
2008年10月09日 星期四 17:01
var
p,n,m,i,j:longint;
apple,weight,f,s:array[1..100000]of longint;
procedure kpw(x,y:longint);
var
i,j,z:longint;
begin
z:=f[x];
i:=x;j:=y;
while i<j do
begin
while (i<j)and(weight[z]>weight[f[j]]) do dec(j);
if i<j then begin f[i]:=f[j];inc(i);end;
while (i<j)and(weig |
2008年10月07日 星期二 13:20
自从上高二以来，发现时间骤然紧张了~因为学理，所以作业是一张张如雪花般的卷子……太恐怖了~又因为还要搞竞赛，所以多余的时间也搭上了，感觉好累啊！ |
2008年10月07日 星期二 13:18
var
a,b,t,i,n:longint;
begin
readln(n);
a:=1;
b:=1;
for i:=3 to n do
begin
t:=a;
a:=(a+b) mod 7654321;
b:=t;
end;
writeln(a);
end.
|
2008年10月07日 星期二 12:49
type
node=record
c,y:integer;
end;
var
f:array[1..2000]of node;
n,max,k,i,a,b:integer;
foot:array[1..2000]of integer;
begin
readln(n,max);
readln(k);
fillchar(foot,sizeof(foot),0);
for i:=1 to k do
begin
readln(a,b);
foot[a]:=foot[a]+b;
end;
f[1].c:=max-1-foot[1];
f[1].y:=1;
for i:=2 to n do
begin
if f[i-1].c>=(foot[i]+1)then
|
2008年09月25日 星期四 13:16
var
t1,t2,a,b,i,n,m,p:integer;
pp:array[1..5000]of boolean;
f:array[1..5000]of integer;
function find(x:integer):integer;
begin
if f[x]=0 then exit(x)
else
if f[f[x]]=0 then exit(f[x])
else
begin
f[x]:=find(f[x]);
exit(f[x]);
end;
end;
begin
readln(n,m,p);
fillchar(f,size |
2008年09月25日 星期四 12:57
var
t1,t2,a,b,i,n,m,p:longint;
pp:array[1..50000]of boolean;
f:array[1..50000]of longint;
function find(x:integer):integer;
begin
if f[x]=0 then exit(x);
if f[f[x]]=0 then exit(f[x])
else
begin
f[x]:=find(f[x]);
exit(f[x]);
end;
end;
begin
readln(n,m,p);
fillchar(f,sizeof(f),0);
|
2008年09月25日 星期四 12:10
var
pp:array[1..500000]of boolean;
d:array[1..5000,1..5000]of boolean;
i,j,k,n,m,a,b,p:integer;
begin
fillchar(d,sizeof(d),false);
readln(n,m,p);
for i:=1 to m do
begin
readln(a,b);
d[a,b]:=true;
d[b,a]:=true;
end;
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
begin
if (d[k,i]=true)and(d[k,j]=true)then |
|
添加
给她留言
发送消息
