最近老师讲了用pascal做游戏,给一点都不会的人说一下我的小经验也可以当自学教程...我以后有时间补充知识(本来预定初一下学期讲,结果老师提前给我们讲了,没讲完,我只能先说下基础,我刚会弄反弹接球的游戏了)除了基本pascal语法以外,一般需要调用2个单元,crt和graph.crt估计是显示单元..(别问我,我不知道.....)graph是图形的.crt单元•crt单元常用函数和过程procedure AssignCrt(var f:text);function keyPressed:boolean;检测是否有键盘输入function ReadKey:char;读键盘procedure TextMode(Mode:integer);设置正文显示模式procedure Window(x1,y1,x2,y2:byte);定义字符窗口procedure Gotoxy(x,y):byte;移动光标function wherex:byte;返回当前窗口光标的x坐标function wherey:byte;返回当前窗口光标的y坐标procedure ClrScr;清屏或清当前窗口procedure ClrEol;从当前光标清至行末procedure InsLine;插入一行procedure DelLine;删除一行Procedure TextColor(Color:byte);设置正文前景颜色Procedure TextBackground(Color:byte);设置正文背景颜色Procedure Delay(Ms:word);延迟指定毫秒Procedure Sound(Hz:word);启动内部扬声器Procedure NoSound;关闭内部扬声器这里只要掌握3个就行了,其他的有兴趣自己试效果 keyPressed 如果键盘有'动静' 就返回true,否则false; readkey 一般定义字符常量ch:char; 然后 ch:=readkey;意思是从键盘读入字符,相当于pascal的read,这里的readkey不会在屏幕显示信息,直接从键盘读(read是需要输入然后回车); delay 延长n毫秒后再执行下面语句 delay(n:integer);----------------------------------------------------------- (如不能调用crt单元,请上百度搜索crt单元补丁) 今天就先到这把,试下这个程序 uses crt; var n:integer; ch:char; begin repeat if keypressed then ch:=readkey; n:=ord(ch)-ord('0'); {输入数字1-9} sound(n*100); delay(500); nosound; until ch=
#27; {esc键退出 esc是#
27} end.此程序可以发出声音,不需要音箱..

文笔极佳, 　　　　才思敏捷, 　　　　过目不忘, 　　　　十年寒窗, 　　　　博学多才, 　　　　见多识广, 　　　　才高八斗, 　　　　学富五车, 　　　　文武双全, 　　　　雄韬伟略, 　　　　谈吐不凡, 　　　　谈笑风声, 　　　　高谈阔论, 　　　　眉飞色舞, 　　　　运筹帷幄, 　　　　言简意赅, 　　　　完美无缺, 　　　　一针见血, 　　　　远见卓识, 　　　　义正词严, 　　　　一气呵成, 　　　　大显神通, 　　　　出口成章, 　　　　出类拔萃, 　　　　出神入化, 　　　　万古流芳, 　　　　一本正经, 　　　　一箭双雕, 　　　　长篇大论, 　　　　功德无量, 　　　　力排众议, 　　　　力挽狂澜, 　　　　气贯长虹, 　　　　气势磅礴, 　　　　气吞山河, 　　　　坚韧不拔, 　　　　身体力行, 　　　　空前绝后, 　　　　视死如归, 　　　　英姿焕发, 　　　　奉公守法, 　　　　艰苦奋斗, 　　　　忠贞不渝, 　　　　舍己为人, 　　　　大公无私, 　　　　一尘不染, 　　　　一鸣惊人, 　　　　叱诧风云, 　　　　排山倒海, 　　　　惊涛骇浪, 　　　　雷霆万钧, 　　　　惊心动魄, 　　　　横扫千军, 　　　　惊天动地, 　　　　见缝插针, 　　　　无孔不入, 　　　　千篇一律, 　　　　口诛笔伐, 　　　　文从字顺, 　　　　十全十美, 　　　　无懈可击, 　　　　无与伦比, 　　　　励精图治, 　　　　壮志凌云, 　　　　高瞻远瞩, 　　　　忍辱负重, 　　　　盖世无双, 　　　　龙飞凤舞, 　　　　一丝不苟, 　　　　身兼数职, 　　　　日理万机, 　　　　明察秋毫, 　　　　英明果断, 　　　　分身有术, 　　　　孜孜不倦, 　　　　吾等楷模 　　　　………… 　　　　在下对你的景仰之情有如滔滔长江之水, 　　　　连绵不绝 　　　　…… 　　　　又如黄河泛滥, 　　　　一发不可收拾 　　　　…… 　　　　嘿嘿~~~~ 　　　　惊天地！ 　　　　泣鬼神！ 　　　　感人肺腑！ 　　　　感人落泪！ 　　　　i 服了 u！ 　　　　长江后浪退前浪, 　　　　灌水英雄代代出 　　　　…… 　　　　 　　　　好贴。。。 　　　　又见好帖。。。 　　　　 　　　　又见不是一般的好贴。。。 　　　　 　　　　好贴不是别的。。。 　　　　 　　　　好贴就是好贴。。。 　　　　 　　　　好是好贴的好。。。 　　　　 　　　　贴是好贴的帖。。。 　　　　 　　　　好贴不是别的。。。 　　　　 　　　　好贴就是好贴。。。 　　　　 　　　　 曾经有人问我。。。楼主的帖子算不算好贴。。。我没有回答。。。因为我想起了一位传说中的大师-古龙先生的一段话：“。。。天涯远不远？。。。天涯其实一点也不远。。。因为人已经在天涯。。。天涯还远吗。。。”

....

我想学用pascal做小游戏有谁愿意做我师傅教教我呀（我基本的知识都会，就是不知道如何做）加ＱＱ：４５８７０４９０８

dddddddddddddddddddddddddd

真废,在TP7里按Shift+F1帮助文件这些全都有的,楼主在这显摆什么?关于CRT单元的东西BAIDU上搜索一大堆,再说,用crt单元编游戏界面那么差,起码都要用graph单元BS楼主的老师,还用PASCAL教人编游戏,pascal都是竞赛用的,要编游戏起码都要用DELPHI,VC或VB楼主真的很废,反弹接球游戏在TP7里原来就有的,根本不需要编,LZ有本事编个炸弹人出来呀

2L一看就知道是LZ在发匿名贴,2L发的内容就是LZ博客里的内容，LZ当我们是傻子呀？LZ自己顶自己算什么本事?是条汉子就拿出点有用的东西来

同意6楼观点,fp是竞赛用的,除此根本无用,编游戏用ruby或c

反对楼上的观点,虽然fp是竞赛用,但在tp下能编出许多游戏来

ls，请不要挖坟，谢谢

寒~~~~~~

来打酱油咯~~

来打酱油：http://u.115.com/file/dn3bp4o6

10点经验啊[钱] 中文：尊敬的楼主，您订购的
十五字
已到账，请注意查收。
英语：Dear landlord, fifteen words you ordered have arrived, please note that check.
日语：尊敬するさん、ご注文の十字は帐ので、ご査収下さい.
德语：Sehr geehrter Vermieter, wenn Sie bestellten 15 Zeichen berücksichtigt worden gutgeschrieben, beachten Sie bitte, dass der Check.
法语：Cher propriétaire, si vous avez commandé 15 caractères a été crédité sur le compte, s'il vous plaît noter que l'enregistrement.

报错

哈哈

请问为什么用了crt单元后就显示不出英文，如何解决

感觉C++方便许多