English
English
Slovensky
Slovensky
Česky
Česky
Šarišsky
Šarišsky

First simply commands

  • Clrscr;

    Command clears a screeen and set actual color.

  • GotoXY(X,Y:byte);

    Get a cursor to a position definited by X,Y.

    Resolution has a resolution of 25 linrs and 80 columns.
    DOS

  • Write (S:[variable var]);
    Write ('text between apostrophes');

    It will write on actual position of cursor a ammount of variable or tetxt between an apostrophes.

  • WriteLn (S:[variable var]);
    WriteLn ('text between apostrophes');

    Like write, but it wile write it to the new line.

  • Read (S:[variable var]);

    Read a entry from a keyboard, and save it to the S variable.

  • ReadLn (S:[variable var]);

    Like read, but it will read a character for the end of the line. (Enter). For saving a variables always use a ReadLn no 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.

    Čís Color Color Čís Color Color
    0 Black Black 8 Darkgray Darkgray
    1 Blue Blue 9 Lightblue Lightblue
    2 Green Green 10 Lightgreen Lightgreen
    3 Cyan Cyan 11 Lightcyan Lightcyan
    4 Red Red 12 Lightred Lightred
    5 Magenta Magenta 13 Lightmagenta Lightmagenta
    6 Brown Brown 14 Yellow Yellow
    7 Lightgray Lightgray 15 White White

  • TextBackGround(Col:byte);

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


<<Previous | Content | Next>>