1. Использование текстового и графического режимов
2. Практическая работа «Разработка программы с использованием графического модуля»
Текстовый режим. Модуль CRT.Модуль CRT (Cathod ray tube - электронно-лучевая трубка) один из наиболее часто используемых. Он содержит процедуры обслуживания процессов вывода информации на экран, ввода с клавиатуры, а также процедуры и функции вывода звуковых сигналов, работы с окнами на экране и вывода цветных текстовых строк на экран.При работе с экраном через модуль CRT весь экран разбивается на отдельные строки, а каждая строка - на отдельные позиции, в каждую из которых можно поместить один символ (в том числе и пробел). Таким образом, весь экран разбивается на отдельные неделимые прямоугольные элементы. Для каждого элемента можно задать цвет фона (задний план) и цвет символа (передний план). Кроме того, в случае необходимости символ можно сделать мерцающим.На экране устанавливается система координат. Ось X направлена вправо, ось Y вниз. В отличии от графического режима (модуль Graph), в текстовом режиме (модуль CRT) верхний левый угол имеет координаты не (0,0), а (1,1).Процедуры задания режимов работы.TextMode(t) задание текстового режима. Возможные значения переменной t:
t
Назначение
0
40x25 ч/б для цветного адаптера
2
80x25 ч/б для цветного адаптера
1
40x25 цветной
3
80x25 цветной
256
EGA/VGA 43 и 50 строк
Процедуры управления цветом.
Код цвета
Color
Цвет
0
Black
Черный
1
Bluе
Синий
2
Green
Зеленый
3
Cyan
Голубой
4
Red
Красный
5
Magenta
Фиолетовый
6
Brown
Коричневый
7
LightGray
Светло-серый
8
DarkGray
Тёмно-серый
9
LightBlue
Светло-синий
10
LightGreen
Светло-зелёный
11
LightCyan
Светло-голубой
12
LightRed
Розовый
13
LightMagenta
Светло-фиолетовый
14
Yellow
Жёлтый
15
White
Белый
Color+128
Blink
Мерцание символа
HighVideo устанавливает высокую яркость символов (заменяет цвета 0-7 на цвета 8-15), выводимых далее на экран.LowVideo устанавливает малую яркость символов (заменяет цвета 8-15 на цвета 0-7), выводимых далее на экран.NormVideo устанавливает первоначальную яркость символов, выводимых далее на экран.TextBackGround(color)задаёт цвет фона. Color может принимать значение только 0-7.TextColor(color)задаёт цвет символа.Процедуры работы с экраном.ClrEol Удаляет все символы от курсора (включительно) до конца строки, заполняя этот участок текущим цветом фона.ClrScr Очищает текущее окно заполняя его текущим цветом фона и помещает курсор в его верхний левый угол с координатами (1,1).DelLine Удаляет строку, в которой находится курсор.GotoXY(X,Y) Перемещает курсор к элементу окна с заданными координатами. Если хотя бы одна из координат недопустима, процедура не выполняется.InsLine Вставляет пустую строку на экране в месте расположения курсора и заполняет её текущим цветом фона.Window(X1,Y1,X2,Y2)Задаёт размеры окна на экране и помещает курсор в левый верхний угол окна с координатами (1,1). Если хотя бы одна из координат недопустима, процедура не выполняется.Функции работы с экраном.WhereX :integer Возвращает текущую координату X курсора.WhereY :integer Возвращает текущую координату Y курсора. Функции работы с клавиатурой.KeyPressed :boolean Анализирует нажатие клавиши клавиатуры (за исключением вспомогательных клавиш - Shift, Alt, NumLock и т.п.)ReadKey :char Считывает символ с клавиатуры и освобождает буфер клавиатуры отсчитанного символа.Задания для самостоятельного выполнения.1. Выведите своё имя, посредине экрана, мигающим красным цветом в небольшом прямоугольнике серого цвета.2. Выведите своё имя разными цветами да на разном фоне по главной диагонали экрана. Разделите экран монитора на две части по вертикали. Выведите своё имя в левой части серым цветом на синем фоне, а в правой части синим цветом на сером фоне.3. Нарисуйте картинку "пейзаж" на любую тему.4. Нарисуйте картинку "автомобиль".5. Нарисуйте картинку "робот".6. Нарисуйте разноцветную "ромашку" используя процедуры рисования окружности и эллипса7. Нарисуйте три окружности с заключёнными в них треугольником, квадратом и звездой. Все фигуры должны быть разного цвета. Урок №11
