Доступ к объявленным в модуле объектам

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

UNIT Cmplx;

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

INTERFACE

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

type complex = record

re, im:real

end;

Procedure AddC	(x, у	: complex;	var z	: complex);
Procedure SubC	(x, у	: complex;	var z	: complex);
Procedure MulC	(x, у	: complex;	var z	: complex);
Procedure DivC	(x, у	: complex;	var z	: complex);
const
с: complex =	(re:	0.1; im:	-1);

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

IMPLEMENTATION

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

Procedure AddC; begin

z.re:= x.re + y.re; z. im:= x.im + y. im

end {AddC};

Procedure SubC;

begin

z.re:= x.re - y. re;

z.im:= x.im - y.im

end {SubC};

Procedure MulC;

begin

z.re:= x.re*y.re - x.im*y. im;

z.im:= x.re*у.im + x.im*y.re

end {MulC};

Procedure DivC;

var

zz: real;

begin

zz:= sqr(y.re) + sqr(y.im);

z. re:= (x.re * y.re + x.im * y.im) / zz;

z.im:= (x.re * y.im - x.im * y.re) / zz

end {DivC};

end.

Текст этого модуля следует поместить в файл CMPLX.PAS. Вы можете его откомпилировать, создав TPU-файл, после чего вашей программе станут доступны процедуры из новой библиотеки. Например, в следующей программе осуществляется четыре арифметические операции над парой комплексных чисел.

Uses Cmplx;

var

а, Ь, с: complex;

begin

a.re:= 1; a.im:= 1;

b.re:= 1; b.im:= 2;

AddC(a, b, c);

WriteLn("Сложение: "c.re:5:1, c.im:5:1,"i");

SubC(a, b, c);

WriteLn("Вычитание: "с.re:5:1, с.im:5:1,"i");

MulC(a, b, c);

WriteLn("Умножение: "c.re:5:1, c.im:5:l,"i");

DivC(a, b, c);

WriteLn("Деление: "c.re:5:l, с.im:5:1,"i");

end.

После объявления Uses Cmplx программе стали доступны все объекты, объявленные в интерфейсной части модуля CMPLX. При необходимости можно переопределить любой из этих объектов, как это произошло, например, с объявленной в модуле типизированной константой С. Переопределение объекта означает, что вновь объявленный объект «закрывает» ранее определенный в модуле одноименный объект. Чтобы получить доступ к «закрытому» объекту, нужно воспользоваться составным именем: перед именем объекта поставить имя модуля и точку. Например, оператор

WriteLn(cmplx.c.re:5:l, cmplx.с.im:5:1,"i");

выведет на экран содержимое «закрытой» типизированной константы из предыдущего примера.