七里香猪的个人资料

【四川】二次机会，四川同学请留意征集志愿！四川招办鸟蛋速度，大家小心录取状况出来不久征集志愿填报就结束了，呃，睡觉别过头了。嘻嘻，其实我是想问下征集志愿的准确时间？附件：（摘自百度百科）征集志愿概念： “征集志愿”是指对于第一批至第四批第一志愿录不满额的院校，在每批次第一志愿录退完成后，由省教育考试院向社会公布院校招生缺额计划，考生再根据缺额计划在当地招生办填报“征集志愿”，这样使得第一志愿录取时落选的考生有第二次重新填报志愿的机会．征集志愿设置： 1.文理科第一批至第五批设A.B.C三所院校及院校服从志愿,每所院校均设3个专业志愿和1个专业服从志愿. 2.文理科提前批次及艺术体育类不进行征集志愿. 征集志愿对象: 1.参与征集志愿的院校为相应批次计划未完成或追加计划的高等院校. 2.参与征集志愿的考生未达到相应批次控制线且未被录取的考生和相应批次线下20分以内的学生. 征集志愿与补录的区别： [1]征集志愿，是在招生过程中，原报考这个志愿的人数不够，只能通过再征集志愿，才能录取到计划招生的人数。而补录是在开学后，录取的学生放弃这个学校，在校生人数没有达到招生计划，再补充录取学生就叫补录。其实在志愿录取期间，补录志愿与征集志愿的概念基本上是一样的，只是一般在录取结束新生开学时期的的补录，不再使用“征集志愿”的说法。

【四川】对外经贸第一手分数线！对外经贸四川已录取完毕,最后分数线,理科:600,文科,602.

【浙江】刷屏太霸道，【四川】签名齐反击。

【泄愤总贴】震惊！一千万考生与蜗牛招办的故事。考生是小鸡，招办是蜗牛。

【泄愤总贴】震惊！一千万考生与蜗牛招办的故事。一楼给百度。

【四川】高校调档线集中贴（即使更新）（先文后理）四川大学 566分 543分；西南财经大学 572分 559分；电子科技大学 546分 540分；西南交通大学 557分 538分。本人报的对外经贸，焦急等待中。

都是女生吗，难道男生减肥没有到这里的？ ,,呃，看好多帖子里都是“姐妹”什么的，好吃惊。本人18岁，刚刚完成高考,赋闲在家，体重飙升，178,155。目标没有几十斤那么夸张，到138，139（140一下）就行。不打算绝食，准备找个科学点的减肥膳食，然后加运动。有成功经验的同学可以向我透露下，多谢了。另外看着大家都在找人监督，我也公布下QQ 364182027 有兴趣的同学一起。本人男生，题目由此来。

贸大的公共浴室是咋回事？我怎么听着这么别扭？不会是人看人那种吧？我从来没有进过公共浴室啊求师哥师姐详解，谢谢

2010级的，25号到学校么？老师没说清楚，只说要关注学校网站，谁知道？

我马上就要高考了，每天都来这里。嘿嘿，我发现这吧里的同学都非常搞笑非常好玩，尤其是评论，太有意思了！紧张了一整天，一看到大家荒诞无理又饶有情趣的言论，马上就放松了。呃，我准备把这吧推荐给同学，来体验一下这种和我们相似的想着死期临近，又想反抗又解不出解析几何大题的感觉。

放学没？还是在等老师开会？ rt

高三要放假了么？被隔离的同学前来问候！ RT，貌似听医生这样说的

开学高三了，找点朋友互相鼓励呃，我成绩在我们班上一般，上重点比较稳但不一定能上好的。我平时的作息习惯不算很好，11点上床后我喜欢捣鼓半个小时左右的手机，嘎嘎，本人又比较需要和别人交流，所以决定找生活习性差不多的朋友互相鼓励支持共度高三我的QQ是 364182027 ~谢谢·

