|

JavaMatlabPhpHtmlJavaScriptCSSC#Delphi 1


Linux Unix AutoCAD 3D Access Orcad

CRT

CRT , , .

.

:

TextMode (40); : TextMode ;

TextMode (Co80); Bw(Black-White) - ;

TextMode (Bw40); 40 80 ;
TextMode (Bw80).

Const
Bw40 =0;
Co40 =1;
Bw80 =2;
Co80 =3;

.

:

Const
{ }
Black =0; {}
Blue =1; {}
Green =2; {}
Cyan =3; {}
Red =4; {}
Magenta =5; {}
Brown =6; {}
LightGray =7; {-}
{ }
DarkGray =8; {-}
LightBlue =9; {-}
LightGreen =10; {-}
LightCyan =11; {-}
LightRed =12; {}
LightMagenta =13; {}
Yellow =14; {}
White =15; {}
Blinck =128; { }

8025

Window(X1,Y1,X2,Y2)

(1,80,1,25).

Window TextBackGround ClrScr.

 

CRT

2

1

AssignCRT

2

ClrScr

,

3

ClrEol

4

DelLine

,

5

InsLine

,

6

GoToXY (X,Y)

7

Delay(n)

n

8

NormVideo

9

LowVideo

10

HignVideo

11

Sound (f)

(f-)

12

NoSound

13

TextMode

14

TextColor (c)

15

TextBackGround

16

Window(X1,Y1,X2,Y2)

 

CRT
3

1

WhereX

()

2

WhereY

()

3

KeyPressed

true, false .

4

ReadKey

 

20.3. . (4,2,44,16)- . (32,10,76,24) - .

 

Program crtw1; { }
Uses crt;
Var
x,y :array[1..5] of integer;
i :integer;
Begin
TextBackground(2); ClrScr;
Window(4,2,44,16); TextBackground(4); ClrScr;
TextColor(3); GoToXY(10,5);
Writeln(' ');
GoToXY(15,8);
For i:=1 to 5 do
Begin
Read(x[i]); y[i]:=sqr(x[i])
End;
Window(32,10,76,24); TextBackground(0); ClrScr;
TextColor(15); GoToXY(17,5);
Writeln('');
For i:=1 to 5 do
Begin
If odd(i) Then
Begin
Sound(1000); Delay(2000); NoSound; HighVideo; Writeln(y[i]:10);
End
Else
Begin
Sound(100); Delay(2000); NoSound; LoWVideo; Writeln(y[i]:10);
End
End;
Repeat until keypressed;
End.

 

:

 

1 2 3 4 5

 


1
4
9
16
25

: 21384

:





php mysql



C


 


? :

, ? Google !

 
 

© life-prog.ru .