Биохимия спиртового брожения: Основу технологии получения пива составляет спиртовое брожение, - при котором сахар превращается...
Папиллярные узоры пальцев рук - маркер спортивных способностей: дерматоглифические признаки формируются на 3-5 месяце беременности, не изменяются в течение жизни...
Топ:
Теоретическая значимость работы: Описание теоретической значимости (ценности) результатов исследования должно присутствовать во введении...
Устройство и оснащение процедурного кабинета: Решающая роль в обеспечении правильного лечения пациентов отводится процедурной медсестре...
Интересное:
Влияние предпринимательской среды на эффективное функционирование предприятия: Предпринимательская среда – это совокупность внешних и внутренних факторов, оказывающих влияние на функционирование фирмы...
Финансовый рынок и его значение в управлении денежными потоками на современном этапе: любому предприятию для расширения производства и увеличения прибыли нужны...
Средства для ингаляционного наркоза: Наркоз наступает в результате вдыхания (ингаляции) средств, которое осуществляют или с помощью маски...
Дисциплины:
2017-12-21 | 184 |
5.00
из
|
Заказать работу |
|
|
5.0 -4.1 9.2 -1.0 -9.0 3.0 4.5
7.3 3.6 8.0 2.2 5.2 -3.8 2.0
-4.7 7.0 6.3 5.2 -4.1 6.0 7.8
Результаты
Массив Z
z[1]= -4.1
z[2]= -1.0
z[3]= -4.7
z[4]= -9.0
z[5]= -3.8
z[6]= -4.1
Модули в языке Pascal
Недостатком рассмотренных ранее процедур и функций является необходимость включения их в текст программы.
Для часто используемых численных методов разрабатываются подпрограммы (процедуры и функции), которые хранятся в библиотеках, называемых в языке Pascal модулями [Л1, стр. 65-70].
Каждый модуль должен иметь уникальное имя, используя которое в программе пользователя можно обращаться к библиотеке (модулю).
Заголовок в программной единице, называемой модулем, имеет вид:
unit имя-модуля;
Например, unit unitmatr;
Следует помнить, что имя файла, в котором записан модуль на языке Pascal, должно совпадать с именем модуля, указанного в заголовке модуля, т.е. для данного примера оно должно иметь вид unitmatr.pas.
После компиляции такой модуль получает имя unitmatr.tpu ихранится на диске.
Для подключения модуля к программе пользователя после заголовка программы нужно записать фразу:
uses имя-модуля1, имя-модуля2, …, имя-модуляN;
Пример 25. Пусть имеется модуль с именем Unitmatr, содержащий процедурыввода матрицы, вывода матрицы, вычисления суммы двух матриц, транспонирования матрицы.
Рассмотрим пример рабочей программы, использующей процедуры этого модуля и стандартного модуля Crt.
Пример модуля (библиотеки) с именем Unitmatr
unit unitmatr;
interface
const n=10;
type tmtr=array[1..n,1..n] of real;
procedure inmtr(var x: tmtr; k: integer);
procedure outmtr(x: tmtr; k: integer);
procedure summtr(x1,x2: tmtr; var x3: tmtr; k: integer);
procedure trmtr(x1: tmtr; var x2: tmtr; k: integer);
implementation
var i, j: integer;
procedure inmtr(var x: tmtr; k: integer); {Процедура ввода матрицы}
begin
writeln(k,'x',k);
for i:=1 to k do
for j:=1 to k do read(x[i,j]);
|
end;
procedure outmtr(x: tmtr; k: integer); {Процедура вывода матрицы}
begin
writeln('Матрица');
for i:=1 to k do
begin
for j:=1 to k do
write(x[i,j]:5:1,' ');
writeln;
end;
end;
procedure summtr(x1,x2: tmtr; var x3: tmtr; k: integer); { Процедура, вычисляющая сумму двух матриц}
begin
for i:=1 to k do
begin
for j:=1 to k do
x3[i,j]:=x1[i,j]+x2[i,j];
end;
end;
procedure trmtr(x1:tmtr;var x2:tmtr;k:integer); { Процедура, выполняющая транспонирование матрицы }
begin
for i:=1 to k do
for j:=1 to k do
x2[i,j]:=x1[j,i];
end;
end.
Пример рабочей программы (программы пользователя)
program usmatr;
uses unitmatr, crt; {Обращение к библиотекам (модулям)}
var d, a, b, c: tmtr;
m: integer;
begin
clrscr; { Обращение к процедуре очистки экрана, содержащейся в
модуле crt }
writeln(‘Ввести размерность матрицы m ’);
readln(m);
inmtr(a,m); {Обращение к процедуре ввода матрицы а(m,m) }
inmtr(b,m); {Обращение к процедуре ввода матрицы b(m,m) }
trmtr(b,c,m); { Обращение к процедуре транспонирования матрицы
b(m,m) и записи результата в матрицу c(m,m) }
outmtr(c,m); { Обращение к процедуре вывода матрицы c(m,m) }
summtr(a,b,d,m); { Обращение к процедуре вычисления суммы двух матриц
a(m,m) и b(m,m) и записи результата в матрицу d(m,m) }
outmtr(d,m); { Обращение к процедуре вывода матрицы d(m,m) }
readln;
end.
Исходные данные Результаты
m=4
Литература
|
|
Опора деревянной одностоечной и способы укрепление угловых опор: Опоры ВЛ - конструкции, предназначенные для поддерживания проводов на необходимой высоте над землей, водой...
Кормораздатчик мобильный электрифицированный: схема и процесс работы устройства...
Биохимия спиртового брожения: Основу технологии получения пива составляет спиртовое брожение, - при котором сахар превращается...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!