【推荐】pascal游戏之红星大逃亡可能有BUG 本人因为要去赶作业所以来不及改了~玩法:不要被其他东西碰到你控制的是小五星最好开启中文模式!program wxtw;uses crt;type zbdy=record x,y:integer; end;var n,i,x,y,t,sjs:integer; ml:char;zb: array [1..12] of zbdy;begin randomize; sjs:=random(3); zb[1].x:=15; zb[1].y:=15; clrscr; gotoxy(zb[1].x,zb[1].y); write('☆'); delay(100); zb[2].x:=1; zb[2].y:=20; gotoxy(zb[2].x,zb[2].y); write('◎'); zb[10].x:=18; zb[10].y:=20; gotoxy(zb[10].x,zb[10].y); write('◎'); zb[11].x:=36; zb[11].y:=20; gotoxy(zb[11].x,zb[11].y); write('◎'); zb[12].x:=53; zb[12].y:=20; gotoxy(zb[12].x,zb[12].y); write('◎'); zb[3].x:=1; zb[3].y:=5; gotoxy(zb[3].x,zb[3].y); write('◎'); zb[4].x:=18; zb[4].y:=5; gotoxy(zb[4].x,zb[4].y); write('◎'); zb[5].x:=36; zb[5].y:=5; gotoxy(zb[5].x,zb[5].y); write('◎'); zb[6].x:=53; zb[6].y:=5; gotoxy(zb[6].x,zb[6].y); write('◎'); zb[7].x:=1+sjs; zb[7].y:=1+sjs; gotoxy(zb[7].x,zb[7].y); write('△'); zb[8].x:=40+sjs; zb[8].y:=10+sjs; gotoxy(zb[8].x,zb[8].y); write('△'); zb[9].x:=1+sjs; zb[9].y:=20+sjs; gotoxy(zb[9].x,zb[9].y); write('△'); gotoxy(zb[1].x+8,zb[1].y-2); write('五星大逃亡1.0版'); gotoxy(zb[1].x+3,zb[1].y-1); write('回车键开始游戏作者：千觞醉红尘 QQ:364182027'); gotoxy(zb[1].x+3,zb[1].y); write('操作上：I 下：K 左：J 右：L '); gotoxy(zb[1].x+3,zb[1].y+1); write('注意：碰到边框程序会自动退出，因为时间原因来不及修复!'); readln; repeat if keypressed=true then begin ml:=readkey; case ml of 'i': begin zb[1].y:=zb[1].y-1; clrscr; gotoxy(zb[1].x,zb[1].y);write('☆'); end; 'k': begin zb[1].y:=zb[1].y+1; clrscr; gotoxy(zb[1].x,zb[1].y); write('☆'); end; 'j' :begin zb[1].x:=zb[1].x-1; clrscr; gotoxy(zb[1].x,zb[1].y); write('☆'); end; 'l' :begin zb[1].x:=zb[1].x+1; clrscr; gotoxy(zb[1].x,zb[1].y); write('☆'); end; end; end else begin clrscr; if zb[2].x<=70 then zb[2].x:=zb[2].x+1 else zb[2].x:=1; gotoxy(zb[2].x,zb[2].y); write('◎'); if zb[3].x<=70 then zb[3].x:=zb[3].x+1 else zb[3].x:=1; gotoxy(zb[3].x,zb[3].y); write('◎'); if zb[4].x<=70 then zb[4].x:=zb[4].x+1 else zb[4].x:=1; gotoxy(zb[4].x,zb[4].y); write('◎'); if zb[5].x<=70 then zb[5].x:=zb[5].x+1 else zb[5].x:=1; gotoxy(zb[5].x,zb[5].y); write('◎'); if zb[6].x<=70 then zb[6].x:=zb[6].x+1 else zb[6].x:=1; gotoxy(zb[6].x,zb[6].y); write('◎'); if zb[10].x<=70 then zb[10].x:=zb[10].x+1 else zb[10].x:=1; gotoxy(zb[10].x,zb[10].y); write('◎'); if zb[11].x<=70 then zb[11].x:=zb[11].x+1 else zb[11].x:=1; gotoxy(zb[11].x,zb[11].y); write('◎'); if zb[12].x<=70 then zb[12].x:=zb[12].x+1 else zb[12].x:=1; gotoxy(zb[12].x,zb[12].y); write('◎'); gotoxy(zb[1].x,zb[1].y); write('☆'); sjs:=random(11); if sjs=2 then begin if zb[7].x zb[1].x then zb[7].x:=zb[7].x-1; if zb[7].y zb[1].y then zb[7].y:=zb[7].y-1; gotoxy(zb[7].x,zb[7].y); if ((zb[8].x=zb[7].x)) and ((zb[8].y=zb[7].y)) or ((zb[9].x=zb[8].x) and (zb[9].y=zb[8].y)) or ((zb[7].x=zb[9].x) and (zb[7].y=zb[9].y)) then gotoxy(zb[7].x-1,zb[7].y-1); write('△'); end else begin gotoxy(zb[7].x,zb[7].y); write('△'); end; sjs:=random(11); if sjs=0 then begin if zb[8].x zb[1].x then zb[8].x:=zb[8].x-1; if zb[8].y zb[1].y then zb[8].y:=zb[8].y-1; gotoxy(zb[8].x,zb[8].y); if ((zb[8].x=zb[7].x)) and ((zb[8].y=zb[7].y)) or ((zb[9].x=zb[8].x) and (zb[9].y=zb[8].y)) or ((zb[7].x=zb[9].x) and (zb[7].y=zb[9].y)) then gotoxy(zb[8].x-1,zb[8].y-1); write('△'); end else begin gotoxy(zb[8].x,zb[8].y); write('△'); end; sjs:=random(11); if sjs=5 then begin if zb[9].x zb[1].x then zb[9].x:=zb[9].x-1; if zb[9].y zb[1].y then zb[9].y:=zb[9].y-1; gotoxy(zb[9].x,zb[9].y); if ((zb[8].x=zb[7].x)) and ((zb[8].y=zb[7].y)) or ((zb[9].x=zb[8].x) and (zb[9].y=zb[8].y)) or ((zb[7].x=zb[9].x) and (zb[7].y=zb[9].y)) then gotoxy(zb[9].x-1,zb[9].y-1); write('△'); end else begin gotoxy(zb[9].x,zb[9].y); write('△'); end; for i:=2 to 12 do if (zb[1].x=zb[i].x) and (zb[1].y=zb[i].y) then begin clrscr; writeln('逃亡失败！回车键退出'); readln; halt; end; delay(20); end; until ml='q'; end.

