Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
Little_Sun
0 / 0 / 0
Регистрация: 05.01.2010
Сообщений: 20
1

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

05.01.2010, 13:36. Просмотров 1082. Ответов 4
Метки нет (Все метки)

Заранее спасибо!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.01.2010, 13:36
Ответы с готовыми решениями:

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

Даны две целые квадратные матрицы C и T порядка n
Помогите плиз, очень надо сдать лабу чтобы закрыть сетку, а я не понимаю...

Даны 2 матрицы размером m*n, напечатать ту из них, где больше нечетных чисел меньше 100.
Нужно написать такую программу: Даны 2 матрицы размером m*n, напечатать ту из...

Даны 2 квадратные матрицы
Даны 2 квадратные матрицы с челыми элементами 3-го порядка A и B. Вычислить:...

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

4
Snoopy
1912 / 1071 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
05.01.2010, 13:45 2
что значит след?
0
Puporev
Модератор
55027 / 42315 / 29221
Регистрация: 18.05.2008
Сообщений: 99,999
05.01.2010, 13:51 3
Snoopy, След это сумма элементов главной диагонали.

Добавлено через 1 минуту
Вот для трех матриц, лень переделывать, сделайте сами.
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
uses crt;
const n=15;
type Tmatr=array[1..n,1..n] of real;
 
procedure Vvod(var mt:Tmatr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=10*random-4;
end;
procedure Vyvod(var mt:Tmatr;c:char);
var i,j:byte;
begin
writeln('Matrica ',c,':');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(mt[i,j]:5:1);
  writeln;
 end;
end;
function Sled(mt:Tmatr):real;
var i,j:byte;
    sum:real;
begin
sum:=0;
for i:=1 to n do
sum:=sum+mt[i,i];
Sled:=sum;
end;
 
var a,b,c:Tmatr;
    max:real;
    ch:char;
begin
clrscr;
randomize;
Vvod(a);
Vyvod(a,'A');
writeln('Sled A=',Sled(a):0:2);
readln;
Vvod(b);
Vyvod(b,'B');
writeln('Sled B=',Sled(b):0:2);
readln;
Vvod(c);
Vyvod(c,'C');
writeln('Sled C=',Sled(c):0:2);
readln;
max:=Sled(a);
ch:='A';
if Sled(b)>max then
  begin
    max:=Sled(b);
    ch:='B';
  end;
if Sled(c)>max then
  begin
    max:=Sled(c);
    ch:='C';
  end;
write('Maximalnyj sled imeet ');
case ch of
'A':Vyvod(a,ch);
'B':Vyvod(b,ch);
'C':Vyvod(c,ch);
end;
readln
end.
Добавлено через 1 минуту
О пардон! Нужно квадрат матрицы вывести, сейчас доделаю.

Добавлено через 1 минуту
Вот, вроде так.
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
73
74
75
76
uses crt;
const n=10;
type matr=array[1..n,1..n] of real;
procedure Vvod(var mt:matr);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n do
mt[i,j]:=9*random;
end;
 
procedure Vyvod(var mt:matr; s:string);
var i,j:byte;
begin
writeln('Матрица ',s);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(mt[i,j]:7:1);
  writeln;
 end;
writeln;
end;
 
function Sled(mt:matr):real;
var sm:real;
    i:byte;
begin
sm:=0;
for i:=1 to n do
sm:=sm+mt[i,i];
Sled:=sm;
end;
 
procedure Kvadrat(m1:matr;var m2:matr);
var k,j,i:byte;
begin
for k:=1 to n do
for j:=1 to n do
   begin
     m2[k,j]:=0;
     for i:=1 to n do
     m2[k,j]:=m2[k,j]+m1[k,i]*m1[i,j];
   end;
end;
 
var a,b,c:matr;
    i,j,m:byte;
    s:string;
begin
clrscr;
randomize;
Vvod(a);
Vvod(b);
Vyvod(a,'A:');
writeln('След матрицы А=',Sled(a):0:1);
writeln('Нажмите Enter...');
readln;
Vyvod(b,'B:');
writeln('След матрицы B=',Sled(b):0:1);
writeln('Нажмите Enter...');
readln;
if Sled(a)>Sled(b)then
 begin
  s:='C=A^2:';
  Kvadrat(a,c);
  Vyvod(c,s);
 end
else
 begin
  s:='C=A^2:';
  Kvadrat(a,c);
  Vyvod(c,s);
 end;
readln
end.
1
Snoopy
05.01.2010, 13:54
  #4

Не по теме:

Puporev, за вами не успеешь, мне даже стало стыдно свой код выкладывать)

2
Puporev
05.01.2010, 13:55     Даны две квадратные матрицы.Напечатать квадрат той из них,в который наименьший след.
  #5

Не по теме:

Snoopy, Так у меня это все уже есть, я просто ищу и выкладываю.

1
05.01.2010, 13:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.01.2010, 13:55
Привет! Вот еще темы с ответами:

Даны два квадратных массива А и В. Вывести на экран тот из них, у которого след меньше (сумма элементов главной диагонали)
Даны два квадратных массива А и В. Вывести на экран тот из них, у которого след...

Сформировать две квадратные матрицы
Сформировать две квадратные матрицы {aij}n,m , {bij}k,l , где i<=(n,k),...

Даны квадратные матрицы А и В . Получить матрицу А*В+В*А
1) даны квадратные матрицы А и В . получить матрицу А*В+В*А


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

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

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