home *** CD-ROM | disk | FTP | other *** search
/ Hráč 1998 January / Hrac_17_1998-01_cd.bin / __DAT__ / diskmagy / blavan2 / TP.002 < prev    next >
Text File  |  1998-01-13  |  6KB  |  196 lines
  1. 196
  2. 12
  3. 14
  4. 10
  5. TURBO PASCAL 7.0
  6.  
  7.  
  8.  
  9.  
  10. Cafte fsetci,
  11.  
  12. Rad by som vam  povedal, alebo skor napisal nieco
  13. o programovacom  jazyku Turbo Pascal, konkretne o
  14. verzii 7.0. Co sa tyka prikazov, od predchadzaju-
  15. cich verzii sa  lisi len malo.  Poniektori ste TP
  16. mozno ani nevideli, mozno ho mate doma a neviete,
  17. ako sa v nom programuje. Preto tu zhrniem zaklady
  18. programovania v TP.  Takto nejako by mala vyzerat
  19. struktura programu:
  20.  
  21.   Program nazov_programu;        {nazov programu}
  22.   Uses ....       {kt. kniznice maju byt pouzite}
  23.   Var ....                {priradenie premennych}
  24.   Const ....                 {zadavanie konstant}
  25.   Type ....
  26.  
  27.   Procedure xyz;                {nazov procedury}
  28.    Begin
  29.      ...
  30.    End;
  31.  
  32.   Procedure zxy;                {nazov procedury}
  33.    Begin
  34.      ...
  35.    End;
  36.  
  37.   Procedure ........;           {nazov procedury}
  38.    Begin
  39.      ...
  40.    End;
  41.  
  42.   Begin                             {hl. program}
  43.     ....
  44.     ....
  45.     ....
  46.   End.                          {koniec programu}
  47.  
  48. Neviem,  ci ste  pochopili. Mal by som  to trochu
  49. objasnit. Takze meno programu si mozme zvolit lu-
  50. bovolne, napr. chcem  moj program pomenovat DEZO.
  51. Preto na prvy riadok napisem: Program Dezo;
  52. V  TP je  jedno, ci pisem  malymi, alebo  velkymi
  53. pismenami. Meno  programu nie je ale povinnostou.
  54. Dalej je tu Uses.  Za toto slovo doplnime  zoznam
  55. kniznic, s  ktorymi budeme  pracovat v  programe.
  56. Kniznica obsahuje  prikazy. Teda ak chceme pouzit
  57. v programe grafiku, musime pouzit kniznicu GRAPH,
  58. v ktorej su ulozene  prikazy pre  grafiku. Tychto
  59. kniznic existuje  dost vela a mozeme si aj urobit
  60. vlastne, ale o tom az neskor. Zatial budeme robit
  61. s kniznicou CRT. Dalej tu mame slovko Var. Za nho
  62. si zapiseme premenne a priradime ku nim typ. Teda
  63. ak chceme pouzivat  nejaku premennu, vymyslime si
  64. pre nu vystizni  nazov, napr. Premenna_1 a chceme
  65. s nou pracovat ako  s cislom, dame jej typ (alebo
  66. co to je)  Integer (cisla  od -32768 az po  cislo
  67. 32767). Uvediem vam vsetky typy cisel, OK?
  68.  
  69.   Byte     - cisla: 0...255
  70.   Word     - cisla: 0...65535
  71.   Integer  - cisla: -32768...32767
  72.   Shortint - cisla: -128..127
  73.   Longint  - cisla: -2147483648..2147483647
  74.  
  75. Existuju  aj  ine typy,  napr. String  (retazec),
  76. Boolean (mozeme dosadit len dve hodnoty: bud True
  77. co znamena ''pravda'',alebo False, co znamena zase
  78. ''nepravda''. Potom je tam este Const, co je skoro
  79. to iste, ale za konstantu (lubovolne meno) si do-
  80. sadim  priamo cislo,  alebo retazec a pod. Const,
  81. Var a Procedure objasnim este neskor, teraz podme
  82. na prikazy,  aby som vam mohol  ukazat jednoduchy
  83. program. Prikaz Writeln  sluzi na vypisanie textu
  84. a zaroven  zariadkuje (len v textovom rezime). Ak
  85. teda chceme,  aby napisal: Dezo  je blby program,
  86. napiseme:
  87.  
  88.   Writeln ('Dezo je blby program');
  89.  
  90. Ak chceme, aby sa vypisal nejaky text,  co nie je
  91. premenna,  musime ho (ten  text) ohranicit  apos-
  92. trofmi, ci co je to. Ale ak chceme, aby savypisa-
  93. la premenna, napiseme to bez nich, teda:
  94.  
  95.   Writeln (Premenna_1);
  96.  
  97. Fajn, cize teraz by ste  z toho uz mali nieco ve-
  98. diet, ukazem vam ale pre istotu, ako bude vyzerat
  99. nas program (nemusime pouzit ziadnu kniznicu, le-
  100. bo prikaz Writeln patri do tzv.''vyvolenych'' a je
  101. akymsi zakladnym prikazom):
  102.  
  103.   Program Dezo;
  104.    Begin
  105.      Writeln('Dezo je blby program.');
  106.    End.
  107.  
  108. Jednoduche,  vsak? Ale ja  chcem, aby sa mi  pred
  109. vypisanim  tohto textu  zmazala obrazovka. Ako to
  110. mam urobit? Jednoducho. Pred prikazom Writeln dam
  111. prikaz ClrScr. Tento mi vymaze obrazovku. Pouzi:
  112.  
  113.   ClrScr;
  114.  
  115. Teraz sa mi  nechce cely  program opisovat, takze
  116. si predstavte, ze je tu program nanovo prepisany,
  117. ale medzi Begin a Writeln je: ClrScr;
  118. ja chcem ale, aby bol tento text vypisany zelenou
  119. farbou. Totalne  jednoduche. Sluzi nam na to pri-
  120. kaz Textcolor, za ktory  musime do zatvorky napi-
  121. sat cislo farby, alebo priamo farbu. Napr.
  122.  
  123.   Textcolor (2);                     {2 = zelena}
  124.  
  125. alebo:
  126.  
  127.   Textcolor (green);
  128.  
  129. A tu su farby a k nim cisla:
  130.  
  131.   cierna          = 0
  132.   tmavo modra     = 1
  133.   tmavo zelena    = 2
  134.   tmavo tyrkisova = 3
  135.   tmavo cervena   = 4
  136.   tmavo fialova   = 5
  137.   hneda           = 6
  138.   bledo seda      = 7
  139.   tmavo seda      = 8
  140.   bledo modra     = 9
  141.   bledo zelena    = 10
  142.   bledo tyrkisova = 11
  143.   bledo cervena   = 12
  144.   bledo fialova   = 13
  145.   zlta            = 14
  146.   biela           = 15
  147.  
  148. Neviem, ci som spominal,  ale prikazy ClrScr, ako
  149. aj Textcolor vam nebudu fungovat, ked nepouzijete
  150. kniznicu Crt. Cize nas  program, ktory vymaze ob-
  151. razovku a zltym napise Dezo je blby program, bude
  152. vyzerat takto:
  153.  
  154.   Program Dezo;
  155.   Uses Crt;
  156.    Begin
  157.      ClrScr;
  158.      Textcolor (14);
  159.      Writeln ('Dezo je blby program.');
  160.    End.
  161.  
  162. Ale ja chcem, aby mi  vypisalo to, co mu zadam ja
  163. z klavesnice. Na to sluzi prikaz Readln (nacita a
  164. zariadkuje). Musime si ale zvolit nejaku premennu
  165. napr. Nacitanie. Ak budeme zadavat cisla, bude to
  166. typu Integer, alebo Byte, zavisi od velkosti cis-
  167. la. Ja chcem ale zadavat retazec, a preto dam typ
  168. String teda:
  169.  
  170.   Var Nacitanie: String;
  171.  
  172. Prikaz na nacitanie vyzera zase takto:
  173.  
  174.   Readln (Nacitanie);
  175.  
  176. A tu je nas program:
  177.  
  178.   Program Dezo;
  179.   Uses Crt;
  180.   Var Nacitanie: String;
  181.    Begin
  182.      ClrScr;       
  183.      Textcolor(13);
  184.      Readln(Nacitanie);
  185.      ClrScr;
  186.      Textcolor(14);
  187.      Writeln(Nacitanie);
  188.    End.
  189.  
  190. Program najprv vymaze obrazovku, my zadame z kla-
  191. vesnice nejaky text,  ktory piseme bledo fialovou
  192. farbou, obrazovka sa nam po zadani textu vymaze a
  193. text sa  napise znovu  zltou  farbou. Toto  by na
  194. dnes aj stacilo, pokracovanie bude nabuduce.
  195.  
  196.                                          Johny