问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

用pascal编的游戏有什么？20

发布网友 发布时间：2023-10-31 01:29

我来回答

共4个回答

热心网友 时间：2024-11-26 07:55

//俄罗斯方块
USES Crt;
CONST
Change:Array [0..6,0..3,0..7] Of Byte =(((0,1,1,1,2,1,3,1),(1,0,1,1,1,2,1,3),(0,1,1,1,2,1,3,1),(1,0,1,1,1,2,1,3)),
((1,0,0,1,1,1,2,1),(1,0,1,1,1,2,2,1),(0,1,1,1,2,1,1,2),(1,0,0,1,1,1,1,2)),
((1,0,2,0,1,1,2,1),(1,0,2,0,1,1,2,1),(1,0,2,0,1,1,2,1),(1,0,2,0,1,1,2,1)),
((1,0,2,0,0,1,1,1),(0,0,0,1,1,1,1,2),(1,0,2,0,0,1,1,1),(0,0,0,1,1,1,1,2)),
((0,0,1,0,1,1,2,1),(1,0,0,1,1,1,0,2),(0,0,1,0,1,1,2,1),(1,0,0,1,1,1,0,2)),
((1,0,2,0,1,1,1,2),(0,0,0,1,1,1,2,1),(1,0,0,2,1,1,1,2),(2,2,0,1,1,1,2,1)),
((0,0,1,0,1,1,1,2),(2,0,0,1,1,1,2,1),(2,2,1,0,1,1,1,2),(0,2,0,1,1,1,2,1)));
VAR
Board:Array [0..3,0..11,1..25] Of Byte;
Players,N,Nowx,Nowy,Kind,Trans,Speed:Byte;
Time,Score:Word;
Now:Array [0..7] Of Byte;
PROCEDURE Furbish;
VAR B,C:Byte;
Begin
For C:=24 Downto 2 Do Begin
Gotoxy(1,C);
For B:=1 To 10 Do
If Board[0,B,C]=0 Then Write(' ')
Else Write('圹');
End;
End;
PROCEDURE Clear;
Var A,B,C:Byte;D:Boolean;
Begin
For A:=24 Downto 1 Do
Begin
D:=True;
For B:=1 To 10 Do
If Board[0,B,A]=0 Then D:=False;
If D=True Then
Begin
Score:=Score+10;Gotoxy(1,1);Write(Score:5,'0');
For C:=A Downto 2 Do
For B:=1 To 10 Do
Board[0,B,C]:=Board[0,B,C-1];

End;
End;
Furbish;
End;
FUNCTION Canmove(X,Y:Byte):Boolean;
BEGIN
Canmove:=True;
If Board[0,X+Now[0],Y+Now[1]]>0 Then Canmove:=False;
If Board[0,X+Now[2],Y+Now[3]]>0 Then Canmove:=False;
If Board[0,X+Now[4],Y+Now[5]]>0 Then Canmove:=False;
If Board[0,X+Now[6],Y+Now[7]]>0 Then Canmove:=False;
End;
PROCEDURE Clean;
Begin
Gotoxy((Nowx+Now[0])*2-1,Nowy+Now[1]);Write(' ');
Gotoxy((Nowx+Now[2])*2-1,Nowy+Now[3]);Write(' ');
Gotoxy((Nowx+Now[4])*2-1,Nowy+Now[5]);Write(' ');
Gotoxy((Nowx+Now[6])*2-1,Nowy+Now[7]);Write(' ');
End;
PROCEDURE Show;
Begin
Gotoxy((Nowx+Now[0])*2-1,Nowy+Now[1]);Write('圹');
Gotoxy((Nowx+Now[2])*2-1,Nowy+Now[3]);Write('圹');
Gotoxy((Nowx+Now[4])*2-1,Nowy+Now[5]);Write('圹');
Gotoxy((Nowx+Now[6])*2-1,Nowy+Now[7]);Write('圹');
End;
BEGIN
Fillchar(Board,Sizeof(Board),0);
Randomize;Score:=0;
For N:=1 To 24 Do
Board[0,0,N]:=1;
For N:=1 To 24 Do
Board[0,11,N]:=1;
For N:=1 To 10 Do
Board[0,N,25]:=1;
Window(31,2,50,25);Textcolor(White);Textbackground(Blue);
Clrscr;Window(31,2,51,25);
Speed:=1;
Kind:=Random(7);Trans:=Random(4);Nowx:=4;Nowy:=1;
For N:=0 To 7 Do
Now[N]:=Change[Kind,Trans,N];
While Canmove(Nowx,Nowy) Do
Begin
Repeat
Clean;Nowy:=Nowy+1;Show;
Repeat
If Keypressed Then
Case Upcase(Readkey) Of
#0:Case Readkey Of
#75:If Canmove(Nowx-1,Nowy) Then Begin Clean;Nowx:=Nowx-1;Show;End;
#77:If Canmove(Nowx+1,Nowy) Then Begin Clean;Nowx:=Nowx+1;Show;End;
#80:Begin Clean;Repeat
If Canmove(Nowx,Nowy+1) Then Nowy:=Nowy+1;
Until Not(Canmove(Nowx,Nowy+1));Show;End;
#61:Begin Gotoxy(9,12);Write('Pause');Repeat Delay(1000);Until Keypressed;Furbish;End;
End;
#27:Exit;
' ',#13:Begin
Clean;Trans:=Trans+1;
If Trans=4 Then Trans:=0;
For N:=0 To 7 Do
Now[N]:=Change[Kind,Trans,N];
If Not(Canmove(Nowx,Nowy)) Then Begin Trans:=Trans-1;For N:=0 To 7 Do
Now[N]:=Change[Kind,Trans,N];Show;End
Else Show;
End;
End;
Until Not(Keypressed);
Delay((10-Speed)*50);
Until Not(Canmove(Nowx,Nowy+1));
Score:=Score+1;Gotoxy(1,1);Write(Score:5,'0');Speed:=(Score Div 300)+1;
Board[0,Nowx+Now[0],Nowy+Now[1]]:=1;
Board[0,Nowx+Now[2],Nowy+Now[3]]:=1;
Board[0,Nowx+Now[4],Nowy+Now[5]]:=1;
Board[0,Nowx+Now[6],Nowy+Now[7]]:=1;
Clear;
Kind:=Random(7);Trans:=Random(4);Nowx:=4;Nowy:=1;
For N:=0 To 7 Do
Now[N]:=Change[Kind,Trans,N];
End;
Gotoxy(7,12);Write('GAME OVER');Readln;
END.

