: CRT
(16 .)
: CRT .
1. CRT .
2. CRT.
3. CRT.
4.
, CRT, :
1. ³(, ), :
- ;
- ;
- ;
- .
- ϳ , :
- , (1,1);
- ;
: - string( )
- , :
- ? Y() N()
: ( char). Y ( N). goto.
-
,
: . .
CRT
, Turbo Pascal 7.0 CRT. CRT , - , ( ). , . ( ) ( ). , , .
CRT , . - . ֳ , - , : X Y.
X ( ), Y ( ). . - 25 80 , - (1,1) (80,25).
16.5. CRT.
Text Mode | |||
BW40 | 40´25 - | ||
BW80 | 80´25 - | ||
CO40 | 40´25 | ||
CO80 | 80´25 | ||
FONT 8´8 | EGA/VGA 43 50 | ||
MONO | 80´25 | ||
C40 | CO40 | 3.0 | |
C80 | CO80 | 3.0 | |
Black | |||
Blue | |||
Green | |||
Cyan | |||
Red | |||
Magenta | Գ | ||
Brown | |||
Light gray | - | ||
Dark gray | - | ||
Light blue | - | ||
Light green | - | ||
Light cyan | - | ||
Light red | |||
Light magenta | - | ||
Yellow | |||
White | |||
Blink | |||
|
|
0 7 . .
2. CRT.
Check break | Boolean | Ctrl+Break |
Check eof | Boolean | |
Check Snow | Boolean | |
Direct video | Boolean | |
Last mode | Word | |
Text attr | Byte | |
Wind min | Word | |
Wind max | word |
Check Break Ctrl+Break. true, Ctrl+Break , . Check Eof . true, Ctrl+Z , 䳿. Check Snow (True False) . DirectVideo . LastMode , TextMode. TextAttr ( ) . WindMin WindMax .
CRT.
Procedure ClrScr , , (1,1). Text Background.
Procedure ClrEol () . textdackgraund.
Procedure delay (ms:word) ms . Ms-, .
Procedure Dellyn , .
Procedure GotoXY(,:byte) ( ). , .
|
|
Procedure TextBackground (color:byte) . Color , .
Procedure Textcolor (color:byte) . Color , .
CRT.
Function KeyPressed: boolean ( Shift, Alt, NutLock ..). true , false - .
Function Readkey: char .
Function WhereX: byte .
Function Where: byte .
: , , , ( ).
UNIT PROGRAM.
, , . *.TPU. , Option/Directories Unit directories , ( , ) (.. 1)
UNIT | . |
INTERFACE | |
uses | , |
label | |
const | |
type | |
var | |
procedure | |
function | |
˲ֲ | |
IMPLEMENTATION | |
uses | , |
label | |
const | |
type | |
var | |
procedure | ҳ |
function | ҳ |
Ͳֲ˲ֲ | |
BEGIN | |
END | |
, , , , . , .
. , - . ( ) .
, . , . , .
. . .
ϳ , , . ϳ , .
1. Crt? .
2. Crt? .
3. Crt? .
4. Crt? .