www.TrSek.com/cover/werbhofen/tetrunit.pas - Hra tetris v textovom mode

www.TrSek.com

viac ako 450 programov zadarmo

English

Slovensky

Česky

Šarišsky

Programy
Programy v Pascale (57)
Zadania Pascal (228)
Generátor Zadaní
Programy v Pascale (KMP) (218)
Programy v C, C++ (9)
Náhodný program

Pascal - kategórie
Hry (28)
Zadania (228)
Začiatočníci (51)
Grafika (43)
Matematika (133)
Geometria (31)
Reťazce (48)
Projekty (34)
Periférie (37)

Dokumenty
Príručka pre Pascal (lite)
Články o programovaní (18)
Linky na internete
FAQ – rýchle tipy (4)

Informácie
Download
Pridať program v Pascale
Parametre starších HDD

Kontakty
Vaša Reklama
Poslať e-mail
O mne – Životopis
Kniha návštev

ICQ 207919468 ICQ

Kategória: Hry

Autor: Werbhofen
Program: Tetris.pas, Kniznica.pas, Tetrunit.pas, Tetrdata.pas
Súbor exe: Tetris.exe

Hra tetris v textovom mode.

Zobrazené: 687x

{ 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.

[Spustiť] [Uložiť] [Tlač] [Poslať e-mailom]

Počet návštev: 1 940 558
Meniny má: Dorota
Dnes je: 06.02.2012, 03:12
Google Pagerank: 3 Počítadlo naj.sk:

Vtip:
Technicus terminus
- tekutý prášok
- kresťanský demokrat
- trochu tehotná
- nová spomienka
- predpoveď počasia na včera