Uses Crt,Modsort;

Var A:mas;

I:byte;

N:byte;

Begin

Writeln('Ввод исходных данных:');

Readln(N);

For I:=1 to N do

Readln(A[I]);

SORT(A,N);

For I:=1 to N do

Writeln(A[I]);

Readkey

End.

Первым предложением программы является Uses, в котором подключается стандартный модуль Crt и модуль Modsort, где находится процедура сортировки.

Кроме того, тип, с которым описывается массив, отсутствует в главной программе, т.к. он присутствует в модуле.

Unit Modsort;

Interface

Type mas=array[1..100] of integer;

Procedure SORT(Var A:mas; N:byte);

Implementation

Procedure SORT;

Var I,J:byte;

X:integer;

Begin

For J:=1 to N-1 do

For I:=1 to N-J do

If A[I]>A[I+1] then

Begin

X:=A[I]; A[I]:=A[I+1]; A[I+1]:=X

End;

End;

End.

В интерфейсной части модуля описан тип mas и заголовок процедуры сортировки. При подключении этого модуля с помощью предложения Uses влюбой программе становятся доступными рассматриваемые тип и процедура. Это продемонстрировано в главной программе.

Вопросы к главе 4.

1. Назначение процедур и функций.

2. Возможность подключения процедур и функций с помощью опции компилятора.

3. Описание заголовка процедуры.

4. Описание заголовка функции.

5. Описание процедуры.

6. Как осуществляется вызов процедуры?

7. Особенности описания функции.

8. Особенности вызова функции.

9. Понятие глобальных и локальных переменных.

10. Область действия имен в программах сложной структуры.

11. Особенности использования формальных и фактических параметров.

12. Как осуществляется передача информации в процедурах без параметров?

13. Особенности использования рекурсивных процедур и функций.

14. С какой целью и как описываются предварительно определенные процедуры и функции?

15. Назначение модулей.

16. Особенности описания модулей.