热心网友 时间：2024-11-26 07:56

俄罗斯方块
USES Crt；
CONST
Change:Array [0..6,0..3,0..7] Of Byte =(((0,1,1,1,2,1,3,1)，(1,0,1,1,1,2,1,3)，(0,1,1,1,2,1,3,1)，(1,0,1,1,1,2,1,3))，
((1,0,0,1,1,1,2,1)，(1,0,1,1,1,2,2,1)，(0,1,1,1,2,1,1,2)，(1,0,0,1,1,1,1,2))，
((1,0,2,0,1,1,2,1)，(1,0,2,0,1,1,2,1)，(1,0,2,0,1,1,2,1)，(1,0,2,0,1,1,2,1))，
((1,0,2,0,0,1,1,1)，(0,0,0,1,1,1,1,2)，(1,0,2,0,0,1,1,1)，(0,0,0,1,1,1,1,2))，
((0,0,1,0,1,1,2,1)，(1,0,0,1,1,1,0,2)，(0,0,1,0,1,1,2,1)，(1,0,0,1,1,1,0,2))，
((1,0,2,0,1,1,1,2)，(0,0,0,1,1,1,2,1)，(1,0,0,2,1,1,1,2)，(2,2,0,1,1,1,2,1))，
((0,0,1,0,1,1,1,2)，(2,0,0,1,1,1,2,1)，(2,2,1,0,1,1,1,2)，(0,2,0,1,1,1,2,1)))；
VAR
Board:Array [0..3,0..11,1..25] Of Byte；
Players,N,Nowx,Nowy,Kind,Trans,Speed:Byte；
Time,Score:Word；
Now:Array [0..7] Of Byte；
PROCEDURE Furbish；
VAR B,C:Byte；
Begin
For C:=24 Downto 2 Do Begin
Gotoxy(1,C)；
For B:=1 To 10 Do
If Board[0,B,C]=0 Then Write(' ')
Else Write('圹')；
End；
End；
PROCEDURE Clear；
Var A,B,C:Byte;D:Boolean；
Begin
For A:=24 Downto 1 Do
Begin
D:=True；
For B:=1 To 10 Do
If Board[0,B,A]=0 Then D:=False；
If D=True Then
Begin
Score:=Score+10;Gotoxy(1,1)；Write(Score:5，'0')；
For C:=A Downto 2 Do
For B:=1 To 10 Do
Board[0,B,C]:=Board[0,B,C-1]；