PASCAL的readkey单元的说明，谁可以发一下？ rt,谢谢了~

Pascal游戏编程群 55465723最近看到吧中这么多人在发布自己的pascal游戏,~~觉得中国软件产业有救了啊!我们为了兴趣而学,为了爱好而学,不单单是谈保送了~~所以建立了这样一个群~ 当然,大家也可以在这里讨论pascal的方方面面...

最经典的PASCAL游戏!300行程序代码,超爽! program joyxy; typeplayer = record level:integer; gjl:integer; fyl:integer; xue:integer; money:integer; maxxue:integer; map:integer; jy:integer; end;bag = record red:integer; back:integer; sl:integer; ttl:integer; end;monster = record gj:integer; fy:integer; xt:integer; jyz:integer; end;gjfs = record gj:integer; fy:integer; bx:integer; jb:integer; end;pet = record gj:integer; jx:integer; nm:string; live:integer; level:integer; end;var i,m,sjs,rsx,gsx,pd,qk,dqgj,dqfy,jnxz,rys:integer; role:player; bao:bag; ms:array[1..100] of monster; dqgw:monster; ml:string; jn:array [1..100] of gjfs; bb:pet;procedure js; begin role.level:= 1; role.gjl:=26; role.fyl:=20; role.maxxue:=100; role.xue:=100; role.map:=0; bao.red:=2;end;procedure gw; begin ms[1].gj:=21; ms[1].fy:=0; ms[1].xt:=100; ms[1].jyz:=12; ms[2].gj:=25; ms[2].fy:=10; ms[2].xt:=80; ms[2].jyz:=15; ms[3].gj:=45; ms[3].fy:=0; ms[3].xt:=250; ms[3].jyz:=45; ms[4].gj:=65; ms[4].fy:=20; ms[4].xt:=230; ms[4].jyz:=50; ms[5].gj:=250; ms[5].fy:=75; ms[5].xt:=500; ms[5].jyz:=90; ms[6].gj:=320; ms[6].fy:=83; ms[6].xt:=450; ms[6].jyz:=93; ms[7].gj:=1000; ms[7].fy:=400; ms[7].xt:=5000; ms[7].jyz:=120; ms[8].gj:=1000; ms[8].fy:=800; ms[8].xt:=8000; ms[8].jyz:=150; ms[9].gj:=10; ms[9].fy:=10; ms[9].xt:=5000; ms[9].jyz:=50;end;procedure skill; begin jn[1].gj:=0; jn[1].fy:=0; jn[1].bx:=0; jn[1].jb:=1; jn[2].gj:=10; jn[2].fy:=-5; jn[2].bx:=0; jn[2].jb:=1; jn[3].gj:=0; jn[3].fy:=0; jn[3].bx:=0; jn[3].jb:=1; jn[4].gj:=0; jn[4].fy:=0; jn[4].bx:=0; jn[4].jb:=1;end;procedure baobao; begin bb.gj:=3; bb.jx:=15; bb.live:=1; bb.nm:='红尘猪'; bb.level:=1;end;procedure cwgj; begin sjs:=random(10); if sjs=0 then begin if role.xue+bb.jx>role.maxxue then role.xue:=role.maxxue else role.xue:=role.xue+bb.jx; writeln('你的宠物 ', bb.nm ,' 为你加血',bb.jx,'点'); end else begin rys:=bb.gj+random(3)-1; dqgw.xt:=dqgw.xt-rys; writeln('你的宠物 ', bb.nm ,' 攻击怪物',rys,'点血'); end;end;procedure sj; begin role.level:= role.level+1; role.gjl:= role.gjl+10; role.fyl:= role.fyl+5; role.maxxue:=role.maxxue+25; role.xue:=role.maxxue;end;procedure hqwp; begin sjs:=random(20)+1; case sjs of 1: begin bao.red:=bao.red+1; writeln('获得金创药1个'); end; 6: begin role.xue:=role.maxxue; writeln('获得神佑，生命值回复到最大'); end; 7: begin role.gjl:=role.gjl+1; writeln('获得神佑，攻击力+1'); end; 8: begin role.fyl:=role.fyl+1; writeln('获得神佑，防御力+1'); end; 3: begin role.money:=role.money+sjs*10; writeln('获得金币',sjs*10); end; 9: begin role.money:=role.money+sjs*10; writeln('获得金币',sjs*10); end; 12: begin role.money:=role.money+sjs*10; writeln('获得金币',sjs*10); end; 13: begin bao.ttl:=bao.ttl+1; writeln('获得饕餮料1块'); end; 14: begin bao.ttl:=bao.ttl+1; writeln('获得饕餮料1块'); end; 15: begin bao.ttl:=bao.ttl+1; writeln('获得饕餮料1块'); end;

接到通知了吗？10级开学时间有变？？接到通知了吗？10级开学时间有变？？有个同学居然说刚刚给老师打电话 28号就要开学上课了！！绵阳的同学听到这个消息没？？真的假的啊？我28号的车票都买好了~~要中午才能到怎么办怎么办？

有喜欢网络技术的么？？？一起做网站啊反正还有两天就开学了 ~~找点事干~~~嘎嘎这样哈 ~~会html基本知识的上~~~~会asp php 的上~~会ps的上~~~会网络技术，特别是经常黑站的，上~另外要责任编辑、编辑N名熟练操作dreamweaver flash fireworks也上~~要赞助的同学也加QQ哈~~hoho~~~还要什么？？/再说吧~~qq:364182027 注明：网站

召唤轮回飞! 想不到你在这啊呵呵

2010级找同学噢~~ 364182027 偶QQ

15号参加了雅中自主招生考试的同学进来下数学倒数第3道大题的最后一个问是怎么问的?就是买 A B C D E电脑那道