Question

用pascal编的游戏有什么？

Answer 1

//俄罗斯方块
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.

Answer 2

俄罗斯方块
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；。

Answer 3

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之前。

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

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

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

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

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

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

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

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

1.初始化

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

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

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

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

Answer 4

http://tieba.baidu.com/f?kw=pascal%D3%CE%CF%B7# pascal游戏吧，各种游戏加源代码.
不过大部分都只是小游戏.大型游戏用pascal可能有些困难....