End；
End；
Furbish；
End；
FUNCTION Canmove(X,Y:Byte):Boolean；
BEGIN
Canmove:=True；
If Board[0,X+Now[0]，Y+Now[1]]>0 Then Canmove:=False；
If Board[0,X+Now[2]，Y+Now[3]]>0 Then Canmove:=False；
If Board[0,X+Now[4]，Y+Now[5]]>0 Then Canmove:=False；
If Board[0,X+Now[6]，Y+Now[7]]>0 Then Canmove:=False；
End；
PROCEDURE Clean；
Begin
Gotoxy((Nowx+Now[0])*2-1,Nowy+Now[1])；Write(' ')；
Gotoxy((Nowx+Now[2])*2-1,Nowy+Now[3])；Write(' ')；
Gotoxy((Nowx+Now[4])*2-1,Nowy+Now[5])；Write(' ')；
Gotoxy((Nowx+Now[6])*2-1,Nowy+Now[7])；Write(' ')；
End；
PROCEDURE Show；
Begin
Gotoxy((Nowx+Now[0])*2-1,Nowy+Now[1])；Write('圹')；
Gotoxy((Nowx+Now[2])*2-1,Nowy+Now[3])；Write('圹')；
Gotoxy((Nowx+Now[4])*2-1,Nowy+Now[5])；Write('圹')；
Gotoxy((Nowx+Now[6])*2-1,Nowy+Now[7])；Write('圹')；
End；
BEGIN
Fillchar(Board,Sizeof(Board)，0)；
Randomize;Score:=0；
For N:=1 To 24 Do
Board[0,0,N]:=1；
For N:=1 To 24 Do
Board[0,11,N]:=1；
For N:=1 To 10 Do
Board[0,N,25]:=1；
Window(31,2,50,25)；Textcolor(White)；Textbackground(Blue)；
Clrscr;Window(31,2,51,25)；
Speed:=1；
Kind:=Random(7)；Trans:=Random(4)；Nowx:=4;Nowy:=1；
For N:=0 To 7 Do
Now[N]:=Change[Kind,Trans,N]；
While Canmove(Nowx,Nowy) Do
Begin
Repeat
Clean;Nowy:=Nowy+1;Show；
Repeat
If Keypressed Then
Case Upcase(Readkey) Of
#0:Case Readkey Of
#75:If Canmove(Nowx-1,Nowy) Then Begin Clean;Nowx:=Nowx-1;Show;End；
#77:If Canmove(Nowx+1,Nowy) Then Begin Clean;Nowx:=Nowx+1;Show;End；
#80:Begin Clean;Repeat
If Canmove(Nowx,Nowy+1) Then Nowy:=Nowy+1；
Until Not(Canmove(Nowx,Nowy+1))；Show;End；
#61:Begin Gotoxy(9,12)；Write('Pause')；Repeat Delay(1000)；Until Keypressed;Furbish;End；
End；
#27:Exit；
' '，#13:Begin
Clean;Trans:=Trans+1；
If Trans=4 Then Trans:=0；
For N:=0 To 7 Do
Now[N]:=Change[Kind,Trans,N]；
If Not(Canmove(Nowx,Nowy)) Then Begin Trans:=Trans-1;For N:=0 To 7 Do
Now[N]:=Change[Kind,Trans,N]；Show;End
Else Show；
End；
End；
Until Not(Keypressed)；
Delay((10-Speed)*50)；
Until Not(Canmove(Nowx,Nowy+1))；
Score:=Score+1;Gotoxy(1,1)；Write(Score:5，'0')；Speed:=(Score Div 300)+1；
Board[0,Nowx+Now[0]，Nowy+Now[1]]:=1；
Board[0,Nowx+Now[2]，Nowy+Now[3]]:=1；
Board[0,Nowx+Now[4]，Nowy+Now[5]]:=1；
Board[0,Nowx+Now[6]，Nowy+Now[7]]:=1；
Clear；
Kind:=Random(7)；Trans:=Random(4)；Nowx:=4;Nowy:=1；
For N:=0 To 7 Do
Now[N]:=Change[Kind,Trans,N]；
End；。

热心网友 时间：2024-11-26 07:56

Turbo Pascal图形编程教程
　　Pascal是一款有很强图形功能的开发工具，它可以编制各种图形窗口,并且听说还支持鼠标.但是时过境迁，

在vb,vc一统天下的今天，关于Pascal图形操作的书已经像古董一样难于寻找了，我现在将Tp 7.0的Help文件

中的一些有关图形操作的过程与函数整理了一下，并自己写了一些例子,加入了一些自己的看法,便得到了这篇

教程.其中如有错误，望各位不吝赐教。阅读之前希望大家做好准备，比如：找一些食品放在跟前，因为你可能

因为钻研一个函数而耗费大量的时间，还有你可能因为初始化无法完成而大动肝火。

第一章 使用Pascal进行图形操作前的准备
　　
　　在 Turbo Pascal 中有一个 CRT 单元及一个 GRAPH 单元，简单的说 crt 单元是为了实现

字符的显示与处理，另外的那个称为 GRAPH 单元是专门用来处理图形的。我们看到的有关图形的

程序往往都要用到。所以若是要在 Turbo Pascal 中实现图形操作，就必须要调用 CRT 单元及

