Отчет по практике, работа с "1С:Бухгалтерия 8.2"

_{Структура модулей Паскаля}

_{Всякий  модуль Паскаля имеет  следующую структуру:}

_{Unit <имя_модуля>;}

_{interface <интерфейсная  часть>;}

_{implementation < исполняемая часть  >;}

_begin

_{<инициирующая часть>;}

_{end .}

_{Здесь UNIT – зарезервированное  слово (единица); начинает заголовок модуля;}

_{<имя_модуля> - имя модуля (правильный  идентификатор); INTERFACE – зарезервированное  слово (интерфейс); начинает интерфейсную  часть модуля; IMPLEMENTATION – зарезервированное слово (выполнение); начинает исполняемую часть модуля; BEGIN – зарезервированное слово; начинает инициирующую часть модуля; причем конструкция begin <инициирующая часть> необязательна; END – зарезервированное слово – признак конца модуля.}

_{Таким образом, модуль Паскаля  состоит из заголовка  и трех составных  частей, любая из которых может  быть пустой.}

_{Заголовок модуля Паскаля и  связь модулей  друг с другом}

_{Заголовок модуля Паскаля состоит  из зарезервированного слова unit и следующего за ним имени модуля. Для правильной работы среды Турбо Паскаля и возможности подключения средств, облегчающих разработку больших программ, имя модуля Паскаля должно совпадать с именем дискового файла, в который помещается исходный текст модуля. Если, например, имеем заголовок модуля Паскаля}

_{Unit primer;}

_{то  исходный текст этого  модуля должен размещаться  на диске в файле primer .pas .}

_{Имя модуля Паскаля служит для его связи  с другими модулями и основной программой. Эта связь устанавливается  специальным предложением:}

_{uses<список  модулей>} 

_{Здесь USES – зарезервированное  слово (использует);}

_{<список  модулей> - список  модулей, с которыми  устанавливается  связь; элементы  списка – имена  модулей через  запятую.} 

_{Если  в Паскале модули используются, то предложение uses <список модулей> должно стоять сразу после заголовка программы, т.е. должно открывать раздел описаний основной программы. В модулях Паскаля могут использоваться другие модули. В модулях предложение uses <список модулей> может стоять сразу после слова interface или сразу после слова implementation . Допускается и два предложения uses , т.е. оно может стоять и там, и там.}

_{Интерфейсная  часть}

_{Интерфейсная  часть открывается  зарезервированным  словом INTERFACE . В этой части содержатся объявления всех глобальных объектов модуля (типов, констант, переменных и подпрограмм), которые должны быть доступны основной программе и (или) другим модулям Паскаля. При объявлении глобальных подпрограмм в интерфейсной части указывается только их заголовок, например:}

_{Пример  фрагмента программы}

_{Unit complexn;}

_{Interface Type Complex= record}

   _{Re, im: real;}

_End;

_{Procedure AddC(x,y: complex, var z: complex);}

_{Procedure MulC (x,y: complex, var z: complex);}

 

_{Если теперь в  основной программе  написать предложение}

_{Uses complexn;}

 

 

_{то в программе станут доступными тип cmplex и две процедуры – AddC и MulC из модуля complexn .}

_{Отметим, что объявление подпрограмм  в интерфейсной части  автоматически сопровождается их компиляцией с  использованием дальней  модели памяти. Таким  образом, обеспечивается доступ к подпрограммам из основной программы и других модулей Паскаля.}

_{Следует учесть, что все константы  и переменные, объявленные  в интерфейсной части  модуля Паскаля, равно  как и глобальные константы и переменные основной программы, помещаются компилятором Турбо Паскаля в общий сегмент данных (максимальная длина сегмента 65536 байт).}

_{Порядок появления  различных разделов объявлений и их количество может быть произвольным. Если в интерфейсной части объявляются  внешние подпрограммы или подпрограммы в машинных кодах, их тела (т.е. зарезервированное слово EXTERNAL , в первом случае, и машинные коды вместе со словом INLINE – во втором) должны следовать сразу за их заголовками в исполняемой части модуля (не в интерфейсной!). В интерфейсной части модулей Паскаля нельзя использовать опережающее описание.}

