4.4. Структура программы

В программе используются следующие процедуры, определенные в модуле uselun:

Ввода заданной матрицы

procedure inpm (n,m:integer; var a:mas; st:string);

Входные параметры:

n, m – переменные целого типа, размерности вводимой матрицы;

st – символьная переменная для передачи имени вводимой матрицы;

Выходной параметр:

a – переменная типа вещественный массив размерности n*m для размещения вводимой матрицы.

Вычисления произведения матриц

procedure umn (n,k,m:integer; var a,b,c:mas);

Входные параметры:

n, k, m – переменные целого типа, размерности исходных матриц;

a, b – переменные типа вещественный массив размерности n*k и k*m соответственно для размещения исходных матриц;

Выходной параметр:

c – переменная типа вещественный массив размерности n*m для размещения произведения матриц a*b (матрицы результата).

Вычисления разности матриц

procedure subm (n,m:integer; var a,b,c:mas);

Входные параметры:

n, m – переменные целого типа, размерности исходных матриц;

a, b – переменные типа вещественный массив размерности n*m для размещения исходных матриц;

Выходной параметр:

c – переменная типа вещественный массив размерности n*m для размещения произведения матриц a-b (матрицы результата).

Вывода матрицы

procedure outm (n,m:integer; var a:mas; st:string);

Входные параметры:

n, m – переменные целого типа, размерности вводимой матрицы;

st – символьная переменная для передачи имени вводимой матрицы;

a – переменная типа вещественный массив размерности n*m для размещения выводимой матрицы.

Получения транспонированной матрицы

procedure transp (n,m:integer; var a, at:mas);

Входные параметры:

n, m – переменные целого типа, размерности исходной матрицы;

a, – переменная типа вещественный массив размерности n*m для размещения исходных матриц;

Выходной параметр:

at – переменная типа вещественный массив размерности m*n для размещения транспонированной матрицы a;.

Вычисления обратной матрицы

procedure obmatr(n:integer;var a,b:mas);

Входные параметры:

n – переменная целого типа, размерность обращаемой матрицы;

a – переменная типа вещественный массив размерности n*n для размещения исходной (обращаемой) матрицы.

Выходной параметр:

b – переменная типа вещественный массив размерности n*m для размещения обратной матрицы.

Вычисления суммы матриц

procedure summ (n,m:integer; var a,b,c:mas);

Входные параметры:

n,m – переменные целого типа, размерности исходных матриц;

a, b – переменные типа вещественный массив размерности n*m для размещения исходных матриц;

Выходной параметр:

c – переменная типа вещественный массив размерности n*m для размещения суммы матриц a+b (матрицы результата).

4.5. Инструкция по использованию программы

В программе определены константы nv=5, nu=3, которые задают количество ветвей и количество узлов цепи соответственно. Если потребуется рассчитать цепь с другим числом ветвей и (или) узлов, то следует соответствующим образом изменить значения констант nv, nu.

После запуска программы на выполнение и выдачи приглашений вводятся исходные параметры цепи (с клавиатуры)

• матрица соединений

• вектор сопротивлений ветвей

• вектор э.д.с источников

• вектор токов источников токов.

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