Afanasjeva

{high–возвращает верхний предел диапозона значений аргумента}

for i:=0 to high(a) do begin

m:=a[i];

k:=i;

for j:=i+1 to high(a) do if a[j]>m then begin

m:=a[j];

k:=j;

end;

a[k]:=a[i];

a[i]:=m;

end;

end;{sort}

{****** MAIN **************}

begin

writeln(' Пример : расположить по убыванию элементы ');

writeln(' Исходный массив: '); randomize;

for i:=1 to 4 do begin

for j:=1 to 4 do begin

c[j,i]:=random(100); write(c[j,i],' ');

end;

writeln;

end;

for j:=1 to 4 do begin

{move–копирует заданное количество последоватепльных байтов из исходной области памяти в назначенную область}

move(c[j],s,8);

{вызов процедуры,где s типа массив фактический параметр} sort(s);

move(s,c[j],8);

end;

writeln(' Измененный массив: '); for j:=1 to 4 do

171

begin

for i:=1 to 4 do write(c[i,j],' ');

writeln;

end;

end.

Задания для самостоятельного выполнения

А. С помощью процедур сортировки одномерного массива (параметр – одномерный массив) реализовать следующие задачи.

А.1. Расположить по возрастанию элементы каждой строки двумерного массива.

А.2. Расположить по убыванию элементы каждого столбца двумерного массива.

А.3. Расположить четные элементы двумерного массива в порядке убывания их значений.

А.4. С помощью процедуры сортировки в каждом столбце двумерного массива определить три максимальных элемента.

А.5. Расположить элементы в первой и последней строке по возрастанию, а в остальных – по убыванию значений.

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

В.1. Решить уравнение линейной алгебры вида: (A*X –beta2* Y )* B2 + Z, где

A, B – матрицы, X, Y, Z – вектора, beta - константа.

В.2. Решить уравнение линейной алгебры вида: X2* (AT – B)T * Y –Z, где

A, B – матрицы, X, Y, Z – вектора, T – операция транспонирования. В.3. Решить уравнение линейной алгебры вида:

Y* ( alfa* A2 –B2)2 –X , где

A, B – матрицы, X, Y – вектора, alfa – скаляр. В.4. Решить уравнение линейной алгебры вида: ( X* AT + 1/(alfa+beta)*Y)*BT – Z, где

A, B – матрицы, X, Y, Z – вектора, alfa, beta – скаляры.

В.5. Решить уравнение линейной алгебры вида: X * (alfa / beta *A2)T+BT* Y, где

A, B – матрицы, X, Y – вектора, alfa, beta – cкаляры.

С. Все необходимые действия по определению минимальных, максимальных значений, суммы, произведения и количества, а также

172

формирования других значений в программах реализовать с использованием подпрограмм–функций с параметрами.

С.1. В квадратной матрице размером 5х5, заполненной случайными целыми числами из диапазона (–30,+30) в секторах 1 и 2 найти соответственно максимальный и минимальный элементы. Сектор включает диагональные элементы.

/\

/3 \

С.2. В квадратной матрице размером 5х5, заполненной случайными целыми числами из диапазона (–35,+35) в секторах 2 и 3 найти соответственно максимальный отрицательный и минимальный положительный элементы. Сектор включает диагональные элементы.

С.3. В квадратной матрице размером 5х5, заполненной случайными целыми числами из диапазона (–40,+40) в секторах 3 и 4 найти соответственно максимальный отрицательный и минимальный положительный элементы. Сектор включает диагональные элементы.

С.4. В квадратной матрице размером 5х5, заполненной случайными целыми числами из диапазона (–45,+45) в секторах 1 и 3 найти количество положительных элементов. Сектор включает диагональные элементы.

173

Контрольные вопросы

1.Для чего используют подпрограммы?

2.Чем отличаются описания процедур от описания функций?

3.Где задаются формальные и фактические параметры?

4.Когда применяются параметры-значения и параметры-переменные?

5.Глобальные и локальные объекты.

6.Что передается при вызове процедуры?

7.Переменные, описанные в основной программе, являются: глобальными, внешними, автоматическими, локальными?