_{Исполняемая часть  модуля Паскаля}

_{Исполняемая часть  модуля Паскаля начинается зарезервированным  словом IMPLEMENTATION и  содержит описания подпрограмм, объявленных в  интерфейсной части. В ней могут  объявляться локальные для модуля объекты – вспомогательные типы, константы, переменные и блоки, а также метки.}

_{Описанию подпрограммы, объявленной в  интерфейсной части  модуля Паскаля, в  исполняемой части  должен предшествовать заголовок, в котором  можно опустить список формальных параметров и тип результата для функции, так как они уже описаны в интерфейсной части. Но если заголовок подпрограммы приводится в полном виде, т.е. со списком параметров и объявлением типа результата для функции, то он должен полностью совпадать с заголовком подпрограммы в интерфейсной части, например:}

_{Пример  модуля Паскаля} 

_{Unit complexn;}

_{{--------------------------------}}

_Interface

_Type

_{Complex= record}

   _{Re, im: real;}

_End;

_{Procedure AddC(x,y: complex, var z: complex);}

_{{---------------------------------}}

_{Implementation}

   _{Procedure AddC;}

      _{z.re:= x.re + y.re;}

      _{z.im:= x.im + y.im;}

   _end;

_{end .}

 

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

_{Инициирующая  часть завершает  модуль Паскаля. Она  может отсутствовать  вместе с начинающим ее словом BEGIN или быть пустой – тогда вслед за BEGIN сразу следует признак конца модуля.}

_{В инициирующей части размещаются  исполняемые операторы, содержащие некоторый  фрагмент программы. Эти операторы  исполняются до передачи управления основной программе и обычно используются для подготовки ее работы. Например, в инициирующей части могут инициироваться переменные, открываться файлы, устанавливаться связи с другими компьютерами и т.п.:}

_{Пример  модуля Паскаля} 

_{Unit fileText;}

_{{-------------------------------}}

_Interface

   _{Procedure print(s: string);}

_{{-------------------------------}}

_{implementation}

_{var f: text;}

_const

   _{name= ‘output.txt’;} 

_{procedure print;}

_begin

   _{writeln(f, s)}

_{end ;}

_{{---------------------------------}}

_{{начало инициирующей части}}

_begin

   _{assign(f, name);}

   _{rewrite ( f );}

_{{конец  инициирующей части}} 

_{end .}

_{Компиляция  модулей Паскаля}

_{В среде  Турбо Паскаль  имеются средства, управляющие способом компиляции модулей  и облегчающие  разработку больших  программ. Определены три режима компиляции: COMPILE , MAKE , BUILD. Режимы отличаются способом связи компилируемого модуля или основной программы с другими модулями, объявленными в предложении USES .}

_{При компиляции модуля или  основной программы  в режиме COMPILE все, упоминаемые в  предложении USES модули, должны быть предварительно откомпилированы, и результаты компиляции должны быть помещены в одноименные файлы с расширением TPU (от англ. Turbo Pascal Unit). Файл с расширением TPU создается автоматически при компиляции модуля Паскаля.}

_{В режиме MAKE компилятор проверяет наличие TPU -файлов для каждого объявленного модуля. Если какой-либо файл не найден, система ищет одноименный файл с расширением PAS , т.е. файл с исходным текстом модуля Паскаля. Если таковой файл найден, система приступает к его компиляции. Кроме того, в этом режиме система следит за возможными изменениями исходного текста любого используемого модуля. Если в PAS -файл внесены изменения, то независимо от того, есть ли в каталоге соответствующий TPU -файл или нет, система откомпилирует его перед компиляцией основной программы. Более того, если изменения внесены в интерфейсную часть, то будут откомпилированы все другие модули, обращающиеся к нему. Режим MAKE существенно облегчает процесс разработки крупных программ с множеством модулей Паскаля: программист избавляется от необходимости следить за соответствием TPU -файлов их исходному тексту, т.к. система делает это автоматически.}

