Тема 6 Первый набор команд для работы с текстом
1. Clrscr - очистка экрана фоновым цветом
=======
ВЫЗОВ : Clrscr;
ОПИСАНИЕ :
Команда представляет собой процедуру из библиотеки CRT. TPU
Очищает все содержимое экрана, путем "заливки" экрана фоновым
цветом.
Эту команду можно использовать для создания цветного фона на экране.
Для этого перед очисткой экрана следует установить необходимый
фоновый цвет с помощью команды TextBackground
ПРИМЕР :
Uses CRT; { подключить библиотеку CRT }
Begin
TextBackGround(4); { установить красный фоновый цвет }
clrscr; { Очистка(заливка) экрана красным цветом }
Readkey; { пауза до нажатия клавиши }
end.
2. TextBackground - установка фонового цвета
=============
ВЫЗОВ : TextBackground( номерЦвета : byte );
ПАРАМЕТРЫ: номерЦвета - число, задающее один из 16 цветов
0 - Black 4 - Red
1 - Blue 5 - Magenta(фиолетовый)
2 - Green 6 - Brown
3 - Cyan (морской волны) 7 - LighGray (светлосерый)
а также
8 - DarkGray 12 - LightRed
9 - LightBlue(ярко синий) 13 - LightMagenta
10 - LightGreen 14 - Yellow
11 - LightCyan 15 - White
ОПИСАНИЕ:
Непосредственно после исполнения команды цвет фона не изменяется
Но все последующие команды вывода на экран используют этот цвет
в качестве фонового.
Вместо номера цвета можно испорльзовать приведенные выше текстовые
константы ( red вместо 4 ; Green вместо 2 )
ПРИМЕР:
Uses CRT; { подключить библиотеку CRT }
Begin
TextBackGround(Brown); { установить КОРИЧНЕВЫЙ фоновый цвет }
clrscr; { Очистка(заливка) экрана КОРИЧНЕВЫМ цветом }
Readkey; { пауза до нажатия клавиши }
end.
-------
3. TextColor - установка цвета текста
=========
ВЫЗОВ : TextColor( номерЦвета : byte );
ПАРАМЕТРЫ: номерЦвета - число, задающее один из 16 цветов(см. TextBackGround)
ОПИСАНИЕ:
Непосредственно после исполнения команды цвет текста не изменяется
Но все последующие команды вывода на экран используют этот цвет
в качестве цвета текста.
Вместо номера цвета можно использовать приведенные выше текстовые
константы ( red вместо 4 ; Green вместо 2 )
ПРИМЕР:
Uses CRT; { подключить библиотеку CRT }
Begin
TextBackGround(Brown); { установить КОРИЧНЕВЫЙ фоновый цвет }
clrscr; { Очистка(заливка) экрана КОРИЧНЕВЫМ цветом }
TextColor(LightCyan); { установить цвет текста ЯРКОБИРЮЗОВЫЙ }
writeln('Привет'); { вывод слова на экран }
Readkey; { пауза до нажатия клавиши }
end.
-------
4. Write, WriteLn - вывод информации на экран
=============
ВЫЗОВ : Write( информация1 , информация2 , ... );
Writeln( информация1 , информация2 , ... );
ОПИСАНИЕ:
Процедуры write, writeln выводят на экран одну или несколько
порций информации в текущую позицию курсора.
При этом writeln переводит курсор на следющую строку
write напротив оставляет курсор в текущей строке
ПРИМЕР:
Uses CRT;
Begin
clrscr; { Очистка экрана текущим цветом фона}
writeln('Привет'); { вывод слова на экран с перводом курсора на
следующую строку }
write('юным'); { вывод 2-х слов слов }
write(' программистам'); { в одну строку }
Readkey; { пауза до нажатия клавиши }
end.
-------
5. gotoxy - установка курсора в заданную позицию
======
ВЫЗОВ : gotoxy( x, y : integer )
ОПИСАНИЕ:
процедура устанавливает курсор в позицию, указанную
парой координат
Следующая команда write выведет информацию в заданную позицию
Система текстовых координат :
(1,1)┌────────────────────┐ Начало - левый верхний угол
│ │ X(горизонталь) от слева - направо
│ │ Y(вертикаль) от сверху - вниз
│ │
└────────────────────┘(80,50)
ПРИМЕР:
Uses CRT;
Begin
clrscr; { Очистка экрана текущим цветом }
gotoxy(40,12) ; { курсор в 40-й колонке в 12-й строке }
writeln('Привет'); { вывод слова в текущую позицию курсора (40,12} )
Readkey; { пауза до нажатия клавиши }
end.
-------
6. Readkey - пауза в работе программы, до нажатия клавиши.
Команда позволяет определить код нажатой клавиши.
