19. Тип "перечисление"

Тип “перечисление” описывается в виде:

(идентификатор₁,...,идентификатор_N)

Идентификаторы, использованные при описании типа, автоматически становятся константами этого типа. Можно использовать в программе переменные и именованные константы типа “перечисление”. К ним применимы функции Ord, Pred и Succ. Переменной можно присвоить значение ее типа; такие переменные могут быть переменными цикла; тип “перечисление” может быть базовым типом множества. Но переменные типа “перечисление” нельзя вводить и выводить, они не могут быть преобразованы ни к какому другому типу. Попробуем использовать тип “перечисление” :

Type Months = (Jan,Feb,Mar,Apr,Mai,Jun,Jul,Aug,Sep,Oct,Nov,Dec);

{идентификаторы Jan...Dec стали КОНСТАНТАМИ типа Months}

Var M : Months;

Const MM : Months = Mar;

Type M_Set = Set Of Months;

Const Sem1 : M_Set = [Sep..Dec];

Sem2 : M_Set = [Feb..Mai];

Sess : M_Set = [Jan,Jun];

Const Year : Byte=0;

Begin {определим, что за месяц MM}

If MM In Sem1 Then WriteLn('1-й семестр') Else

If MM In Sem2 Then WriteLn('2-й семестр') Else

If MM In Sess Then WriteLn('сессия') Else

WriteLn('каникулы');

{посчитаем продолжительность учебного года}

For M:=Jan To Dec Do

If M In Sem1+Sem2+Sess Then Inc(Year);

WriteLn('Учебный год длится ',Year,' месяцев');

End.

20. Модуль Crt

Crt - еще один стандартный модуль Паскаля, в котором содержатся разнообразные средства консольного ввода-вывода (то есть ввода с клавиатуры и вывода на текстовый экран). Процедуры и функции Crt помогут вам организовать хороший интерфейс в ваших программах. Кроме процедур и функций любой модуль может также содержать описания типов, констант и переменных, доступные в пользовательской программе (если имя модуля указано в операторе Uses). В модуле Crt определена полезная переменная

Var TextAttr : Byte

В ней содержится текущий цвет фона и цвет символов, используемые при выводе на экран процедурами Write и WriteLn. Изменив эту переменную, вы задаете новый цветовой атрибут. Цветовой атрибут строится следующим образом: в четырех младших битах хранится цвет символов (от 0 до 15), в следующих трех битах - цвет фона (от 0 до 7), и старший бит отвечает за мерцание. Пусть, например, значение переменной TextAttr равно 237, в двоичной записи - это 11101101 (если записывать биты в последовательности от старшего к младшему). Четыре младших бита 1101 дают цвет символов 13, или LightMagenta – светло-малиновый, следующие 3 бита 110 дают цвет фона 6, или Brown - коричневый, старший бит - единичный. Таким образом, будут выводиться мерцающие светло-малиновые символы на коричневом фоне. Из сказанного ясно, что цветовые константы Black ... White определены в Crt точно так же, как и в модуле Graph. Кроме того, определена константа мерцания Blink = 128. Теперь построим нужный цветовой атрибут сами: мы хотим вывести желтые мерцающие символы на светло-сером фоне. Переменной TextAttr необходимо присвоить значение 14 (желтые символы) +7 (серый фон) * 16 + 128 (мерцание), итого 14+112+128=254. Столь сложных вычислений легко избежать, если пользоваться 16-ричными числами, наш атрибут в 16-ричном виде записывается как $7E+Blink. Теперь рассмотрим некоторые функции и процедуры модуля CRT.

1. Function KeyPressed : Boolean - возвращает True, если буфер клавиатуры не пуст (все нажатия клавиш во время работы программы накапливаются в специальном участке памяти - буфере клавиатуры, откуда затем поступают в программу). Функция не очищает буфер клавиатуры.

2. Function ReadKey : Char - считывает символ из буфера клавиатуры, если буфер пуст, то ожидает нажатия клавиши. Эту функцию удобно использовать для организации пауз в программе.

3. Procedure Delay(MS: Word) - приостанавливает выполнение программы на MS миллисекунд.

4. Procedure Sound(Hz: Word) - генерирует звуковой сигнал с частотой Hz герц.

5. Procedure NoSound - выключает звуковой сигнал.

6. Procedure Window(X1,Y1,X2,Y2:Byte) - инициализирует текстовое окно, заданное координатами верхнего левого и нижнего правого угла. Текстовое окно - это прямоугольная область на экране, куда направляется весь вывод. Процедура не выполняет никаких видимых действий.

7. Procedure TextBackground(Color: Byte) - задает цвет фона для всего последующего вывода.

