Процедуры управления выводом на экран.
Для подключения модуля управления выводом на экран необходимо после заголовка программы дать команду Uses Crt; Аналогично можно подключить и другие библиотечные модули, указав их имена через запятую.
Подключая библиотечный модуль Crt, мы получаем возможность использовать дополнительные процедуры и функции управления выводом на экран, содержащиеся в этом модуле.
TextBackGround (n); - установка цвета фона, цвет кодируется целым числом от 0 до 7.
ClrScr; - очистка экрана, заливка заданным цветом.
TextColor (n); - установка цвета текста, цвет кодируется целым числом от 0 до 15.
GoToXY(x, y); - перенос курсора в заданную позицию на экране для вывода размер.
экрана в текстовом режиме 80 позиций на 25 (или 50) строк.
c:=ReadKey; - функция, возвращает символ, соответствующий нажатой клавише.
Таблица 6. Цвета фона (0-7) и цвета текста (0-15).
Цвет |
Код |
Константа |
Черный |
0 |
Black |
Синий |
1 |
Blue |
Зеленый |
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 |
Компиляция и выполнение программы.
Программа, написанная на языке программирования, является исходной программой. Она состоит из инструкций, понятных человеку, но не понятных процессору компьютера. Чтобы процессор мог выполнить программу, ее необходимо перевести на язык машинных кодов (язык команд процессора). Этот перевод осуществляет специальная программа – компилятор.
Компилятор выполняет две задачи: проверяет текст программы на наличие синтаксических ошибок и если их нет, создает (генерирует) выполняемую программу – машинный код. Выполняемую программу еще называют объектной, так как это объект для выполнения процессором.
Для того чтобы запустить исходную программу на компиляцию, надо выбрать пункт меню Compile или нажать клавиши Alt+F9.
При обнаружении синтаксических ошибок (не соответствие правилам языка), программа выполняться не будет. Компилятор выдаст сообщение об ошибке и выделит строку, в которой ошибка обнаружена. Ошибки необходимо исправить, пользуясь подсказками компилятора. После исправления ошибок, если компиляция прошла успешно, можно запустить программу на выполнение. Для этого выберете пункт меню Run или нажмите клавиши Ctrl+F9. Не забудьте ввести исходные данные, если в программе имеются команды ввода с клавиатуры. Для возвращения экрана вывода после выполнения программы нажмите клавиши Alt+F5.
Задача 1.
Залить экран бирюзовым цветом, ввести два числа с клавиатуры. Затем залить экран сиреневым цветом и вывести в центре экрана в столбик сумму, разность, произведение и частное заданных двух чисел.
Математическая формулировка задачи:
Следует помнить о том, что команда TextBackGround (n) только устанавливает цвет фона в параметрах, но не производит очистку экрана. Для того, чтобы залить экран нужным цветом, надо после установки цвета фона дать команду очищения экрана ClrScr. Для вывода в центре экрана нужно перенести курсор в позицию 40, 12. Однако следующее значение должно быть выведено тоже в центре экрана, но в следующей строке. Поэтому придется задавать команду GoToXY(x, y) несколько раз, перед выводом каждого значения.
Алгоритм решения задачи 1: Текст программы к задаче 1:
Program Ex_1;
Uses Crt;
Var
x, y: integer; { два числа }
Begin
TextBackGround(3);
ClrScr;
Writeln(‘Введите два числа ’);
Readln(x, y);
TextBackGround(3);
ClrScr;
GotoXY(40, 12);
Write(x+y);
GotoXY(40, 13);
Write(x-y);
GotoXY(40, 14);
Write(x*y);
GotoXY(40, 15);
Write(x/y);
Readln;
End.