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.
- 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 poiada 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 moné poui len farby 0-7.
<<Previous |
Content |
Next>>
|