Отчёт 3.6
Горщук Алина ЭР-02-21
3. Даны матрицы А (5x5), В (7x7), С(4x4). Вычислить значение выражения Ра + Рв - Рс. где РА (Рв. Рс) — произведение положительных элементов главной диагонали матрицы А (В, C).
Программа с поэлементной обработкой:
имя
|
смысл
|
тип
|
структура
|
Исходные данные
|
X
|
Заданная матрица
|
вещественный
|
Двумерный массив
|
Промежуточные данные
|
flag
|
Флажок, если положительных элементов нет, то flag=0, если есть – flag=1.
|
целый
|
Простая переменная
|
i
|
Счётчик строк
|
целый
|
Простая переменная
|
n
|
Число строк
|
целый
|
Простая переменная
|
m
|
Число столбцов
|
целый
|
Простая переменная
|
Конечные данные
|
P
|
Pa + Pb – Pc искомое выражение
|
вещественный
|
Простая переменная
|
Вызывающий код: Код:
function P=named(X) disp(named(input('A = ')) + named(input('B = ')) - named(input('C = ')))
flag = 0;
P = 1;
[n,m] = size(X);
for i = 1 : n
if X(i,i) > 0
flag = 1;
P = P .* X(i,i);
end
end
if not(flag)
P = 0;
end
A
|
B
|
C
|
Pa+Pb-Pc
|
[1,2,3,4,5; 1,2,3,4,5; 1,2,3,4,5; 1,2,3,4,5; 1,2,3,4,5]
|
[1,2,3,4,5,6,7;1,2,3,4,5,6,7;1,2,3,4,5,6,7;1,2,3,4,5,6,7;1,2,3,4,5,6,7;1,2,3,4,5,6,7;1,2,3,4,5,6,7]
|
[1,2,3,4;1,2,3,4;1,2,3,4;1,2,3,4]
|
5136
|
Программа с подпрограммами:
имя
|
смысл
|
тип
|
структура
|
Исходные данные
|
X
|
Заданная матрица
|
вещественный
|
Двумерный массив
|
Промежуточные данные
|
F
|
Произведение положительных элементов главной диагонали
|
вещественный
|
Простая переменная
|
Конечные данные
|
P
|
Pa + Pb – Pc искомое выражение
|
вещественный
|
Простая переменная
|
Вызывающий код: Код:
function P=named(X) disp(named(input('A = ')) + named(input('B = ')) - named(input('C = ')))
F = diag(X);
F = F(F > 0);
if not(isempty(F))
P = prod(F);
else
P = 0;
end
A
|
B
|
C
|
Pa+Pb-Pc
|
[1,2,3,4,5; 1,2,3,4,5; 1,2,3,4,5; 1,2,3,4,5; 1,2,3,4,5]
|
[1,2,3,4,5,6,7;1,2,3,4,5,6,7;1,2,3,4,5,6,7;1,2,3,4,5,6,7;1,2,3,4,5,6,7;1,2,3,4,5,6,7;1,2,3,4,5,6,7]
|
[1,2,3,4;1,2,3,4;1,2,3,4;1,2,3,4]
|
5136
|
|
Скачать 398.57 Kb.