Найти матрицу B = Am, где, m - целое число больше единицы

@mafus · Регистрация: 15.04.2013

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

Задание 1.9.
а) Найти матрицу B = Am, где, m - целое число больше единицы;
б) умножить элементы k-ой строки матрицы В на заданное число;
в) вычислить сумму отрицательных элементов полученной матрицы, расположенных под ее главной диагональю в столбцах с четными номерами.

22.05.2013, 01:00

Доброй ночи,
интересует аналогичное задание, но B=A^m
и было бы совсем замечательно, если каждый пункт был в отдельной подпрограмме.

@Puporev · 22.05.2013, 08:11

Процедуры: найдите степени квадратной матриц
Составить подпрограмму вычисления К степени квадратной матрицы

28.05.2013, 14:09

Спасибо, за предыдущуюу подсказку,но вот , в процессе написания возникла необходимость консультации.
Интересует вопрос, почему процедура работает только один раз, то есть возводит только в квадрат и затем не выходит на цикл?

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
uses crt;
const nmax=10;
type matr=array[1..nmax,1..nmax] of real;
procedure MxM(a1,a2:matr;n:byte;var a3:matr);
var k,j,i:byte;
begin
for k:=1 to n do
for j:=1 to n do
 begin
  a3[k,j]:=0;
  for i:=1 to n do
  a3[k,j]:=a3[k,j]+a1[k,i]*a2[i,j];
 
 end;
end;
 
var e,n,i,j,q,m,l,x,k : integer;
sum:real;
A,B,C:matr;
begin clrscr;
      writeln ('vvedite poradok matricy À (ne bolee 10!)');
      readln (n);
        if (n>10) or (n<=0) then
              begin
                repeat
                writeln('vvedite poradok matricy À (ne bolee 10!)');
                readln (n);
                until (n>0) and (n<11);
              end;
 
                  for i:=1 to n do
                   for j:=1 to n do
                    begin
                    write('A[',i,',',j,']=');
                    readln (A[i,j]);
                    end;
            writeln ('vasha ishodnaaya matrica A:');
                 for i:=1 to n do
                      begin
                         for j:=1 to n do
                             write (A[i,j]:8:2);
                             writeln;
                      end;
                      write('vvedite stepen m   = ');
                      readln (m) ;
                      q:=1;
 
                      c:=A;
                          repeat
                         MxM(c,a,n,b);
                            c:=b;
                          q:=q+1;
                             until q<=m;
 
                         writeln ('vasha poluchennaya matrica B:');
                 for i:=1 to n do
                      begin
                         for j:=1 to n do
                             write (C[i,j]:8:2);
                             writeln;
                         end;
                         
                        write('vvedite nomer k stroki (ne bolshe ',n,'!) = ');
                        readln (l) ;
                           if (l>n) or (l<=0) then
                             begin
                              repeat
                              writeln('vvedite nomer k stroki (ne bolshe ',n,'!!!) = ');
                              readln (l);
                              until (l<=n) and (l>0) ;
                             end;
              write('vvedite chislo = ');
              readln(x);
                for i:=1 to n do
                 c[i,j]:=a[l,i]*x;
                   for i:=1 to n do
                     a[l,i]:=c[i,j];
              writeln ('poluchennaya matrica B:');
                     for i:=1 to n do
                             begin
                                  for j:=1 to n do
                                     write (c[i,j]:8:2);
                                     writeln;
                             end;
                     sum:=0;
                         for i:=1 to n do
                          for j:=1 to n do
                             begin
                               if (i>j) and (c[i,j]<0) and (j mod 2=0) then
                                  sum:=sum+c[i,j];
                             end;
              writeln ('summa otricatelnyh pod glavnoy diagonalyu B = ',sum);
                writeln ('dlya vihoda nazhmite  enter.');
                 readln;
                         
                    end.

@Puporev · 28.05.2013, 14:30

Во первых было написано

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

и было бы совсем замечательно, если каждый пункт был в отдельной подпрограмме.

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure step_matr(a1:matr;n:byte;var a3:matr);
var k,j,i:byte;
    a2:mtr;
begin
a2:=a1;
for i:=1 to n-1 do
 begin
  for k:=1 to m do
  for j:=1 to m do
   begin
    a3[k,j]:=0;
    for i:=1 to m do
    a3[k,j]:=a3[k,j]+a1[k,i]*a2[i,j];
   end;
  str(i+1,s);
  Vyvod(a3,'Ìàòðèöà A^'+s+':');
  a2:=a3;
 end;
end;

Новые блоги и статьи Все статьи Все блоги /
Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@mafus 0 / 0 / 0 Регистрация: 15.04.2013 Сообщений: 8

	Найти матрицу B = Am, где, m - целое число больше единицы 15.04.2013, 18:47. Показов 900. Ответов 4 Метки нет (Все метки) Задание 1.9. а) Найти матрицу B = Am, где, m - целое число больше единицы; б) умножить элементы k-ой строки матрицы В на заданное число; в) вычислить сумму отрицательных элементов полученной матрицы, расположенных под ее главной диагональю в столбцах с четными номерами. 0

skoopy
	22.05.2013, 01:00
	Доброй ночи, интересует аналогичное задание, но B=A^m и было бы совсем замечательно, если каждый пункт был в отдельной подпрограмме.

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	22.05.2013, 08:11
	Процедуры: найдите степени квадратной матриц Составить подпрограмму вычисления К степени квадратной матрицы 1