лек.№6 информ

циирующей части).

Инициирующая часть , Begin.. End. (блок операторов,

выполняемых при под-

ключении модуля к основной программе).

Фрагмент 1.

Структура модуля имеет вид:

Unit Name_M; { Name_M - имя модуля }

{-----------------------------------------------------------------------------------------------------------------

}

Interface { Интерфейсная часть модуля}

{------------------------------------------------------------

раздел описания глобальных имен}

Type MM=array[1..10, 1..10] of real; {описание типа}

Var Max_F, Min_F: real; {описание глобальных переменных}

{------------------------------------------------------------------------------------------------------------------

}

Procedure Name_P(p1: real; p2: MM);

{описание заголовков процедуры}

Function Name_f(p3,p4:real):real; { и функции}

{-----------------------------------------------------------------------------------------------------------------

}

Implementation

{Исполняемая часть модуля}

{---------------------------------------------------------------

раздел описания локальных имен}

{ Раздел описания функции}

Begin { Раздел выполнения функции}

End;

{-----------------------------------------------------------------------------------------------------------------

}

BEGIN { Инициирующая часть модуля}

Writeln(C); {операторы модуля}

Unit MATR_1;

{--------------------------------------------------------------------------------------------------------------

}

Interface

{--------------------------------------------------------------------------------------------------------------

}

Type

M = array[1..10, 1..10] of real;

M1 = array[1..10] of real;

Procedure MAT_1(a:M; var b:M; n: word);

Procedure MAT_2(a:M; var b:M1; n: word);

{--------------------------------------------------------------------------------------------------------------

}

Implementation

{--------------------------------------------------------------------------------------------------------------

}

Procedure MAT_1;{создание матрицы "B", транспонированной к "A"}

var i, j: word;

begin

for i:=1 to N do

for j:=1 to N do b[i,j]:=a[j,i]

end;

{-------------------------------------------------------------------------------------------------------------

}

Procedure MAT_2; {расчет квадратов диагональных элементов}

var i, j: word;

begin

for i:=1 to N do

b[i]:=a[i,i]*a[i,i]

end;

{---------------------------------------------------------------------------------------------------------------

}

END.

Табл. 1

Наименование

Параметры процедуры

Результат выполнения

процедуры

процедуры

TextMode(N);

N - тип Word

Задание текстового режима ра-

N=0

(40x25)-CGA- ч. б.

боты монитора.

N=1

(40x25) -CGA,

Экран очищается, курсор уста-

N=2

(80x25) -EGA, VGA,

навливается в позицию 1, 1.

N=3

(80x25) цветной

Цвета исходные: белые символы

N=N+256

(80x43)-EGA цветной

на черном экране

Ym

(80x50)-VGA цветной

Наибольшие значения координат

N=7

(80x25)-монохромный; (80

Хm:= Lo(WindMax)+1;

колонок х 25 строк );

Ym:= Hi(WindMax)+1;

Window(x1, y1, x2,

x1, y1, x2, y2 - тип Byte

Задание окна на экране. Курсор

y2);

1 <= x1 < x2 <= Xm, 1 <= y1

устанавливается в позицию (1, 1)

< y2 <= Ym

в системе координат окна. Пре-

в системе координат экра-

вышение координат экрана игно-

на.

рируется.

Наименование

Параметры процедуры

Результат выполнения

процедуры

процедуры

TextBackGround(N);

N - тип Byte, 0 <=N<= 7

Назначение цвета фона. При

N>7 N:= N mod 8

Clrscr;

Использование процедуры

Очистка активного окна, экрана

после TextBackGround(N);

курсор устанавливается в пози-

закрашивает активное окно

цию (1, 1). Закрашивание окна.

TextColor(N);

N - тип Byte 0 <=N<= 15 а

Назначение цвета символов.

также при N:= N + 128 вы-

При N>15, N:= N mod 16,

вод мерцающих символов -

GotoXY(x, y);

x, y - тип Byte

Установка курсора в позицию (

x, y ) в системе координат актив-

ного окна, экрана.

InsLine;

Вставка пустой строки.

DelLine;

Удаление строки в позиции

курсора.

ClrEol;

Стирание символов от позиции

курсора до конца строки.

повышенная (HighVideo;),

пониженная (LowVideo;)

нормальная (NormVideo;)

Функции, возвращающие

номер

текущего столбца (WhereX;) и строки

(WhereY;), типа - Byte.

В процедурах TextBackGround(N); и TextColor(N); параметр N назначает цвета:

Табл. 2

0

Black, черный

8

DarkGray, темно-серый

1

Blue, синий

9

LightBlue, ярко-синий

2

Green, зеленый

10

LightGreen, ярко-зеленый

3

Cyan, голубой

11

LightCyan, ярко-голубой

4

Red, красный

12

LightRed, ярко-красный

5

Magenta, фиолетовый

13

LightMagenta, ярко-фиолетовый

6

Brown, коричневый

14

Yellow, желтый

7

LightGray, ярко-серый

15

White, белый

Мерцание символов можно получить,

также задавая: N:= N + 128;

В процедурах TextBackGround(N);

и TextColor(N); вместо N можно использо-

вать наименование цвета, например: