Алгоритмы и программы. Афанасьева Т. В - 183 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

183
Пример 10.4.
uses Crt;
begin
{ зеленые символы на черном фоне}
TextColor(Green);
TextBackground(Black);
WriteLn('Hey there!');
{ мигаюшие ярко красные символы на сером фоне}
TextColor(LightRed+Blink);
TextBackground(LightGray);
WriteLn('Hi there!');
{ желтые символы на голубом }
TextColor(14); { Yellow = 14 }
TextBackground(Blue);
WriteLn('Ho there!');
NormVideo; { оригинальный цвет }
WriteLn('Back to normal...');
repeat until keypressed;
end.
5) ClrScr – очистка экрана.
Все позиции символов заполняются пробелами. При этом исполь-
зуются текущий фоновый цвет, заданный в процедуре TextBackGround.
6) TextColor (цвет: byte) – устанавливает цвет символов.
{ константы для установки
цвета}
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;
7) Window(x1, y1, x2, y2) – определяет на экране текстовое окно.
Параметры x1, y1 представляют собой координаты верхнего левого
угла окна, параметры x2, y2 – координаты правого нижнего угла.
Минимальный размер – один столбец на одну строку.
Если координаты являются недопустимыми, то обращение к
процедуре Window игнорируется. По умолчанию
задается окно на весь
экран.
Рассмотрим пример 10.5. Вывод в окна в программе поиска суммы
четных элементов ниже побочной диагонали.

Страницы