Система программирования Turbo Pascal



                  


После объявления Uses Cmplx программе



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');
выведет на экран содержимое «закрытой» типизированной константы из предыдущего примера.

Содержание  Назад  Вперед