[dasha131]

Вот готово, замечания будут?

Код:

program ABC;
const NMax = 10;
type Matrix = array [1..NMax, 1..NMax] of Real;  
 
procedure 1MulMatrix(var a, b, c: Matrix; n: Integer);
var  i, j, k: Integer;
     s: Real;
begin
     for i := 1 to n do
     for j := 1 to n do
     begin
          s := 0;
          for k := 1 to n do
          s := s + a[i, k]*b[k, j];
          c[i, j] := s
     end
 
end;
procedure 2MulMatrix(var c, d, e: Matrix; n: Integer);
var  i, j, k: Integer;
     s: Real;
begin
     for i := 1 to n do
     for j := 1 to n do
     begin
          s := 0;
          for k := 1 to n do
          s := s + c[i, k]*d[k, j];
          e[i, j] := s
     end
 
end;
 
var  a, b, c,d,e: Matrix;
     i, j, n: Integer;
begin
     WriteLn('vvedite poradok matrix');
     Write('n = '); ReadLn(n);
 
     WriteLn('vvedite pervyu');
     for i := 1 to n do
     for j := 1 to n do
     Read(a[i, j]);
 
     WriteLn('vvedite vtoryu');
     for i := 1 to n do
     for j := 1 to n do
     Read(b[i, j]);
 
 WriteLn('vvedite tretu');
     for i := 1 to n do
     for j := 1 to n do
     Read(d[i, j]);

     MulMatrix(a, b, c, n);
     MulMatrix(c, d, e, n);
 
     for i := 1 to n do
 begin
          for j := 1 to n do
          Write(e[i, j]:0:6, ' ');
          WriteLn
     end;
     ReadLn
end.

[lxa85]

Вот готово, замечания будут? »

Будут

Код:

program ABC;
const NMax = 10;
type Matrix = array [1..NMax, 1..NMax] of Real;  
 
procedure MulMatrix(var M1, M2, M3: Matrix; n: Integer);
var  i, j, k: Integer;
     s: Real;
begin
     for i := 1 to n do
     for j := 1 to n do
     begin
          s := 0;
          for k := 1 to n do
              s := s + M1[i, k]*M2[k, j];
          M3[i, j] := s
     end
 
end;

procedure VvodM(var M1:Matrix; n:integer);
var 
    i,j:integer;
begin
     for i := 1 to n do
     for j := 1 to n do
         Read(M1[i, j]);
end;

procedure VivodM(var M1:Matrix; n:integer);
var 
    i,j:integer;
begin
     for i := 1 to n do
     begin
          for j := 1 to n do
              Write(M1[i, j]:0:6, ' ');
          WriteLn;
     end;
end;


var  a, b, c,d,e: Matrix;
     i, j, n: Integer;
begin
     WriteLn('vvedite poradok matrix');
     Write('n = '); ReadLn(n);
 
     WriteLn('vvedite pervyu');
     VvodM(a, n);
     WriteLn('vvedite vtoryu');
     VvodM(b, n);
     WriteLn('vvedite tretu');
     VvodM(c, n);

     MulMatrix(a, b, d, n);
     MulMatrix(c, d, e, n);
 
     VivodM(e,n);

     ReadLn;
end.

Как вариант, можно кусочек переписать иначе, через функцию:

Код:

finction MulMatrix(var M1, M2; n: Integer):Matrix;
var  i, j, k: Integer;
     s: Real;
begin
     for i := 1 to n do
     for j := 1 to n do
     begin
          s := 0;
          for k := 1 to n do
              s := s + M1[i, k]*M2[k, j];
          result[i, j] := s
     end
end;

соотв. в основном теле программы будет:

Код:

d:=MulMatrix(a,b,n);
e:=MulMatrix(c,d,n);

Общие комментарии:
Вообще не стОит путать локальные(внутри процедур и функций) и глобальные(общие для всей программы) переменные.
Поэтому я переименовал в процедурах a, b, c, e и т.д. в более условные и единые M1, M2, M3.
i, j, k счетчики, с ними все ясно.
Массивы a, b, c - основные.
d, e производные от умножения.
Бывшие процедуры 1MulMatrix, 2MulMatrix нигде не вызывались, соотв. заменены на вызываемую MulMatrix с разными передаваемыми ей аргументами.
Конечный Readln; по большому счету не нужен. Он служит для паузы во время отладки. При финальной компиляции программы эту строчку желательно закоментировать.

[dasha131]

Спасибо, да действительно объединение двух процедур перемножения в одну очень кстати, и процедура ввода весьма удобна, а вот процедура вывода кажется мне лишней

[dasha131]

Проверила все в ручную на примере перемножения матриц размерностью 3х3 в первой программа все вычисляется верно, а во второй где процедуры объединены неверно, почему так??

[lxa85]

dasha131, приведи код программы пожалуйста. В которой процедуры объединены и работают не верно.

[dasha131]

Вот же он.
Выше вами приведенный

Да вот кстати обьясните пожалуйста почему в моём варианте кода выбор параметра в процедуре по ссылке лучше чем по значению???

[dasha131]

lxa85,

приведи код программы пожалуйста »

Я имею веду ваш код!

[lxa85]

Странно, вроде бы ошибки быть не должно.
Давай сравнивать входные наборы и полученные результаты.

Да вот кстати обьясните пожалуйста почему в моём варианте кода выбор параметра в процедуре по ссылке лучше чем по значению?? »

Ты имеешь в виду в чем отличие записи
procedure VvodM(var M1:Matrix; n:integer); от
procedure VvodM(M1:Matrix; n:integer);
При вызове процедуры (функции) выделяется память, в нее записываются передаваемые данные и служебная информация.
Передавать ссылку на массив проще, нежели сам массив. Это быстрее, экономичнее в плане ресурсов и времени.
Если этого не делать, а передавать в процедуру весь массив, то при большой "вложенности" процедур с пересылками полного массива данных, может возникнуть переполнение доступной памяти. Если передавать ссылки, этого не произойдет. Однако следует быть внимательным к тому, что на что и когда ссылается.

Для наглядности предложу вариант с книжной библиотекой. Если понадобилась информация, нас адресуют к нужному стеллажу. Перетаскивать к себе домой 6 рядов книг, чтобы прочесть эпиграф к произведению - нецелесообразно. Можно конечно, но не нужно

[dasha131]

Понятно обьяснили, спасибо!

[dasha131]

результат получается числа но не те
ввожу матрицы, пеемножение которых было проверенно мной в ручную
размерность=3
3 2 1 0 4 7 7 4 0
4 0 5 8 2 1 8 2 1
7 0 2 6 5 0 9 1 1

правильный ответ
529 153 44
790 230 69
829 173 87

ответ выдаваемый программой
274 311 273
248 288 289
240 268 284

Попробовала убрать вызов второй процедуры и вывисти результат перемножения AB, результат сошолся с тем который был получен в ручную
22 21 23
30 41 28
12 38 49