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

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

09.11.2012, 08:24. Показов 1933. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
Почетный модератор
64071 / 47482 / 32733
Регистрация: 18.05.2008
Сообщений: 115,185
09.11.2012, 10:17 2
Лучший ответ Сообщение было отмечено lisagarifullina как решение

Решение

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
uses crt;
const n=4;
type mtr=array[1..n,1..n] of real;
procedure matrix(var a:mtr;c:char);
var i,j:byte;
begin
writeln('Матрица ',c);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:6:2);
   end;
  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];
end;
procedure kvadrat(a:mtr;var b:mtr;c:string);
var i,j,k:byte;
begin
writeln('Матрица ',c);
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[j,k];
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(b[i,j]:7:2);
  writeln;
 end;
end;
var a,b,c:mtr;
    s1,s2:real;
begin
matrix(a,'A');
sled(a,s1);
writeln('След=',s1:0:2);
matrix(b,'B');
sled(b,s2);
writeln('След=',s2:0:2);
if s1>s2 then
 begin
  writeln('След больше у матрицы A');
  kvadrat(a,c,'C=A^2');
 end
else
 begin
  writeln('След больше у матрицы B');
  kvadrat(b,c,'C=B^2');
 end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.11.2012, 10:17

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

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

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

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


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

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

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