in4matik.eu

Skôr, ako prejdeme ďalej, ukážeme si volanie knižnice CRT. Popis procedúr a funkcií knižnice CRT:

ClrScr;
Vymaže aktívne okno a umiestni kurzor do ľavého horného rohu obrazovky.

Program vymazanieObrazovky;
uses Crt;
begin
     writeln('Po stlaceni klavesy Enter vymazem obrazovku');
     readln;
     ClrScr;
     readln;
end.

Delay(Ms:Word);
Pozastaví beh programu na určený počet milisekúnd.

program zastavenieProgramu;
uses crt;
begin
     Writeln('1');
     Delay(1000);{1000 milisekund=1 sekunda}
     Writeln('2');
     Delay(1000);
     Writeln('3');
     Readln;
end.   

GotoXY(X,Y:Byte);
Nastaví kurzor na súradnice X,Y (X je stĺpec, Y je riadok) v aktívnom okne (80 stĺpcov, 25 riadkov).

program nastavenieKurzoraNa;
uses crt;
begin
     gotoxy(5,10);
     Writeln('Pozicia 5px zlava a 10px od vrchu');
     readln;
end.

KeyPressed:Boolean;
Funkcia odpovie na otázku "Bola stlačená klávesa na klávesnici?" Vráti True, ak klávesa bola stlačená; ináč vráti False.

Program opakovaneVypisovanie;
   uses crt;
   var x:integer;
begin
   x:=0;
   repeat
     x:=x+1;
     writeln(x);
     delay(1000);
   until keypressed;
   readln;
end. 

ReadKey:Char;
Funkcia číta znak z klávesnice do premennej typu char.

Program stlacKlavesu;
uses Crt;
var klavesa : char;
begin
     Writeln('Stlac klavesu na klavesnici');
     klavesa := readkey;
     writeln;
     writeln('stlacil si: ',klavesa);
     readln;
end.

TextColor(farba:byte);
Nastaví vybranú farbu znaku, ktorý sa bude vypisovať na obrazovku.

Program farbaTextu;
uses Crt;
var klavesa : char;
begin
     textcolor(yellow);
     writeln('zlta farba textu');
     textcolor(11);
     writeln('farba cislo 11');
     readln;
end.

TextBackground(farba:byte);
Nastaví vybranú farbu pozadia.

Program farby;
uses Crt;
begin
     textbackground(15);
     textcolor(black);
     writeln('pozri rozdiel');
     textbackground(red);
     readln;
     clrScr;
     readln;
end. 

Farby:

0 – black (čierna)
1 – blue (modrá)
2 – green (zelená)
3 – cyan (tyrkysová)
4 – red (červená)
5 – magenta (fialová)
6 – brown (hnedá)
7 – lightgray (svetlo sivá)
8 – darkgray (tmavo sivá) 
9 – lightblue (svetlo modrá) 
10 – lightgreen (svetlo zelená) 
11 – lightcyan (svetlo tyrkysová) 
12 – lightred (svetlo červená) 
13 – lightmagenta (ružová, svetlá magenta)
14 – yellow (žltá) 
15 – white (biela)

Príklady:

1. Skúste nakresliť zástavy niektorých štátov...

2. Napíšte program, ktorý na obrazovku vypíše dva stĺpce textu (napr. vaše meno). Každý riadok je napísaný inou farbou

3. Napíšte program, ktorý na obrazovku nakreslí 12 približujúcich sa rôznofarebných obdĺžnikov.
· Upravte program tak, aby obdĺžnikov bolo 15 a mali farbu postupne od 1 po 7, potom 0 a 7..1.

4. Napíšte program, ktorý na obrazovku nakreslí osem rôznofarebných obdĺžnikov vložených do seba. Každý obdĺžnik je inej farby.

5. Napíšte šetrič obrazovky, ktorý náhodne generuje obdĺžniky (t. j. umiestnenie, rozmer a farbu obdĺžnika), vykresľuje ich na obrazovku dovtedy, kým sa nestlačí kláves.