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; {}
Blink = 128; { }
function KeyPressed: Boolean;
True, , False . .
function ReadKey: char;
. , Shift, Ctrl, Alt, CapsLock, NumLock, ScrollLock.
function WhereX: byte;
.
function WhereY: byte;
.
procedure ClrScr;
.
procedure ClrEol;
.
procedure DelLine;
, , .
procedure InsLine;
procedure GotoXY(X,Y: Byte);
.
procedure HighVideo;
.
procedure LowVideo;
.
procedure NormVideo;
.
procedure TextColor(Color: Byte);
. .
procedure TextBackground(Color: Byte);
.
procedure Sound(F: word);
. F - , .
procedure NoSound;
.
procedure Delay(D: word);
.
Crt
1.
uses Crt;
begin
...
TextColor(Red); { }
writeln(!);
TextColor(Red+Blink); { }
writeln(!);
...
end.
2.
. * , , . .
. - 80 25 . (1, 1), - (80, 25). , 80 . - [-1, 1], 25 .
uses Crt;
var i: integer;
x, y: real;
begin
ClrScr;
for i:=1 to 80 do
begin
x:= i * 2*pi/(80-1);
y:= 12 12*sin(x);
gotoXY(i,trunc(y));
write(*);
end;
repeat
until KeyPressed;
end.