- •Лабораторная работа. Составление программ, имеющих разветвленную структуру, в языке Паскаль.
- •Теоретические сведения. Условный оператор.
- •Оператор выбора
- •Управление экраном.
- •Установка окон.
- •Задание цвета фона.
- •Задание цвета символов.
- •Установка курсора.
- •Пример программирования с использованием условного оператора.
- •Пояснения к программе.
- •Пример программирование с использованием оператора выбора.
- •0: Textbackground (Red);
Установка окон.
Экран монитора персонального компьютера IBM PC можно разбить на окно или несколько окон (см. рис. 1):
Положение окна на экране задается координатами 2-х точек окна: левой верхней (точка А), правой нижней (точка В). Координатами точки являются номер строки и позиции в строке, в которых точка находится на экране. Номер строк изменяются с 1 до 25 (сверху - вниз), номера позиций – от 1 до 80 (слева - направо).
Для задания окон используется процедура
Window (XA,YA, XB, YB),
где Window – имя процедуры;
XA, YA – координаты левой верхней точки окна;
XB, YB – координаты правой нижней точки окна.
Задание цвета фона.
Язык Турбо Паскаль обладает возможностью задавать цвет фона активного окна. В языке Турбо Паскаль для указания цвета предусмотрены 16 числовых констант от 0 до 15 (см. таблицу), каждая из которых имеет соответствующее символическое обозначение (имя константы). Значение констант цвета представлены в таблице 1.
Для установки цвета фона активного окна используется процедура
Textbackground (<цвет>);
где Textbackground – имя процедуры,
<цвет> - целая константа от 0 до 7 либо одно из первых восьми обозначений цвета на английском языке , приведенных в таблице.
Задание цвета символов.
Для установки цвета символов (текста) используется процедура
Textcolor(<цвет>),
Где Textcolor – имя процедуры,
<цвет> - одно из 16 обозначений цвета на английском языке (либо константа от 0 до 15).
Таблица 1.
Константа цвета |
Обозначение цвета |
Цвет |
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 |
белый |
“Очистка” окон.
Для “очистки” окон (удаления из них сообщений о предыдущей работе компьютера и закрашивания активного окна цветом фона) используется процедура
Clrscr
Процедура производит “очистку” активного окна и закрашивание его цветом фона. Если окно не было задано, то происходит “очистка” и закрашивание всего экрана.
Установка курсора.
Для установки курсора в точку с координатами XT, YT внутри окна используется процедура
Gotoxy (XT,YT)
где Gotoxy – имя процедуры
XT, YT – координаты точки (см. рис 2)
Рис.2
Процедура задает положение точки внутри активного окна. Если окно не было задано, то положение точки устанавливается внутри всего экрана.
Пример программирования с использованием условного оператора.
Составить на языке Паскаль программу, которая после вывода латинской буквы выводит на первой строке окна текст “ЛАТИНСКАЯ БУКВА”, н следующей строке – “ЗАГЛАВНАЯ БУКВА” или ”СТРОЧНАЯ БУКВА”. В противном случае вывести текст: “ЭТО НЕ ЛАТИНСКАЯ БУКВА”.
Текст сообщения вывести в окно с произвольным размером. Задать цвет фона экрана малиновый, цвет фона окна – красный.
Программа приведена ниже, варианты информации на экране монитора после запуска программы на выполнение – на рис.4, 5, 6.