GRAPH 单元。那么怎么样来调用 CRT 及 GRAPH 单元呢？现在线来介绍一下单元调用语句：USES
USES的语法：
USES 单元表识符，……，单元表识符；
说明：
扩展名为*.TPW是Windows下的单元文件，*.TPU是DOS下的单元文件。
位置：变量说明var之前。

讲到这里，我还是要顺便提一下什么是单元？是这样的：我们在编程序的时候，要用到 procere

或者 function ，中文名称一个是过程另一个是函数。做不同的程序时，往往要用到一些相同的过程

或者相同的函数。如果统统放到程序中，程序会硕大无比，比例与调试与编译，并且在过去

“惜kb如金”的年代里，这样的程序也很浪费。于是，简单的讲，人们把它们做成“包”－－我

们称之为单元。一来，免去很多重复的痛苦，大家共享代码也很简单，另外，很多不愿意让别人看

到源程序的人也很乐于如此－－－－这只是我的杜撰。生产 pascal 语言的公司也提供一些做好的

单元，放在安装盘上方便实用。 crt ，graph 即使如此，还有 dos ，system 等等。

第二章 Pascal图形模式的初始化及退出

1.初始化

Pascal的图形操作在使用之前必须先进行初始化。如果说你编写图形程序中出现问题，是有*十卡

在这里了。 这也是非常令我头疼的问题。 用过程 initgraph(GraphDriver,GraphMode,PathToDriver)

其中 GraphDriver , GraphMode 为整形变量, PathToDriver为字符串变量, GraphDriver为图形驱动器,

GraphMode为图形模式 , PathToDriver指定的路径名中建筑图形驱动程序(以.BGI为后缀)。

热心网友 时间：2024-11-26 07:57

http://tieba.baidu.com/f?kw=pascal%D3%CE%CF%B7# pascal游戏吧，各种游戏加源代码.
不过大部分都只是小游戏.大型游戏用pascal可能有些困难....
声明声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com
为什么来大姨妈胸会胀 少儿学什么舞蹈 青年学什么舞蹈好 成年人学什么舞蹈 福州企业最低工资标准 2013年厦门的底薪是多少 生产要素的需求有哪些性质 生产要素的需求有何特点? 什么是生产要素需求 微观经济学要素需求什么是条件要素需求?它和要素需求有什么不同?_百度... 我的天龙360康机国四的4年了,动力不足油嘴没事,增压新的,还是费油,求... PASCAL源程序 跪求1 给几个Pascal的小游戏9 小松360挖掘机增压器底座有油是怎么回事 华少，莎莎的藏头诗。希望有文采的人可以给予帮助。在线等待。1 氯碱厂能干一辈子吗 4dpsk中绝对码0111001001怎么计算得到相对码？求...28 我2005年就获得的房地产经纪人协理证没有注册,已经过期,听人说可以上... 通信原理中绝对码和相对码是干什么的？为什么要引进这两个概念?10 通信原理中设绝对码全1111 1111,0000 0000,...3 身边的朋友,王者荣耀实名认证,人脸识别都出来了,我就没有 中国武术为何没有像跆拳道那样的腿法表演呢? 在山西农业大学生活多少生活费合适 用工行网银卡给支付宝充值5000元,为什么提示超限 请问大家一般都是在哪些网站购买鲜花的？3 微信6.1.5的旧版本为什么下载不了1 用工行网银卡给支付宝充值5000元,为什么提示超限 微信6.1版本怎么按装不了，求解大神3 仿真流程中从问题到方程的过程是迭代求解吗 去睇楼时见到了一个很令人心动的售楼小姐，怎样可以知道她是否有... 转支付宝对方账户没用了,钱能退回来吗? 为什么中国武术里没有像跆拳道那样的腿法呢? 求贪吃蛇Pascal源程序 Pascal游戏代码一般有多长？ pascal语言可以编写小游戏吗3 小木棍 Pascal源程序+题解7 wxid开头的怎么添加好友? 机筛强磁怎么拆 月港有没有申遗成功 中国武术那么多门派为什么没有像跆拳道那样以腿为主的武术呢? 世界非物质文化遗产研究院真实吗 哪个姓氏学霸最少啊 急求运动员姓氏,学霸们,加油吧! 在哪个网上买东西是真的,淘宝网还是京东商城还是其它网站,请指...8 在网上买东西，京东和天猫哪个好，淘宝卖的基本都是假货，我应该...18 QQ钱包实名制认证是什么意思啊,如果QQ被盗,认证的身份证号等信息会... 机体杀伤和清除异常突变细胞的功能是 ...是印度的 有很多大象和很多动物 不知道叫什么电影 关于团员自我鉴定400字 中国武术有很多门派为什么没有像跆拳道那样以腿法为主以旋转踢法为主...
懂视IT 51dongshi.com 版权所有
Copyright © 2019-2024