Определить сумму минимальных элементов главных диагоналей матриц

@Nesster · Регистрация: 05.06.2020

Студворк — интернет-сервис помощи студентам

Ребят есть проблема, я не много запутался.
Сама задача заключается в том, что нужно найти три матрицы.
Составить функцию нахождения минимального элемента главной диагонали произвольной квадратной матрицы. Используя указанную функцию, определить сумму минимальных элементов главных диагоналей матриц D=P+K и L=P^T(транспонентная) - KP, где P,K - исходные матрицы размером nxn. Элементы матрицы K задаются случайным образом, а элементы матрицы P вычисляются по формуле:

Pij=1+i^2/2+j^2

Вот, просто я пытался рассчитать формулу, но как бы я не понимаю, обычно идёт 1x1 или ещё как, тут же nxn, ну то что не определенное число, это понятно, ну ещё туплю с транспонентным P, ну как я понимаю это когда столбец на строку а строка на столбец чтоль вроде умножается. В итоге я запутался и хер знает. Смотрел по примерам некоторым, я ещё больше в дебри ушёл, может просто кто то сможет объяснить или показать. Но я реально не понимаю...

Добавлено через 5 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program ;
const r=10;
var a:array[1..r, 1..r] of shortint;
n,i,j:byte;
s:shortint;
begin
randomize;
n:= random(8) + 3;
writeln('Заданная матрица, порядкa ',n,':');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[ i, j ]:=random(21)-10;
write(a[ i, j ]:4);
end;
writeln
end;
s := 0;
for i:= 1 to n do
s:=s + a[ i, i ];
writeln('Сумма элементов главной диагонали: ',s);
end.

Как бы это вот так или не вот так, ну фиг знает.

@bormant · 05.06.2020, 16:40

P^T -- транспонированная матрица, строки заменены столбцами исходной. На практике достаточно поменять индексы i,j местами.
KP -- произведение матриц, элемент (i,j) равен скалярному произведению i-й строки матрицы K на j-й столбец матрицы P.
Суммы/разности -- поэлементные.
Матрица P:

Pascal
1
2
  for i:=1 to n do for j:=1 to n do
    p[i,j]:=1+Sqr(i)/2+Sqr(j);

Хозяйке на заметку: i²/2 -- действительное число.

Добавлено через 7 минут

Сообщение от Nesster

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

Подчёркнутое очень сильно зависит от диалекта Паскаля.
Если речь о произвольном константном размере, то функция могла бы быть такой:

Pascal
1
2
3
4
5
6
7
8
9
10
const nMax=10;
type
  TMatrix = array [1..nMax,1..nMax] of Real;
 
function MinDM(const m: TMatrix; n: Integer): Real;
var i: Integer; r: Real;
begin
  r:=m[1,1]; for i:=2 to n do if r>m[i,j] then r:=m[i,j];
  MinDM:=r;
end;

Добавлено через 14 минут

Матрицы D и L считаются так:

может попробовать самому еще разок?

Pascal
1
2
3
4
5
6
7
  for i:=1 to n do for j:=1 to n do
    D[i,j]:=P[i,j]+K[i,j];
  
  for i:=1 to n do for j:=1 to n do begin
    s:=0; for q:=1 to n do s:=s+K[i,q]*P[q,j];
    L[i,j]:=P[j,i]-s;
  end;

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .