Prvé jednoduché príkazy: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
(TextColor(Col:byte))
m (1 revízia)
 
(Není zobrazeno 5 mezilehlých verzí od stejného uživatele.)
Řádek 1: Řádek 1:
===[[Clrscr]]===
+
===[[ClrScr]]===
 
Príkaz vymaže obrazovku a nastaví aktuálnu farbu.
 
Príkaz vymaže obrazovku a nastaví aktuálnu farbu.
  
Řádek 50: Řádek 50:
 
Nastaví farbu u znakov ktoré sa vypisujú na obrazovku.
 
Nastaví farbu u znakov ktoré sa vypisujú na obrazovku.
  
{| class="wikitable" style="text-align: center; color: black;"
+
{| class="wikitable"
! style="background-color:#cccccc;" | Číslo
+
! Číslo !! Farba !! Color !! Číslo !! Farba !! Color
! style="background-color:#cccccc;" | Farba
 
! style="background-color:#cccccc;" | Color
 
! style="background-color:#cccccc;" | Číslo
 
! style="background-color:#cccccc;" | Farba
 
! style="background-color:#cccccc;" | Color
 
 
|-
 
|-
|0 || Čierna || Black || 8 || Tmavošedá || Darkgray
+
| 0|| Čierna           || style="color:#000000; font-weight:bold;" | Black
 +
| 8|| Tmavošedá         || style="color:#888888; font-weight:bold;" | Darkgray
 
|-
 
|-
|1 || Modrá || Blue || 9 || Svetlomodrá || Lightblue
+
| 1|| Modrá             || style="color:#000088; font-weight:bold;" | Blue
 +
| 9|| Svetlomodrá       || style="color:#0000FF; font-weight:bold;" | Lightblue
 
|-
 
|-
|2 || Zelená || Green || 10 || Svetlozelená || Lightgreen
+
| 2|| Zelená           || style="color:#008800; font-weight:bold;" | Green
 +
|10|| Svetlozelená     || style="color:#00FF00; font-weight:bold;" | Lightgreen
 
|-
 
|-
|3 || Zelenomodrá || Cyan || 11 || Svetlázelenomodrá || Lightcyan
+
| 3|| Zelenomodrá       || style="color:#008888; font-weight:bold;" | Cyan
 +
|11|| Svetlázelenomodrá || style="color:#00FFFF; font-weight:bold;" | Lightcyan
 
|-
 
|-
|4 || Červená || Red || 12 || Svetločervená || Lightred
+
| 4|| Červená           || style="color:#880000; font-weight:bold;" | Red
 +
|12|| Svetločervená     || style="color:#FF0000; font-weight:bold;" | Lightred
 
|-
 
|-
|5 || Magenta || Magenta || 13 || Svetlámagenta || Lightmagenta
+
| 5|| Magenta           || style="color:#880088; font-weight:bold;" | Magenta
 +
|13|| Svetlámagenta     || style="color:#FF00FF; font-weight:bold;" | Lightmagenta
 
|-
 
|-
|6 || Hnedá || Brown || 14 || Žltá || Yellow
+
| 6|| Hnedá             || style="color:#888800; font-weight:bold;" | Brown
 +
|14|| Žltá             || style="color:#FFFF00; font-weight:bold; background-color:darkgray;" | Yellow
 
|-
 
|-
|7 || Svetlošedá || Lightgray || 15 || Biela || White
+
| 7|| Svetlošedá       || style="color:#DDDDDD; font-weight:bold; background-color:darkgray;" | Lightgray
 +
|15|| Biela             || style="color:#FFFFFF; font-weight:bold; background-color:darkgray;" | White
 
|}
 
|}
  
===[[TextBackGround]](Col:byte)===
+
===[[TextBackground]](Col:byte)===
 
Nastaví farbu podkladu znakov vypisovaných na obrazovke. U TextBackGround je možné použiť len farby 0-7.
 
Nastaví farbu podkladu znakov vypisovaných na obrazovke. U TextBackGround je možné použiť len farby 0-7.
  

Aktuální verze z 19. 10. 2012, 17:16

ClrScr

Príkaz vymaže obrazovku a nastaví aktuálnu farbu.

GotoXY(X,Y:byte)

Presunie kurzor na obrazovke. Pozícia je určená súradnicami X,Y. X - stĺpec Y - riadok. Obrazovka má nasledovné rozlíšenie.

Dos.jpg

Write (S:[premenná var])

Write('text medzi apostrofmi');

Vypíše na aktuálnu pozíciu na obrazovke obsah premennej, alebo text medzi apostrofmi.


WriteLn(S:[premenná var]);

WriteLn('text medzi apostrofmi');

Podobne ako write, ale presunie kurzor na nový riadok.


Read (S:[premenná var])

Prečíta údaj z klávesnice a uloží do premennej S.


ReadLn (S:[premenná var]);

Obdobne ako read s rozdielom, že prečíta aj znak konca riadku (Enter). Pre čítanie premenných používajte vždy ReadLn a nie Read.

{ Príklad: Program požiada o čísla X,Y a meno }
{ potom na súradnicu X,Y vypíše meno }

program citat_vypis;
 uses crt,dos;
 var x,y:integer;
     meno:string;
begin
   Clrscr;
   GotoXY(2,2);WriteLn('Zadaj suradnicu X=');
   ReadLn(X);
   GotoXY(2,3);WriteLn('Zadaj suradnicu Y=');
   ReadLn(Y);
   GotoXY(3,3);WriteLn('Zadaj meno');
   ReadLn(meno);
   GotoXY(X,Y);WriteLn( meno);
end.

TextColor(Col:byte)

Nastaví farbu u znakov ktoré sa vypisujú na obrazovku.

Číslo Farba Color Číslo Farba Color
0 Čierna Black 8 Tmavošedá Darkgray
1 Modrá Blue 9 Svetlomodrá Lightblue
2 Zelená Green 10 Svetlozelená Lightgreen
3 Zelenomodrá Cyan 11 Svetlázelenomodrá Lightcyan
4 Červená Red 12 Svetločervená Lightred
5 Magenta Magenta 13 Svetlámagenta Lightmagenta
6 Hnedá Brown 14 Žltá Yellow
7 Svetlošedá Lightgray 15 Biela White

TextBackground(Col:byte)

Nastaví farbu podkladu znakov vypisovaných na obrazovke. U TextBackGround je možné použiť len farby 0-7.


Kam ďalej: Obsah | Nepodmienený cyklus FOR