8.Переменные, описанные внутри процедур, являются:

локальными, автоматическими, глобальными, внешними?

9. Функции выхода из главной программы: exit, reset, assign, read.

174

10. МОДУЛИ

Модуль – это автономно компилируемая программная единица, содержащая любые описания. Иногда под модулем понимают библиотеки подпрограмм, которые могут быть использованы программами. Если у вас возникают проблемы с памятью при выполнении или компиляции программы, разбейте вашу программу на модули. В Turbo Pascal различают стандартные (CRT, GRAPH) и пользовательские модули.

10.1. Разработка пользовательских модулей

Рассмотрим структуру модуля.

unit <идентификатор>; { Имя модуля }

{ интерфейсная часть - открытая часть}

175

Заголовок модуля специфицирует имя модуля, которое вы будете использовать для обращения к нему в разделе USES вашей программы.

Винтерфейсной части описываются константы, типы, переменные, процедуры и функции доступные пользователю данного модуля.

Винтерфейсной части записаны только заголовки процедур и функций. Их тела расположены в разделе реализации.

Реализационная часть содержит тела всех доступных процедур и функций.

Также в ней описаны скрытые константы, типы, переменные, процедуры и функции не доступные пользователю данного модуля.

Инициализационная часть является последним разделом модуля. Она состоит либо из зарезервированного слова END, не имеющего реализационного кода, или из последовательности операторов, выполняющихся при инициализации модуля.

Пример 10.1. Модуль, содержащий одну процедуру сортировки элементов массива, стоящих на четных местах.

unit lov_1m; interface uses crt;

type arr=array[1..10] of integer; procedure mas(var a:arr);

implementation

Procedure mas; {процедура сортировки mas методом парных перестановок}

var s,q,i,j,k,f,m:integer;

Begin repeat s:=0;

For i:=2 to 8 do

If i mod 2=0 then {выбор элементов, стоящих на четных

местах}

If a[i]>a[i+2] then begin {сортировка элементов по возрастанию}

176

j:=a[i];

a[i]:=a[i+2];

a[i+2]:=j;

s:=s+1;

end;

until s=0; end;{mas} End.

Программа, использующая вышеописанный модуль LOV_1.PAS.

myarray:arr;{тип arr описан в модуле lov_1m} i,k,q,j,s:integer;

Begin clrscr;

randomize;

Write(' Исходная последовательность: '); For i:=1 to 10 do

begin

myarray[i]:=random(55); {заполнение массива случайными

элементами}

Write(myarray[i]:2,' '); end;

Writeln;

Write(' Новая последовательность: ');

mas(myarray); {обращение к процедуре сортировки mas модуля

lov_1m}

For i:=1 to 10 do Write(myarray[i]:2,' '); End.

Пример 10.2. Модуль, содержащий коонстанты и 3 процедуры.

177

const fam2=' После просмотра результатов программы нажмите

if g[i,f]<m then begin m:=g[i,f]; k:=f;

end;

g[i,k]:=g[i,j];

g[i,j]:=m;

end;

end;{mas}

end.

Программа, использующая модуль LOV_3.PAS.

178

type arr=array[1..5,1..5] of integer; f:text;

procedure mas(var a:arr);

implementation

Procedure mas; {процедура поиска минимального и максимального элемента}

var i,j,Min,Max:integer;

begin {поиск max. и min. элементов} Max:=A[1,1];

Min:=A[1,1]; For i:=1 to 5 do

For j:=1 to 5 do begin

If A[I,j]>=Max

then Max:=A[I,j]; If A[i,j]<=Min

then Min:=A[i,j];

end;

end;

begin {раздел инициализации} assign(f,'love.dat');

rewrite(f);

End.

Программа, использующая модуль LOV_4M.

Program rifle; {программа использует модуль с разделом инициализации}

uses lov_4m; {подключение модуля lov_4m} var

A : arr; {массив описан в модуле lov_4m} B :array[1..5,1..5] of integer;

I,j:byte;

Z,P : integer; Max,Min:real;

Begin Randomize; Writeln;

Writeln(' Задача. Заменить все отрицательные элементы ' ); Writeln(' матрицы А(5,5) ');

180