Задать три матрицы по правилу

@Servan · Регистрация: 16.12.2008

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

Задать три матрицы по правилу:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?A_{ij}=\frac{i}{4}-2*j\\B_{ij}=\frac{A{ij}}{2}-i*j\\C_{ij}=A_{ij}+B_{ij}$

Сформировать матрицу D отношением:

$https://www.cyberforum.ru/cgi-bin/latex.cgi?D=A*(C-B)$

Если с первыми тремя действиями все гуд

Pascal
1
2
3
4
5
6
7
8
9
10
11
procedure Matrix3(var A:ar; n:byte);
    var i,j:byte;
    begin
    WRITELN ('Matrica A');
    for i:=1 to n do
    for j:=1 to n do begin
    A[i,j]:=i/4-2*j;
    Write (A[i,j]:8:2);
    If j=n then writeln;
    end;
    end;

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
Procedure Matrix31(var B:ar; A:ar; n:byte);
    var i,j:byte;
    begin
    WRITELN ('Matrica B');
    for i:=1 to n do
    for j:=1 to n do begin
    B[i,j]:=(A[i,j])/2 - i*j;
    Write(B[i,j]:8:2);
    If j=n then writeln;
    end;
    end;[/CODE]
 
 
[CODE]Procedure Matrix32(var C:ar; A,B:ar; n:byte);
    var i,j:byte;
    begin
    WRITELN ('Matrica C');
    for i:=1 to n do
    for j:=1 to n do begin
    C[i,j]:=A[i,j]+B[i,j];
    write(C[i,j]:8:2);
    If j=n then writeln;
    end;
    end;

То с 4 действием какие-то проблемы. Выдаются нули, которых не должно быть:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Procedure Vych(var D:ar; C,B,A:ar; n:byte);
    var i,j,l:byte;
    begin
    WRITELN ('Matrica D');
    for i:=1 to n do
    for j:=1 to n do begin
    K[i,j]:=C[i,j]-B[i,j];
    for l:=1 to n do
    for j:=1 to n do begin
    D[l,j]:=0;
    for i:=1 to n do
    D[l,j]:=D[l,j]+(K[l,j]*a[i,j]);
    Write (d[i,j]:8:2, ' ');
    if j=n then writeln;
    end;
    end;
    end;

Где я ошибаюсь в расчетах? Матрица квадратная, размерность 5х5.

@lexus_ilia · 17.12.2008, 22:51

Ну конечно Нули... Если у вас K[i,j] к моменту расчётов D[l,j]:=D[l,j]+(K[l,j]*a[i,j]) равно 0! Ведь вы считаете сначала K[1,1] а потом используете в формуле Всю матрицу К, короче проще переделать вот так: посчитали матрицу К, а потом только её умножать на матрицу А...

@Puporev · 17.12.2008, 22:52

Pascal
1
2
3
for i:=1 to n do
    for j:=1 to n do 
    K[i,j]:=C[i,j]-B[i,j];

//вычитание правильно, а умножение неправильно, нужно А*К, а не наоборот, это не арифметика, здесь при перестановке множителей результат меняется. Попробуй так.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
for l:=1 to n do
    for j:=1 to n do begin
    D[l,j]:=0;
    for i:=1 to n do
    D[l,j]:=D[l,j]+(A[l,i]*k[i,j]);
    end;
     for i:=1 to n do
        begin
          Write (d[i,j]:8:2');
           Writeln;
        end;
readln
end.

@lexus_ilia · 17.12.2008, 22:54

Puporev, Так вы гляньте поточнее на его КОД, у него Неправильно создаётся матрица К, ведь там стоит begin а end в самом конце...

@Puporev · 17.12.2008, 22:56

Вот что у меня получилось в итоге.

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
uses crt;
const n=5;
var a,b,c,d:array[1..n,1..n] of real;
    i,j,k:integer;
begin
clrscr;
writeln('Matrica A:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=i/4-2*j;
        write(a[i,j]:6:2);
      end;
    writeln;
  end;
readln;
writeln('Matrica B:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        b[i,j]:=a[i,j]/2-i*j;
        write(b[i,j]:6:2);
      end;
    writeln;
  end;
  readln;
writeln('Matrica C:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        c[i,j]:=a[i,j]+b[i,j];
        write(c[i,j]:6:2);
      end;
    writeln;
  end;
  readln;
writeln('Matrica C1=C-B:');
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        c[i,j]:=c[i,j]-b[i,j];
        write(c[i,j]:6:2);
      end;
    writeln;
  end;
  readln;
writeln('Matrica D=A*C1:');
for k:=1 to n do
for j:=1 to n do
   begin
    d[k,j]:=0;
    for i:=1 to n do
       begin
        d[k,j]:=d[k,j]+a[k,i]*c[i,j];
       end;
    end;
for i:=1 to n do
  begin
    for j:=1 to n do
    write(d[i,j]:8:2);
    writeln;
  end;
readln
end.

@Servan · 17.12.2008, 23:52 **[ТС]**

Отличненько. Спасибо. Преобразовал в процедуры. Осталось оформить менюшку и всё!

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	17.12.2008, 22:51
	Ну конечно Нули... Если у вас K[i,j] к моменту расчётов D[l,j]:=D[l,j]+(K[l,j]a[i,j]) равно 0! Ведь вы считаете сначала K[1,1] а потом используете в формуле Всю матрицу К*, короче проще переделать вот так: посчитали матрицу К, а потом только её умножать на матрицу А... 0

@lexus_ilia 3067 / 727 / 69 Регистрация: 24.09.2008 Сообщений: 1,531
	17.12.2008, 22:54
	Puporev, Так вы гляньте поточнее на его КОД, у него Неправильно создаётся матрица К, ведь там стоит begin а end в самом конце... 0

@Servan 0 / 0 / 0 Регистрация: 16.12.2008 Сообщений: 5
	17.12.2008, 23:52 [ТС]
	Отличненько. Спасибо. Преобразовал в процедуры. Осталось оформить менюшку и всё! 0