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))
Řá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 53: Řádek 53:
 
! Číslo !! Farba !! Color !! Číslo !! Farba !! Color
 
! Číslo !! Farba !! Color !! Číslo !! Farba !! Color
 
|-
 
|-
| 0|| Čierna       || style="color:white; background-color:black;" | Black
+
| 0|| Čierna           || style="color:#000000; font-weight:bold;" | Black
| 8|| Tmavošedá     || style="background-color:darkgray;"   | Darkgray
+
| 8|| Tmavošedá         || style="color:#888888; font-weight:bold;" | Darkgray
 
|-
 
|-
| 1|| Modrá         || style="background-color:blue;"       | Blue
+
| 1|| Modrá             || style="color:#000088; font-weight:bold;" | Blue
| 9|| Svetlomodrá   || style="background-color:lightblue;" | Lightblue
+
| 9|| Svetlomodrá       || style="color:#0000FF; font-weight:bold;" | Lightblue
 
|-
 
|-
| 2|| Zelená       || style="background-color:green;"     | Green
+
| 2|| Zelená           || style="color:#008800; font-weight:bold;" | Green
|10|| Svetlozelená || style="background-color:lightgreen;" | Lightgreen
+
|10|| Svetlozelená     || style="color:#00FF00; font-weight:bold;" | Lightgreen
 
|-
 
|-
| 3|| Zelenomodrá   || style="background-color:cyan;"       | Cyan
+
| 3|| Zelenomodrá       || style="color:#008888; font-weight:bold;" | Cyan
|11|| Svetlázelenomodrá || style="background-color:lightcyan;" | Lightcyan
+
|11|| Svetlázelenomodrá || style="color:#00FFFF; font-weight:bold;" | Lightcyan
 
|-
 
|-
| 4|| Červená       || style="background-color:red;"       | Red
+
| 4|| Červená           || style="color:#880000; font-weight:bold;" | Red
|12|| Svetločervená || style="background-color:lightred;"   | Lightred
+
|12|| Svetločervená     || style="color:#FF0000; font-weight:bold;" | Lightred
 
|-
 
|-
| 5|| Magenta       || style="background-color:magenta;"   | Magenta
+
| 5|| Magenta           || style="color:#880088; font-weight:bold;" | Magenta
|13|| Svetlámagenta || style="background-color:lightmagenta;" | Lightmagenta
+
|13|| Svetlámagenta     || style="color:#FF00FF; font-weight:bold;" | Lightmagenta
 
|-
 
|-
| 6|| Hnedá         || style="background-color:brown;"     | Brown
+
| 6|| Hnedá             || style="color:#888800; font-weight:bold;" | Brown
|14|| Žltá         || style="background-color:yellow;"     | Yellow
+
|14|| Žltá             || style="color:#FFFF00; font-weight:bold; background-color:darkgray;" | Yellow
 
|-
 
|-
| 7|| Svetlošedá   || style="background-color:lightgray;" | Lightgray
+
| 7|| Svetlošedá       || style="color:#DDDDDD; font-weight:bold; background-color:darkgray;" | Lightgray
|15|| Biela         || style="background-color:white;"     | White
+
|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.
  

Verze z 19. 10. 2012, 15:58

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