Модульное программирование

и, возможно
некоторые исполняемые операторы в инициирующей части.

интерфейсная часть

UNIT <ИмяМодуля>; {файл MODUL1.PAS}
INTERFACE
<интерфейсная часть> {раздел объявлений}
IMPLEMENTATION
<исполняемая часть> {описание подпрограмм}
BEGIN
<инициирующая часть> {фрагмент программы}
END. {признак конца модуля}

Раздел объявлений INTERFACE
Uses после INTERFACE

_________

{Начало раздела объявлений}
Uses

Имя1, Имя2, ..; {Используемые при объявлениях модули}
Const {Блок объявления библиотечных констант}
Type {Блок объявления библиотечных типов }
Var {Блок объявления библиотечных переменных}
Заголовки библиотечных процедур и (или) функций

Раздел реализации IMPLEMENTATION
(Forward)
IMPLEMENTATION
Uses Имя101, Имя102, ..; {Используемые при реализации модули}
Const {Блок объявления внутренних констант}
Type {Блок объявления внутренних типов }
Var {Блок объявления внутренних переменных}
Label {Блок описания меток блока инициализации }
Описание библиотечных процедур и (или) функций
Раздел инициализации
Begin
Блок инициализации модуля
End.
_______

GRAPH;
подключает три модуля.

Пример 1. Для задания лаб.раб. 14_1 (по

лр1) программа с дополнительным модулем (для вычисления суммы чисел) имеет вид:
Program mod14a; {модуль аа подключается} UNIT aa;
uses aa;
var
a,b,s:integer;
begin
writeln('Введи 2 целых числа');
read(a,b);
writeln('s=',ma(a,b));
writeln('s=',ma(a,а));
readln;
end.
_______

INTERFACE
function ma(x,y:integer):integer;
IMPLEMENTATION
function ma(x,y:integer):integer;
begin
ma:=x+y;
end;
begin
END.

USES

.TPU
В режиме MAKE TPU-файлов .PAS
и если в PAS-файл внесены изменения, то перекомпиляция
В режиме BUILD TPU-файлы игнорируются, отыскивается PAS-файл

Достоинства применения модулей.
1) Построение собственных библиотек
2) Возможность создавать программы практически любого размера. (Один модуль - не более 64К, сумма ограничена емкостью ОЗУ ПК).




_______

скрыть в модуле.
Program mod17_; { подключается модуль rr }

uses crt,rrr;
var a,b:mass;
i,s:integer;
begin
clrscr;
writeln('a');
for i:=1 to 8 do
read(a[i]);
writeln('b'); for i:=1 to 8 do
read(b[i]);
s:=maxim(a)+maxim(b);
writeln('Sum=',s);
readln;
end.


Дома: для лаб.раб.14_1(по лр1 см.пр.2),
для 14_2 и 14_3 в 8_3, 9_2 скрыть
подпрограммы в модулях
_____________________

Unit rrr;
INTERFACE
type mass=array[1..8] of integer;
function maxim(d:mass):integer;
IMPLEMENTATION
function maxim(d:mass):integer;
var mx,i:integer;
begin {MaxLongInt=2147483647}
mx:=-MaxInt; {MaxInt=32767}
for i:=1 to 8 do
if mxmaxim:=mx;
end;
BEGIN {можно опустить}
END.

автоматически);
ADDR(x):pointer – возвращает адрес заданного объекта
ChDir(S: string)

Устанавливает текущий каталог
DOS позволяет открыть доступ к средствам дисковой операционной системы MSDOS;
GetDate – возвращает текущую дату
GetTime - возвращает текущее время
SetDatе - устанавливает текущую дату
SetTime – устанавливает текущее время
SetFTime – устанавливает время и дату последнего обновления
DiskFree - возвращает число свободных байт на указанном диске
DiskSize - возвращает число полный объем указанного диске в байтах
Exec(Name;PathStr, CmdLine:string) - выполняет заданную программу Name с указанной командной строкой CmdLine
PRINTER содержит переменную lst;
OVERLAY для организации оверлейных программ;
CRT работы с клавиатурой и дисплеем;
Graph графические процедуры и функции;
Тurbo3 и Graph3 для связи с программами и графикой ТР 7.0 _

функции:
StrComp(S1, S2:Pchar ):integer - сравнение двух строк;
StrIComp(S1 , S2:Pchar ):integer

- сравнение 2-х строк без различия между прописной и строчной латинскими буквами;
StrLComp(s1,s2:Pchar; MaxLen:word): Pchar - сравнение заданного числа символов 2-х строк;
StrLower(S:Pchar): Pchar - преобразование в строке прописных латинских букв в строчные;
StrNew(S:Pchar): Pchar размещение строки в динамической области. Возвращает указатель на строку;
StrDispose(Str: PChar); удаляет динамич. Строку из кучи
_______

Для реализации операций над ASCIIZ— строками в язык введен новый тип PChar, определяемый как указатель на символ PChar =^Char;

Для реализации операций над ASCIIZ— строками в язык введен новый тип PChar, определяемый как указатель на символ PChar =^Char;

S: String) - процедура преобразования строки S в ASCIIZ -

строку D;
Объединяет строки. Function StrCat(D, S: PChar): PChar;
Function StrCopy (D, S: PChar) : PChar; Копирует строку S в строку D и возвращает указатель на D
и др. См. Фаронов В.В. Турбо Паскаль 7.0.
WinDos содержит :
Процедуры и функции управления вычислительным процессом
Intr(IntNo:byte; var Regs:TRegisters) - программное прерывание
GetArgStr - получение параметра командной строки,
а также
2) Процедуры и функции работы с каталогами;.
3) Процедуры и функции работы с файлами и дисками;
4) Процедуры и функции работы с датой и временем;
5) Разные.
________

Proc1=Procedure(a,b,c:real;var d:real);

Proc2=Procedure(var a,b:byte);
Proc3=Procedure;
Func1=Function:string;
Func2=Function(s:string):real;
VAR
p:proc1;
f1:func2;
директива FAR


_____

Begin
. . .
end;

Procedure FF(n:byte;F:Func);
Var ...;
Begin
. . .
end;
Begin
. . .
FF(1,F1);...FF(5,F1);
End.
Пр. FUNCTION SINUS (x:real):real;
FAR;
Begin
SINUS:=sin(x)
end;

______

begin

fe:=n*x1+t*y1
End;
Function sim1(var f:fun;x,y,n,t:real):real;
begin
sim1:=f(x,y,n,t)*x+f(x,y,n,t)/y
end;
function func(fe:fun;t,n:real);
var x1,y1:real;
begin
x1:=1; y1:=2;
func:=2*sim1(fe,x1,y1,t,n)
end;
begin
read(x,y);
writeln(‘t=’,func(fe,x,y):8:3)
End.
________

Результаты:
3
4
t=33.00
11
9
t=87
50
30
t=330.00