Prvé jednoduché príkazy

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

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)

Príklad:
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 znakov, ktoré sa budú vypisovať na obrazovku. Farby ktoré môžeme používať sú v tabuľke prílohy.
TextBackGround(Col:byte); - nastaví farbu podkladu znakov vypisovaných na obrazovke.

Čís Farba Color Čís 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 Svetlozelenomodrá 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

<<Predošlá | Obsah | Ďalšia>>
Copyright © TrSek. www.TrSek.com. Posledná zmena: 3 Jún, 2006