8. Procedure TextColor(Color: Byte) - задает цвет символов для всего последующего вывода. Процедуры TextBackground и TextColor вместе обеспечивают те же возможности, что и переменная TextAttr.

9. Procedure ClrScr - очищает текущее окно, используя текущий фоновый цвет.

10. Procedure GotoXY(X,Y:Byte) - перемещает курсор в позицию X строки Y текущего окна. Координаты отсчитываются от левого верхнего угла окна.

11. Function WhereX : Byte

12. Function WhereY : Byte - возвращают текущие относительные координаты курсора (позицию и строку).

13. Procedure DelLine - удаляет строку окна, в которой находится курсор, все нижние строки автоматически смещаются вверх.

14. Procedure InsLine - вставляет пустую строку перед строкой, в которой находится курсор, все нижние строки автоматически смещаются вниз, и последняя строка окна теряется.

Воспользуемся средствами модуля Crt, чтобы создать на текстовом экране меню, подобное главному меню среды программирования Turbo Pascal.

Uses Crt;

Const

N = 10; {количество тем в меню}

Item : Array[1..N] Of String[7]=('File','Edit','Search','Run','Compile', 'Debug', 'Tools', 'Options','Window','Help'); {названия тем}

Pos : Array[1..N] Of Byte=(3,9,15,23,28,37,44,51,60,68); {положения тем в меню}

Screen_Color = 1; {цвет экрана}

Menu_Color = 7; {фоновый цвет меню}

Item_Color = 0; {цвет невыделенных символов}

Hilite_Color = 4; {цвет "подсвеченных" символов в названиях тем}

Select_Color = 2; {фоновый цвет выделенной темы в меню}

Row = 1; {номер строки, в которой размещается меню}

Procedure PrintItem(t:Byte);

{процедура выводит название темы в нужное место}

Begin

TextColor(Hilite_Color); {первый символ в каждой теме "подсвечен"}

GotoXY(Pos[t],1);

Write(' ',Item[t][1]);

TextColor(Item_Color); {остальные символы не выделены}

Write(Copy(Item[t],2,Length(Item[t])-1),' ');

GotoXY(80,1); {спрятали курсор}

End;

Type KeyType = (kbNone,kbEsc,kbF10,kbAltX,kbLeft,kbRight);

{клавиши, которые нужны программе}

Function GetKey:KeyType; {функция, определяющая, какая клавиша нажата}

Var ch : Char;

Begin

ch:=ReadKey;

Case ch Of

#27 : GetKey:=kbEsc;

#0 : Begin {остальные четыре клавиши генерируют два символа, первый из которых #0}

ch:=ReadKey;

Case ch Of

#75:GetKey:=kbLeft;

#77:GetKey:=kbRight;

#68:GetKey:=kbF10;

#45:GetKey:=kbAltX;

Else GetKey:=kbNone;

End;

End;

Else GetKey:=kbNone;

End;

End;

Var

t : Byte;

Key : KeyType;

Select : Byte;

Begin

{закрасим экран в фоновый цвет}

TextBackground(Screen_Color);

Window(1,1,80,25);

ClrScr;

{нарисуем меню}

TextBackground(Menu_Color);

Window(1,Row,80,Row);

ClrScr;

For t:=1 To 10 Do PrintItem(t);

Select:=1; {номер выделенной темы}

Repeat

Key:=GetKey;

If Key=kbAltX Then Break; {программа завершается}

If Key<>kbF10 Then Continue; {ждем нажатия клавиши F10}

TextBackground(Select_Color); {выделяем активную тему в меню}

PrintItem(Select);

Repeat {теперь меню активно}

Key:=GetKey;

If Key In [kbNone,kbAltX,kbF10] Then Continue; {эти клавиши в меню никаких функций не выполняют}

{отменяем выделение активной темы}

TextBackground(Menu_Color);

PrintItem(Select);

Case Key Of

kbLeft : Begin

Dec(Select);

If Select<1 Then Select:=N;

End;

kbRight : Begin

Inc(Select);

If Select>N Then Select:=1;

End;

kbEsc : Break; {выход из меню}

End;

{выделяем новую активную тему}

TextBackground(Select_Color);

PrintItem(Select);

Until False;

Until False;

{перед завершением программы почистим экран}

Window(1,1,80,25);

TextAttr:=$07;

ClrScr;

End.

Вообще говоря, построение интерфейса не требует каких-либо специальных знаний. Главным образом следует руководствоваться здравым смыслом. Но некоторые простейшие правила можно привести :

- на экране не должно быть “мусора”;

- пользователь в любой момент работы должен понимать, что от него требуется;

- неверный ввод данных не должен приводить к аварийному завершению программы;

- результаты работы должны выводиться в понятном и аккуратном виде.