Если вам не нужно рисовать на экране картинки, то вам не нужен и графический режим. Тем более, что вывод текста в текстовом режиме можно сделать достаточно красиво и удобно. Делается это с помощью модуля CRT. Вот какие процедуры он предлагает для этого:
| TextColor(Yellow)
| Выбор цвета текста
|
| TextBackground(Blue)
| Выбор цвета фона под текстом. Я имею в виду цвет не всего экрана, а той узенькой полоски, на которой появляется текущий текст
|
| ClrScr
| Очистка экрана. Если в программе предварительно была выполнен оператор TextBackground (Blue), то после выполнения ClrScr весь экран станет синим
|
| GotoXY(61,14)
| Поместить курсор в 61 столбец 14 строки
|
До сих пор вы не умели управлять положением текстового курсора на экране. При помощи процедуры GotoXYвы сможете помещать курсор в произвольную точку экрана, а значит и текст печатать в произвольном месте экрана. Вспомним, что в текстовом режимеэкран обычно разделен на 25 строк по 80 столбцов. Строки пронумерованы сверху вниз, столбцы - слева направо. Чтобы поместить курсор в 61 столбец 14 строки, достаточно записать GotoXY(61,14).
Задача: Закрасить экран красным цветом и посредине экрана желтыми буквами на синем фоне написать “Вход”.
Программа:
USES CRT;
BEGIN
TextBackground (Red);
ClrScr;
TextColor (Yellow);
TextBackground (Blue);
GotoXY(38,13);
WriteLn(‘Вход’)
END.
