Interface

END.

Unit

Разработка модулей

Оператор перехода к метке

Операторы ограничения и прерывания цикла

Continue; - ограничение цикла,

Break; - прерывание цикла.

Пример использования операторов для блокировки несанкционированного доступа в программу.

For i:= 1 to 3 do begin

Write('Введите ПАРОЛЬ:'); Readln(S); {S и Parol - переменные одного типа}

If S = Parol Then Break { прерывание цикла }

else If i <> 3 Then Continue; { ограничение цикла }

Writeln('Доступ к программе ЗАПРЕЩЕН');

Writeln('Нажмите Enter'); Readln; Halt { прерывание программы }

end; {продолжение программы}

Goto "метка";

M1: Write('Введите x>=0'); Readln(x); If x<0 Then Goto M1;

Метки описываются в разделе описания, например: Label M1;

Пример операторов для расчета конечной суммы вклада через 10 месяцев (pr - процентная ставка), при условии досрочного снятия вклада, если начальная сумма "S1" возрасла более чем в два раза:

S:= S1; For i:= 1 to 10 do begin

S:= S * (1 + pr/100); If S > 2 * S1 Then Goto M1 end;

M1: Writeln(S);

Интерфейсная часть, Interface (описание глобальных имен типов, меток, констант, переменных, а также заголовков процедур, доступных основной программе).

Исполняемая часть, Implementation (описание процедур: заголовок, разделы описания и выполнения, заголовки которых перечислены в интерфейсной части, а также локальных имен типов, меток, констант и переменных, используемых в инициирующей части).

Инициирующая часть, 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 {Исполняемая часть модуля}

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

Const C = 'Подключен модуль Name_M';

{ задание локальной константы}

Procedure Name_P; {Полное описание процедуры}

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

Begin { Раздел выполнения процедуры} End;

Function Name_f: real; {Полное описание функции}

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

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

{----------------------------------------------------------------------------------------------------------------- }

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

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

Модуль записывается в файл с именем модуля, например, Name_M. pas.

Затем файл компилируется, например, Name_M. tpu, и записывается в каталог, указанный в опции Options, Directories, EXE & TPU, иначе - в текущий каталог.

При запуске программы, использующей модуль, файл с расширением ". tpu" ищется в каталоге, указанном в опции Options, Directories, EXE & TPU или Unit Directories, либо в текущем каталоге.

Program Pr_1;

Uses Name_M1, Name_M2;

Фрагмент 2. Пример разработки и подключения модуля работы с матрицами.

Unit MATR_1;

{--------------------------------------------------------------------------------------------------------------}

{--------------------------------------------------------------------------------------------------------------}

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);

{--------------------------------------------------------------------------------------------------------------}

Дата добавления: 2014-01-06