.


:




:

































 

 

 

 


CRT




: CRT

(16 .)

: CRT .

 

1. CRT .

2. CRT.

3. CRT.

4.

 

, CRT, :

1. ³(, ), :

- ;

- ;

- ;

- .

 

  1. ϳ , :

- , (1,1);

- ;

: - string( )

 

  1. , :

- ? 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? .





:


: 2016-11-23; !; : 354 |


:

:

.
==> ...

1609 - | 1578 -


© 2015-2024 lektsii.org - -

: 0.015 .