Interfaceописания_видимых_ объектов Implementation описания_скрытых_объектов Begin операторы_инициализации_объектов_модуля End. Пример 0‑1 (Pascal) Unit Calendar; Interface Type Days=(mon, tue, wed, thu, fri, sat, sun); WorkingDays= mon..fri; Months=(jan, feb, mar, apr, may, june, july, aug, sept, oct, nov, decem); Summer=june..aug; Autumn=sep..nov; Spring=mar..may; DayNo=1..31; End; Implementation End. Процедуры в модулях Заголовок процедуры содержит всю информацию, необходимую для ее вызова: ее имя, количество и типы параметров. Тело процедуры содержит блок, раскрывающий ее алгоритм. Для пользователя важно иметь возможность вызвать процедуру, а как реализован алгоритм, знать не обязательно. Таким образом, заголовок процедуры помещается в интерфейсную часть, а тело – в раздел реализации. При этом описание процедуры в разделе реализаций может иметь сокращенный заголовок, состоящий только из служебного слова procedure или function, имени процедуры и разделителя «;». Пример 0‑2 Unit MinMax; Interface Var x, y, min, max; procedure maximum (a,b: integer; var c integer); function minimum (a,b: integer): integer; Implementation procedure maximum; begin if a>b then c:=a else c:=b end; function minimum; begin if a>b then minimum:=b else minimum:=a end; End.
|
