www.TrSek.com/sr/cover/werbhofen/tetrunit.pas

www.TrSek.com

vecej jak 450 programoch ľem tak zadarmo

English

Slovensky

Česky

Šarišsky

Programy
Programy zos Pascalu (57)
Zadaňa zos Pascalu (228)
Vydumaňec Zadani
Programy zos Pascalu (KMP) (218)
Programy zos C, C++ (9)
Nahodny program

Pascal - po kusoch
Hraňe (28)
Zadaňa (228)
Uchaľe (51)
Krešľeňe (43)
Matematika (133)
Geometrija (31)
Slova (48)
Projekty (34)
Pridaňa (37)

Papíre
Papíre zos Pascalu (na ľehko)
Papire zos programovaňa (18)
Linky na interňetu
FAQ – takoj tipy (4)

Hutoreňa
Scahňi
Dodaj daľši program
Numera staršich HDD

Kontakty
Tvoja Reklama
Pošľi meil
Daco o mňe - Muj popis
Knižka nafštef

ICQ 207919468 ICQ

Kategorija: Hraňe

Zrobil: Werbhofen
Program: Tetris.pas, Kniznica.pas, Tetrunit.pas, Tetrdata.pas
Subor exe: Tetris.exe

Hra tetris v textovom mode.

Kuklo še: 699x

{ TETRUNIT.PAS                                                      }
{ Kniznica pre tetris.                                              }
{                                                                   }
{ Author: WERBHOFEN                                                 }
{ Datum: 12.10.2009                            http://www.trsek.com }
 
UNIT TetrUnit;
 
INTERFACE
 
TYPE Pole4x4=array[1..4,1..4]of byte;
     Pole4x4x4=array[1..4]of Pole4x4;
 
CONST ZL:Pole4x4x4=
         (((1,1,0,0),
           (0,1,1,0),
           (0,0,0,0),
           (0,0,0,0)),
 
          ((0,1,0,0),
           (1,1,0,0),
           (1,0,0,0),
           (0,0,0,0)),
 
          ((1,1,0,0),
           (0,1,1,0),
           (0,0,0,0),
           (0,0,0,0)),
 
          ((0,1,0,0),
           (1,1,0,0),
           (1,0,0,0),
           (0,0,0,0)));
 
      ZP:Pole4x4x4=
         (((0,1,1,0),
           (1,1,0,0),
           (0,0,0,0),
           (0,0,0,0)),
 
          ((1,0,0,0),
           (1,1,0,0),
           (0,1,0,0),
           (0,0,0,0)),
 
          ((0,1,1,0),
           (1,1,0,0),
           (0,0,0,0),
           (0,0,0,0)),
 
          ((1,0,0,0),
           (1,1,0,0),
           (0,1,0,0),
           (0,0,0,0)));
 
       I:Pole4x4x4=
         (((0,0,0,0),
           (1,1,1,1),
           (0,0,0,0),
           (0,0,0,0)),
 
          ((0,1,0,0),
           (0,1,0,0),
           (0,1,0,0),
           (0,1,0,0)),
 
          ((0,0,0,0),
           (1,1,1,1),
           (0,0,0,0),
           (0,0,0,0)),
 
          ((0,1,0,0),
           (0,1,0,0),
           (0,1,0,0),
           (0,1,0,0)));
 
       O:Pole4x4x4=
         (((0,0,0,0),
           (0,1,1,0),
           (0,1,1,0),
           (0,0,0,0)),
 
          ((0,0,0,0),
           (0,1,1,0),
           (0,1,1,0),
           (0,0,0,0)),
 
          ((0,0,0,0),
           (0,1,1,0),
           (0,1,1,0),
           (0,0,0,0)),
 
          ((0,0,0,0),
           (0,1,1,0),
           (0,1,1,0),
           (0,0,0,0)));
 
      LP:Pole4x4x4=
         (((0,0,1,0),
           (1,1,1,0),
           (0,0,0,0),
           (0,0,0,0)),
 
          ((0,1,0,0),
           (0,1,0,0),
           (0,1,1,0),
           (0,0,0,0)),
 
          ((1,1,1,0),
           (1,0,0,0),
           (0,0,0,0),
           (0,0,0,0)),
 
          ((1,1,0,0),
           (0,1,0,0),
           (0,1,0,0),
           (0,0,0,0)));
 
      LL:Pole4x4x4=
         (((0,0,0,0),
           (1,1,1,0),
           (0,0,1,0),
           (0,0,0,0)),
 
          ((0,1,0,0),
           (0,1,0,0),
           (1,1,0,0),
           (0,0,0,0)),
 
          ((1,0,0,0),
           (1,1,1,0),
           (0,0,0,0),
           (0,0,0,0)),
 
          ((0,1,1,0),
           (0,1,0,0),
           (0,1,0,0),
           (0,0,0,0)));
 
       T:Pole4x4x4=
         (((1,1,1,0),
           (0,1,0,0),
           (0,0,0,0),
           (0,0,0,0)),
 
          ((0,0,1,0),
           (0,1,1,0),
           (0,0,1,0),
           (0,0,0,0)),
 
          ((0,0,0,0),
           (0,1,0,0),
           (1,1,1,0),
           (0,0,0,0)),
 
          ((1,0,0,0),
           (1,1,0,0),
           (1,0,0,0),
           (0,0,0,0)));
 
       X:Pole4x4x4=
         (((0,1,0,0),
           (1,1,1,0),
           (0,1,0,0),
           (0,0,0,0)),
 
          ((1,0,1,0),
           (0,1,0,0),
           (1,0,1,0),
           (0,0,0,0)),
 
          ((0,1,0,0),
           (1,1,1,0),
           (0,1,0,0),
           (0,0,0,0)),
 
          ((1,0,1,0),
           (0,1,0,0),
           (1,0,1,0),
           (0,0,0,0)));
 
       Y:Pole4x4x4=
         (((1,0,1,0),
           (0,1,0,0),
           (0,1,0,0),
           (0,0,0,0)),
 
          ((0,0,1,0),
           (1,1,0,0),
           (0,0,1,0),
           (0,0,0,0)),
 
          ((0,1,0,0),
           (0,1,0,0),
           (1,0,1,0),
           (0,0,0,0)),
 
          ((1,0,0,0),
           (0,1,1,0),
           (1,0,0,0),
           (0,0,0,0)));
 
       H:Pole4x4x4=
         (((1,0,1,0),
           (1,1,1,0),
           (1,0,1,0),
           (0,0,0,0)),
 
          ((1,1,1,0),
           (0,1,0,0),
           (1,1,1,0),
           (0,0,0,0)),
 
          ((1,0,1,0),
           (1,1,1,0),
           (1,0,1,0),
           (0,0,0,0)),
 
          ((1,1,1,0),
           (0,1,0,0),
           (1,1,1,0),
           (0,0,0,0)));
 
IMPLEMENTATION
 
END.

[Naj beži] [Ulož] [Ciskaj] [Naj idze meilom]

Keľo nafštef: 1 943 295
Mena jest: Dezider
Dneška jest: 11.02.2012, 10:31
Google Pagerank: 3 Kalkulator naj.sk:

Ftip:
Podle ceho poznate vlastni dite?
- Pichnete do nej a z ciziho krev netece...