1 / 1 / 0
Регистрация: 03.11.2012
Сообщений: 84
1

Напечатать квадрат той из матриц, в которой сумма диагональных элементов - наибольшая

21.04.2015, 10:48. Показов 1207. Ответов 2
Метки нет (Все метки)

Даны две квадратные матрицы. Напечатать квадрат той из них, в которой наибольший след (сумма диагональных элементов).
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.04.2015, 10:48
Ответы с готовыми решениями:

Напечатать квадрат той из двух матриц, в которой наименьший след (сумма диагональных элементов), считая, что такая матрица одна
Даны две квадратные вещественные матрицы шестого порядка. Напечатать квадрат той из них, в которой...

Напечатать квадрат той из матриц, в которой наименьший след
Даны две квадратные вещественные матрицы. Напечатать квадрат той из них, в которой наименьший след...

Напечатать квадрат той из матриц, в которой наименьший след
Даны две квадратные вещественные матрицы. Напечатать квадрат той из них, в которой наименьший след...

Напечатать квадрат той из матриц, в которой меньший след
Дано две квадрадические матрицы 3*3. Напечатать квадрат той из них, в которой меньший след(сума...

2
Почетный модератор
64272 / 47571 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
21.04.2015, 17:45 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
uses crt;
const nmax=5;
type mtr=array[1..nmax,1..nmax] of integer;
procedure vvod(var a:mtr;var n:byte;c:char);
var i,j:byte;
begin
repeat
write('Размер матрицы ',c,' от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
for i:=1 to n do
for j:=1 to n do
a[i,j]:=-3+random(7);
end;
procedure vyvod(a:mtr;n:byte;c:string);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
end;
procedure sled(a:mtr;n:byte;var s:integer;c:char);
var i:byte;
begin
s:=0;
for i:=1 to n do
s:=s+a[i,i];
writeln('След матрицы ',c,'=',s);
end;
procedure umn(a:mtr;n:byte;var b:mtr);
var i,j,k:byte;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  b[i,j]:=0;
  for k:=1 to n do
  b[i,j]:=b[i,j]+a[i,k]*a[k,j];
 end;
end;
var a,b,c:mtr;
    n,m:byte;
    sa,sb:integer;
begin
randomize;
vvod(a,n,'A');
vvod(b,m,'B');
vyvod(a,n,'A');
sled(a,n,sa,'A');
vyvod(b,m,'B');
sled(b,m,sb,'B');
if sa>sb then
 begin
  writeln('След матрицы А больше');
  umn(a,n,c);
  vyvod(c,n,'A^2');
 end
else if sa<sb then
 begin
  writeln('След матрицы B больше');
  umn(b,m,c);
  vyvod(c,m,'B^2');
 end
else writeln('След обеих матриц одинаковый');
end.
0
1 / 1 / 0
Регистрация: 03.11.2012
Сообщений: 84
21.04.2015, 18:57  [ТС] 3
Puporev, спасибо
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.04.2015, 18:57
Помогаю со студенческими работами здесь

Напечатать квадрат той из двух заданных матриц, у которой наименьший след
С++ Даны две вещественные квадратные матрицы 10-го порядка. Напечатать квадрат той из них, в...

Вычслить куб той матрицы, в которой сумма элементов наибольшая
Программа. Даны две квадратные вещественные матрицы 4-го порядка. Вычслить куб той матрицы, в...

Найти номер той строки в массиве сумма элементов которой наибольшая
Помогите решить пожалуйста. Дан массив X(N,M). Найти номер той строки в массиве сумма элементов...

Даны две квадратные матрицы n-го порядка. Напечатать ту из них, в которой наименьший след (сумма диагональных элементов)
Вот пример кода, по нему нужно сделать задание которое я написал в заголовке, как...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru