Найти матрицу, обратную данной (методом Гаусса)

@cuber · Регистрация: 22.06.2010

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

Привет всем! Прошу помочь! Задание: Найти матрицу, обратную данной

$https://www.cyberforum.ru/cgi-bin/latex.cgi?\begin{pmatrix}6 & 17-N & 12 & 0\\ 1 & 3 & 11 & 2\\ 3 & 6 & 3 & 2\\ N-21 & -10 & 5 & 4\end{pmatrix}$

методом Гаусса, где N – номер студента в журнале

Вот код, как я думаю решать:

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
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
program obr_gaus;
uses crt;
var i,j,k:integer;
    N:byte;
    c:real;
    A,B: array [1..4,1..4] of real;
    begin
     readln(N);
 
     A[1,1]:=6;
     A[1,2]:=17-N;
     A[1,3]:=12;
     A[1,4]:=0;
     A[2,1]:=1;
     A[2,2]:=3;
     A[2,3]:=11;
     A[2,4]:=2;
     A[3,1]:=3;
     A[3,2]:=6;
     A[3,3]:=3;
     A[3,4]:=2;
     A[4,1]:=N-21;
     A[4,2]:=-10;
     A[4,3]:=5;
     A[4,4]:=4;
 
       {for i:=1 to 4 do
         begin
        for j:=1 to 4 do
         write(A[i,j]:5:0);
         writeln;
         end;}
 
 
      for i:=1 to 4 do
        B[i,i]:=1;
 
 
 
 
 
 
 
 
 
 
 
 
    //Ðåøåíèå
      for i:=1 to 4 do
       begin
        c:=A[i,i];
         for j:=1 to 4 do
          begin
            A[i,j]:=A[i,j]/c;
            B[i,j]:=B[i,j]/c;
          end;
         // ôîðìèðîâàíèå åäèíè÷íîé ìàòðèöû
         for k:=i+1 to 4 do
          begin
           c:=A[k,i];
            for j:=1 to 4 do
             begin
              A[k,j]:=A[k,j]-c*A[i,j];
              B[k,j]:=A[k,j]-c*B[i,j];
             end;
           c:=A[i,k];
            for j:=1 to 4 do
             begin
              A[j,k]:=A[j,k]-c*A[j,i];
              B[j,k]:=A[j,k]-c*B[j,i];
             end;
          end;
 
       {   // ðåøåíèå îáðàòíîé ìàòðèöû
          for k:=k+1 to 4 do
          begin
           c:=A[k,i];
            for j:=1 to 4 do
             begin
              B[k,j]:=B[k,j]-c*B[k,j];
             end;
          end;
          for k:=1 to 4 do
           begin
             c:=A[i,j];
              for j:=1 to 4 do
               begin
                 B[j,i]:=B[j,i]-c*B[i,k];
               end;
           end;  }
          
          
       end;
       
       
       
       
       
       
       
       
       
       
        //BbIBOD
       writeln;
         writeln('Ðåçóëüòàò:');
         writeln;
         for i:=1 to 4 do
         begin
        for j:=1 to 4 do
         write(B[i,j]:15:4);
         writeln;
         end;
         
         writeln;
         writeln('ïðîâåðêà:');
           writeln;
         for i:=1 to 4 do
         begin
        for j:=1 to 4 do
 
         write(A[i,j]:4:0);
         writeln;
         end;
    end.

Надеюсь на помощь!!!
P.S. Необходимо сдавать уже завтра

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .