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

Структура модуля:

UNIT <ИмяМодуля>;

INTERFACE

<интерфейсная часть> {раздел описаний}

IMPLEMENTATION

<исполняемая часть> {описания подпрограмм}

BEGIN

<инициирующая часть> {фрагмент программы}

END. признак конца модуля

Пример. Найти соотношение между максимальными элементами для массивов А и В.

Выделим вычисление наибольшего элемента в подпрограмму, которую вынесем в отдельный модуль.

Program s_mod; {Главная программа}

uses crt,r_pos; {подключается модуль R_pos }

var

a, b: mass;

i, s: integer;

begin

clrscr;

writeln('Введи массив А из 8 чисел типа integer');

for i:=1 to 8 do

read(a[i]);

writeln('Введи массив В из 8 чисел типа integer');

for i:=1 to 8 do

read(b[i]);

write('Соотношение =');

writeln('maxA/maxB'=MAX(a)/ MAX(b):6:3);

readln;

end.

UNIT r_pos; {Подключаемый модуль с именем R_pos.pas}

INTERFACE

type

mass=array[1..8] of integer;

function max(d:mass):integer;

IMPLEMENTATION

function min(d:mass):integer;

var mx,i:integer;

begin

mx:=d[1];

for i:=2 to 8 do

if mx<d[i] then mx:= d[i];

max:=mx;

write(mx,':');

end;

END.

Задание (программы 14_1 и 14_2)

Для задач 8_3 и 9_2 разработать программы, скрыв подпрограммы в отдельном файле (модуле).

Лабораторная работа 15