_{В режиме BUILD существующие TPU -файлы  игнорируются, система  пытается отыскать и  откомпилировать  соответствующие PAS - файлы для каждого модуля Паскаля. После компиляции можно быть уверенным, что учтены все сделанные в текстах модулей Паскаля исправления и изменения.}

_{Подключение модулей Паскаля  к основной программе  и их компиляция происходит в порядке их объявления в предложении USES . При переходе к очередному модулю Паскаля система предварительно ищет все модули, на которые он ссылается. Ссылки модулей Паскаля друг на друга могут образовывать древовидную структуру любой сложности, однако запрещается явное или косвенное обращение модуля к самому себе. Например, недопустимы следующие объявления:}

_{Пример  ошибок модуля Паскаля} 

_{Unit A; Unit B;}

_{interface interface}

_{uses B;Uses A;}

_{……. ……}

_{implementation implementation}

_{…….. ……}

_{end. end.}

 

_{Это ограничение можно обойти, если «спрятать» предложение USES в исполняемые части зависимых модулей:}

_{Пример  исправленных ошибок модуля Паскаля} 

_{Unit A; Unit B;}

_{interface interface}

_{……. ……}

_{implementation implementation}

_{uses B;Uses A;}

_{…….. ……}

_{end. end.}

 

_{Дело  в том, что Турбо Паскаль разрешает ссылки на частично откомпилированные модули, что приблизительно соответствует опережающему описанию подпрограммы. Если интерфейсные части независимы (это обязательное условие!), Турбо Паскаль сможет идентифицировать все глобальные объекты в каждом модуле, после чего откомпилирует тела модулей обычным способом.}

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

_{Пример  модуля реализующий  сложение и вычитание  комплексных чисел} 

_{Unit complexn;}

_Interface

   _type

   _{complex= record}

   _{re, im: real;}

   _end;

_{procedure AddC (x, y: complex; var z: complex);}

_{procedure SubC (x, y: complex; var z: complex);}

_{const c: 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}}

_{end .}

_{Текст этого модуля следует  поместить в файл complexn . pas . Вы можете его откомпилировать, создав TPU -файл.}

_{В следующей  программе осуществляются арифметические операции над комплексными числами:}

_{Арифметические  операции над комплексными числами} 

_{Program primer ;}

_{Uses complexn;}

_Var

   _{a,b,c: coplex;}

_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 (‘  вычитание :’, c.re: 5:1, c.im: 5:1, ‘i’);}

_End.

 

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

_{Writeln (complexn.c.re: 5: 1, complexn.c.im: 5: 1);}

_{Этот  оператор выведет  на экран содержимое «закрытой» типизированной константы, объявленной  в модуле Паскаля  из предыдущего примера.}

_{Стандартные модули Паскаля}

_{В Турбо Паскале имеется 8 стандартных модулей, в которых содержится множество различных типов, констант, процедур и функций. Этими модулями являются SYSTEM, DOS, CRT, GRAPH, OVERLAY, TURBO3, GRAPH3. Модули Паскаля GRAPH , TURBO 3, GRAPH 3 выделены в отдельные TPU -файлы, а остальные входят в состав библиотечного файла TURBO . TPL . Лишь один модуль Паскаля SYSTEM подключается к любой программе автоматически, все остальные становятся доступны только после указания их имен в списке подключаемых модулей.}

_{Модуль  Паскаля SYSTEM. В него входят все процедуры и функции стандартного Паскаля, а также встроенные процедуры и функции, которые не вошли в другие стандартные модули (например, INC , DEC , GETDIR и т.п.). Модуль Паскаля SYSTEM подключается к любой программе независимо от того, объявлен ли он в предложении USES или нет, поэтому его глобальные константы, переменные, процедуры и функции считаются встроенными в  Турбо Паскаль.}