programyanghui(input,output);
var
x:array[1..10,1..10]ofinteger;
i,j:integer;
begin
x[1,1]:=1;x[2,1]:=1;x[2,2]:=1;
writeln(1:4);
writeln(1:4,1:4);
fori:=3to10do
...
var
x:array[1..10,1..10]ofinteger;
i,j:integer;
begin
x[1,1]:=1;x[2,1]:=1;x[2,2]:=1;
writeln(1:4);
writeln(1:4,1:4);
fori:=3to10do
...
[ 查看全文 ]
programshuzu(input,output);
{Faibonacci}
var
x:array[1..20]ofinteger;
i:integer;
begin
x[1]:=0;x[2]:=1;
writeln(x[1]);writeln(x[2]);
fori:=3to20do
begin...
{Faibonacci}
var
x:array[1..20]ofinteger;
i:integer;
begin
x[1]:=0;x[2]:=1;
writeln(x[1]);writeln(x[2]);
fori:=3to20do
begin...
[ 查看全文 ]
那还是大学一年级结束的那个夏天。放暑假刚回家几天，母亲就抓了一只小猫回来。
小猫很漂亮，毛比天上的彩霞还鲜艳，也很可怜，还没我的手掌心大。放在地上只能倦作一团，站都站不稳。母亲告诉我，这猫是从芹伯家废弃的房子里抓来的。芹伯家的旧房子是我小时候捉迷藏的最佳场所，尖顶的大瓦房，有一层阁楼，早不住人了，满屋子都堆的是稻草麦杆。我小的时候，经常和小伙伴在那儿可以爬上爬下，那旧房子成了我们的游乐场。
母亲把猫放在地上就忙去了，四岁的侄女忙过来玩弄，一边有手抚摸还一边...
小猫很漂亮，毛比天上的彩霞还鲜艳，也很可怜，还没我的手掌心大。放在地上只能倦作一团，站都站不稳。母亲告诉我，这猫是从芹伯家废弃的房子里抓来的。芹伯家的旧房子是我小时候捉迷藏的最佳场所，尖顶的大瓦房，有一层阁楼，早不住人了，满屋子都堆的是稻草麦杆。我小的时候，经常和小伙伴在那儿可以爬上爬下，那旧房子成了我们的游乐场。
母亲把猫放在地上就忙去了，四岁的侄女忙过来玩弄，一边有手抚摸还一边...
[ 查看全文 ]
早就知道魔兽争霸III已经出来了，一直想买一个来玩玩，昨天才如愿了。我打即时战略游戏就是从《魔兽争霸II》开始的。（那时打厌了RPG游戏《仙剑奇侠传》，打起了另一种游戏。也正是因为习惯了《魔兽争霸》，才一直嫌《红色警戒》太简单。）
昨天上午买了光盘，昨天晚上玩了几小时，今天又打了一仗，并且保存为录相看了两遍。心里才对它有了点印像。现把它写下来，可能有的朋友早就玩烂了，在此贻笑大方了。
一、3D
《魔兽争霸III》给人最大的感觉是它的3D效果。而3D效果又...
昨天上午买了光盘，昨天晚上玩了几小时，今天又打了一仗，并且保存为录相看了两遍。心里才对它有了点印像。现把它写下来，可能有的朋友早就玩烂了，在此贻笑大方了。
一、3D
《魔兽争霸III》给人最大的感觉是它的3D效果。而3D效果又...
[ 查看全文 ]
programMeiJu(input,output);
type
daytype=(sun,mon,tue,wed,thu,fri,sat);
var
today,tomorrow:daytype;
d,mmmm,dddd:integer;
begin
write('Pleaseinputmonth,day:');
read(mmmm,dddd);...
type
daytype=(sun,mon,tue,wed,thu,fri,sat);
var
today,tomorrow:daytype;
d,mmmm,dddd:integer;
begin
write('Pleaseinputmonth,day:');
read(mmmm,dddd);...
[ 查看全文 ]
programxunhuan(input,output);
vari,j,k:integer;
begin
fori:=1to9do
forj:=0to9do
fork:=0to9do
ifi*i*i+j*j*j+k*k*k=i*100+j*10+...
vari,j,k:integer;
begin
fori:=1to9do
forj:=0to9do
fork:=0to9do
ifi*i*i+j*j*j+k*k*k=i*100+j*10+...
[ 查看全文 ]
programxunhuan(input,output);
vari,j,k:integer;
begin
fori:=1to6do
begin
forj:=1to6-ido
begin
...
vari,j,k:integer;
begin
fori:=1to6do
begin
forj:=1to6-ido
begin
...
[ 查看全文 ]
programJiuJiu2(input,output);
var
i,j:integer;
begin
i:=1;
whilei<10do
begin
j:=1;
whilej<=ido
...
var
i,j:integer;
begin
i:=1;
whilei<10do
begin
j:=1;
whilej<=ido
...
[ 查看全文 ]
programJiuJiu1(input,output);
var
i,j:integer;
begin
fori:=1to9do
begin
forj:=1toido
write(i*j:4);
...
var
i,j:integer;
begin
fori:=1to9do
begin
forj:=1toido
write(i*j:4);
...
[ 查看全文 ]
programzdgys1(input,output);
varm,n,r:integer;
begin
read(m,n);
if(m<n)then
begin
r:=m;m:=n;n:=r;
end;
r:=1;
whi...
varm,n,r:integer;
begin
read(m,n);
if(m<n)then
begin
r:=m;m:=n;n:=r;
end;
r:=1;
whi...
[ 查看全文 ]
我的国庆节
一、电话和OICQ
9月30号中午，我拨通了家里的电话。问我父亲：“我要不要回去？”父亲说：“整整一个星期，你不回来在那儿干什么？”我心里可急了，我还要跟美眉见面呢，回家去可没这个自由了。昨天我就和花儿的花说了要去她家玩的。
记的我在OICQ上问花儿的花：“国庆节有什么打算？”花儿的花说：“陪朋友们玩。”我问：“不回家吗？”花儿...
一、电话和OICQ
9月30号中午，我拨通了家里的电话。问我父亲：“我要不要回去？”父亲说：“整整一个星期，你不回来在那儿干什么？”我心里可急了，我还要跟美眉见面呢，回家去可没这个自由了。昨天我就和花儿的花说了要去她家玩的。
记的我在OICQ上问花儿的花：“国庆节有什么打算？”花儿的花说：“陪朋友们玩。”我问：“不回家吗？”花儿...
[ 查看全文 ]
programzdgys(input,output);
varm,n,r:integer;
begin
read(m,n);
if(m<n)then
begin
r:=m;m:=n;n:=r;
end;
repeat
...
varm,n,r:integer;
begin
read(m,n);
if(m<n)then
begin
r:=m;m:=n;n:=r;
end;
repeat
...
[ 查看全文 ]
programqiuzhouci(input,output);
varlen,czdate,czyue,zc,month,dates,days:integer;
begin
czyue:=12;
czdate:=23;
zc:=18; write('pleaseinputmonth:');read(month);
...
varlen,czdate,czyue,zc,month,dates,days:integer;
begin
czyue:=12;
czdate:=23;
zc:=18; write('pleaseinputmonth:');read(month);
...
[ 查看全文 ]
programproWhile(input,output);
var
a:integer;
begin
a:=1;
whilea<1000do
begin
writeln(a);
a:=a+a;
...
var
a:integer;
begin
a:=1;
whilea<1000do
begin
writeln(a);
a:=a+a;
...
[ 查看全文 ]
programproRepeat(input,output);
var
a:integer;
begin
a:=1;
repeat
writeln(a);
a:=a+a;
untila>1000
end....
var
a:integer;
begin
a:=1;
repeat
writeln(a);
a:=a+a;
untila>1000
end....
[ 查看全文 ]
programQiuHe(input,output);
var
i:integer;
s:integer;
begin
s:=0;
fori:=1to10do
s:=s+i;
writeln(s);
end....
var
i:integer;
s:integer;
begin
s:=0;
fori:=1to10do
s:=s+i;
writeln(s);
end....
[ 查看全文 ]
programPi(input,output);
vari:integer;
s:real;
begin
s:=0;
fori:=1to1000do
begin
s:=s+1/(4*i-3)-1/(4*i-1);
end;...
vari:integer;
s:real;
begin
s:=0;
fori:=1to1000do
begin
s:=s+1/(4*i-3)-1/(4*i-1);
end;...
[ 查看全文 ]
programGeWeiHe1(input,output);
var
x,s,t:integer;
begin
read(x);
s:=0;
repeat
t:=xmod10;
s:=s+t;
x:=xdiv10;
untilx=0...
var
x,s,t:integer;
begin
read(x);
s:=0;
repeat
t:=xmod10;
s:=s+t;
x:=xdiv10;
untilx=0...
[ 查看全文 ]
programGeWeiHe(input,output);
var
x,s,t:integer;
begin
read(x);
s:=0;
whilex>0do
begin
t:=xmod10;
s:...
var
x,s,t:integer;
begin
read(x);
s:=0;
whilex>0do
begin
t:=xmod10;
s:...
[ 查看全文 ]
programshuxiang(inout,output);
{12Shengxiao}
varyear:integer;
sx:string;
begin
write('inputnidechushengnian:');read(year);
case(year-1986)mod12of...
{12Shengxiao}
varyear:integer;
sx:string;
begin
write('inputnidechushengnian:');read(year);
case(year-1986)mod12of...
[ 查看全文 ]
programtuxing(input,output);
varh,k:integer;
begin
forh:=1to4do
begin
write...
varh,k:integer;
begin
forh:=1to4do
begin
write...
[ 查看全文 ]
programlt1_1(input,output);
var
a,b,x:integer;
Begin
a:=3;
b:=4;
x:=a;
a:=b;
...
var
a,b,x:integer;
Begin
a:=3;
b:=4;
x:=a;
a:=b;
...
[ 查看全文 ]
引言、男女有别
男人从来不上街，哪天缺少东西了上街买一下，然后又是几天不去；女人没事就上街，在超市走一圈会买上百块钱的东西。
男人虽然上街少，但是要用的东西都买；女人天天上街，但是只买衣服、零食和化妆品。其它能借就借。
男人即使哪天上街逛逛也只是在街道上走走，是真正的“逛大街”；女人逛的不是街，而是服装店。
男人也买衣服，都是看中了一件付了钱就走；女人几乎每件都试穿一下，每穿一件都对着镜子照半天，很可能一件都不买。...
男人从来不上街，哪天缺少东西了上街买一下，然后又是几天不去；女人没事就上街，在超市走一圈会买上百块钱的东西。
男人虽然上街少，但是要用的东西都买；女人天天上街，但是只买衣服、零食和化妆品。其它能借就借。
男人即使哪天上街逛逛也只是在街道上走走，是真正的“逛大街”；女人逛的不是街，而是服装店。
男人也买衣服，都是看中了一件付了钱就走；女人几乎每件都试穿一下，每穿一件都对着镜子照半天，很可能一件都不买。...
[ 查看全文 ]
节假日回家跟父母团聚，还来了几个客人。饭后，客人说：“你们这代人真幸福：当年你们小时，你爷爷奶奶不肯带你们，都是你父母一边干活一边拉扯你们；到现在你们有孩子了，都是爷爷奶奶帮你们带孩子，你们一点心不用分心。”
听到这儿，我说：“我以后有了孩子不用父母带。”众人便问：“那你给谁带？”我说：“我宁愿花钱给托儿所带。”父母异口同声说：“有那么多钱给了我，我就带不好孩子了？...
听到这儿，我说：“我以后有了孩子不用父母带。”众人便问：“那你给谁带？”我说：“我宁愿花钱给托儿所带。”父母异口同声说：“有那么多钱给了我，我就带不好孩子了？...
[ 查看全文 ]
护花使者（一）
我和蚊子打架，我输了，逃了。这些蚊子，想喝血就喝吧，偏要在我耳边叫，我就打，它再叫，我再打。最终我算服了：老子斗不过你，我让位，你睡我的床，我出去游荡吧。
时间才凌晨两点半，外面的空气格外新鲜，天上虽然面满了云，但这些云似乎都很慷慨，肯放月光下来。——今天是农历四月廿五，后半夜应该有月亮，虽然我看不过它，但我想我猜得没错。——再加上校园里倒处是路灯，照得我周围亮如白昼，不同的只是少了白天的喧哗。踩在校园里...
我和蚊子打架，我输了，逃了。这些蚊子，想喝血就喝吧，偏要在我耳边叫，我就打，它再叫，我再打。最终我算服了：老子斗不过你，我让位，你睡我的床，我出去游荡吧。
时间才凌晨两点半，外面的空气格外新鲜，天上虽然面满了云，但这些云似乎都很慷慨，肯放月光下来。——今天是农历四月廿五，后半夜应该有月亮，虽然我看不过它，但我想我猜得没错。——再加上校园里倒处是路灯，照得我周围亮如白昼，不同的只是少了白天的喧哗。踩在校园里...
[ 查看全文 ]
讲述两位网友之间的故事，根据偷猫同名小说改编。同名小说《虫子传》请到本站“写作园地”栏目查找，而不要点FLASH中的链接（因为那是当时用旧个人主页时做上去的）。...
[ 查看全文 ]
毕业前那段最轻松的时期，我整日地和女友在一起。所有同学都没什么事干，但人家要利用这样悠闲的时光来上网或是打游戏。但我不一样，我接触电脑和网络比别的同学要早几年，所以，人人热衷于此的时候，我早没那么大的兴趣了。
曾在网上看到过一句话，大意是这样的：“女友像衣服一样，要多泡”。这个“泡”字是不太合适的，至少我见过的女孩都不愿意听见“自己被某人泡”之类的话。但是我不防借这个字用一下，就像毛泽东能给“实...
曾在网上看到过一句话，大意是这样的：“女友像衣服一样，要多泡”。这个“泡”字是不太合适的，至少我见过的女孩都不愿意听见“自己被某人泡”之类的话。但是我不防借这个字用一下，就像毛泽东能给“实...
[ 查看全文 ]
三、喂鹿
我们见到一处用网围了几百只白鸽，在网外可以看到白鸽，如果要跟鸽子亲近，可以花一块钱买一袋鸽饲料进去喂鸽子。透过网，我们见到几个小姑娘正将鸽饲料托在手心里，鸽子大胆地走过来啄食。看来鸽子是不怕人的，唉——如果有一天全世界的动物都不怕人，那就是我们整个地球的大福了。
游园过程中，老婆一直在问“动物园在哪儿”，上次我来红梅公园根本就没有进动物园，我哪知道在哪儿？只能边走边看了。总算让我们给找着了，原来红梅公园的动物园...
我们见到一处用网围了几百只白鸽，在网外可以看到白鸽，如果要跟鸽子亲近，可以花一块钱买一袋鸽饲料进去喂鸽子。透过网，我们见到几个小姑娘正将鸽饲料托在手心里，鸽子大胆地走过来啄食。看来鸽子是不怕人的，唉——如果有一天全世界的动物都不怕人，那就是我们整个地球的大福了。
游园过程中，老婆一直在问“动物园在哪儿”，上次我来红梅公园根本就没有进动物园，我哪知道在哪儿？只能边走边看了。总算让我们给找着了，原来红梅公园的动物园...
[ 查看全文 ]
二、新奇世界
两个坡都冲过，便到了终点。我长舒了一口气，还好，我还活着，虽然心还在狂跳，总算没事了。走吧，以后再也不玩刺激了。我们继续往前走，咦，那是什么？碰碰车？碰碰车是好东西，我要坐。于是，我们包了两辆车，我和老婆一辆，他们夫妻一辆，加上别的游客，坐满了。准备，只听见“铃……”一声，别人的车都开起来了，我的车怎么不动？找找，哦，脚下有个“油门”，踩！动了，出发！
我从来没开过碰碰车，但是我...
两个坡都冲过，便到了终点。我长舒了一口气，还好，我还活着，虽然心还在狂跳，总算没事了。走吧，以后再也不玩刺激了。我们继续往前走，咦，那是什么？碰碰车？碰碰车是好东西，我要坐。于是，我们包了两辆车，我和老婆一辆，他们夫妻一辆，加上别的游客，坐满了。准备，只听见“铃……”一声，别人的车都开起来了，我的车怎么不动？找找，哦，脚下有个“油门”，踩！动了，出发！
我从来没开过碰碰车，但是我...
[ 查看全文 ]
一、激流勇进
劳动节，本想出去的，不想有别人“出去”，我就出不去了。——我连襟和大姨到我这个妹婿家玩，我就出不去了。
他们是劳动节这天下午到的，我们两人在常州接他们，然后先去天宁寺跟泥菩萨见了个面，没烧香。第二天，四人一起游红梅公园。
上午八点左右到了常州，先去大润发买了些吃的东西带着，从大润发出来，路对面就是红梅公园的东门。门口的阿姨见我们四人走过去，立即迎出门外，并往旁边一指：“去那边买票。...
劳动节，本想出去的，不想有别人“出去”，我就出不去了。——我连襟和大姨到我这个妹婿家玩，我就出不去了。
他们是劳动节这天下午到的，我们两人在常州接他们，然后先去天宁寺跟泥菩萨见了个面，没烧香。第二天，四人一起游红梅公园。
上午八点左右到了常州，先去大润发买了些吃的东西带着，从大润发出来，路对面就是红梅公园的东门。门口的阿姨见我们四人走过去，立即迎出门外，并往旁边一指：“去那边买票。...
[ 查看全文 ]