3 / 3 / 0
Регистрация: 27.06.2012
Сообщений: 165
Записей в блоге: 1
1

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

13.08.2012, 19:15. Показов 2916. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

2
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
13.08.2012, 19:39 2
Лучший ответ Сообщение было отмечено programmistnub как решение

Решение

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
70
71
72
uses crt;
const n=10;
type mtr=array[1..n,1..n] of real;
//создание матриц
procedure Vvod(var a:mtr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=10*random;
end;
//вывод матриц на экран
procedure Vyvod(a:mtr;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]:7:2);
  writeln;
 end;
end;
//вычисление следа матриц
procedure Sled(a:mtr;var s:real);
var i:byte;
begin
s:=0;
for i:=1 to n do
s:=s+a[i,i];
writeln('След=',s:0:2);
writeln;
end;
//возведение матриц в квадрат
procedure Kvd(a:mtr;var b:mtr);
var i,j,k:byte;
begin
for k:=1 to n do
for j:=1 to n do
 begin
  b[k,j]:=0;
  for i:=1 to n do
  b[k,j]:=b[k,j]+a[k,i]*a[i,j];
 end;
end;
var a,b,c:mtr;
    sa,sb:real;
begin
clrscr;
randomize;
Vvod(a);
Vvod(b);
Vyvod(a,'Исходная матрица А:');
Sled(a,sa);
Vyvod(b,'Исходная матрица B:');
Sled(b,sb);
write('Нажмите Enter для продолжения');
readln;
if sa<sb then
 begin
  writeln('След матрицы А меньше');
  Kvd(a,c);
  Vyvod(c,'Матрица C=A^2');
 end
else
 begin
  writeln('След матрицы B меньше');
  Kvd(b,c);
  Vyvod(c,'Матрица C=B^2');
 end;
readln
end.
1
3 / 3 / 0
Регистрация: 27.06.2012
Сообщений: 165
Записей в блоге: 1
13.08.2012, 21:12  [ТС] 3
Благодарю!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.08.2012, 21:12

Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный след
Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный &quot;след' (т.е. сумму...

Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный след
Даны две квадратные матрицы. Напечатать ту из них, которая имеет минимальный &quot;след' (т.е. сумму...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.