составить программу умножения двух квадратных матриц

[gnom 62]

составить программу умножения двух квадратных матриц .
используя её,возвести в k-ю степень получившуюся матрицу
всё это сделать при помощи процедур

помогите ничё не получается)))))))

[Sazary]

Сделайте процедуру для умножения матриц. Об это посмторите, например, здесь:
http://programmersforum.ru/showthrea...E0%F2%F0%E8%F6
http://programmersforum.ru/showthread.php?t=40874
а также в поиске.
Затем в цикле вызовите ее k-1 раз.

помогите ничё не получается)))))))

Покажите наработки. Чтобы ничего не получалось, нужно сначала что-то сделать.

ps И в следующий раз с такими темами обращайтесь в "Помощь студентам".

[gnom63]

const k=3;
l=2;
var a:array[1..k,1..l]of integer;
b,c:array[1..k,1..k]of integer;
i,j,p:integer;
begin
randomize;
writeln('Matrica A:');
for i:=1 to k do
begin
for j:=1 to l do
begin
a[i,j]:=random(9)+1;
write(a[i,j]:3);
end;
writeln;
end;
readln;
writeln('Matrica B:');
for i:=1 to l do
begin
for j:=1 to k do
begin
b[i,j]:=random(9)+1;
write(b[i,j]:3);
end;
writeln;
end;
readln;
for p:=1 to k do
for j:=1 to k do
begin
c[k,j]:=0;
for i:=1 to k do
begin
c[p,j]:=c[p,j]+a[p,i]*b[i,j];
end;
end;
writeln('Matrica C=A*B:');
for i:=1 to k do
begin
for j:=1 to k do
write(c[i,j]:5);
writeln;
end;
readln;
end.

напишите пожалуйста как последнюю матрицу <С> возвести в квадрат
припомощи процедуры??????

заранеее благодарю

[AlenkaM]

В смысле, каждый элемент матрицы С возвести в квадрат?
Если да, то это делается так:

Procedure sqr_c (var x: Integer);
begin
x:= x*x;
end;

И всё. А вызывается процедура так:

for i:= 1 to k do
for j:= 1 to k do
sqr_c (c[i,j]);

P.S. Если надо возвести не во вторую степень, а в степень k, то в процедуре делаешь цикл:

Procedure sqr_c (var x: Integer);
var i, n: Integer;
begin
n:= 1;
for i:= 1 to k do
n:= n*x;
x:= n;
end;
Вроде как-то так

[maladoy]

Type
  Matrics=array[1..Nmax,1..Nmax] of integer;
....

Procedure Umn (X,Y:matrics; t:integer; Var Z:matrics);
    var
       i,j,k,s:integer;
begin 
     for i:=1 to t do
     for j:=1 to t do
         begin
         S:=0;
              for k:=1 to t do
                  s:=s+X[k,i]*Y[j,k];
         Z[i,j]:=s;
          end;
end;

а возведение матрицы в квадрат это умножение матрицы самой на себя, вот!

[gnom63]

извените что беспокою а можно мне ещё
эту программу которая даётся в 3 сообщении с помощью процедур переписать)))))))))))))

[maladoy]

Конечно можно! Переписывай кто ж против то?

[gnom63]

А КАК????????????

[maladoy]

Program dodelay;
 uses crt;
 Const
  Nmax=10; {Максимальный размер массива}
 Type
  Matrics=array[1..Nmax,1..Nmax] of integer;
  Masiv=array[1..Nmax] of integer;
 Var
  X,Y,Z,A,B:matrics;
  M,N:masiv;
  i,j,t:integer;
{Процедура ввода элементов массива}
{Параметры: t - размер массива, X - массив}
Procedure Vvod (t:integer; Var X:matrics);
    Var
       i,j:integer;
Begin{Vvod}
     For i:=1 to t do
         For j:=1 to t do
             Begin {Ввод элементов}
                  Write ('[',i,',',j,']=');
                  Read (X[i,j]);
             End;  {Ввод элементов}
             For i:=1 to t do
                 Begin {Вывод элементов}
                      For j:=1 to t do
                          Write (X[i,j]:5);
                          Writeln
                 End   {Вывод элементов}
End;{Vvod}
{Процедура вывода элеменов матриц}
{Параметры: X,Y - матрицы, t - размер}
Procedure Echo (t:integer; X:matrics);
    var
       i,j:byte;
begin {Echo}
    For i:=1 to t do
        Begin
             For j:=1 to t do
                 Write (X[i,j]:5);
                 Writeln
        End
end; {Echo}
{Процедура умножения матриц}
{Параметры: X,Y - начальные массивы, Z - массив результат,t - размер}
Procedure Umn (X,Y:matrics; t:integer; Var Z:matrics);
    var
       i,j,k,s:integer;
begin {Umno}
     for i:=1 to t do
     for j:=1 to t do
         begin
         S:=0;
              for k:=1 to t do
                  s:=s+X[k,i]*Y[j,k];
         Z[i,j]:=s;
          end;
end;  {Umno}
{Процедура сложения массивов}
{Параметры: X,Y - начальные массивы, Z - массив результат, t - размер}
Procedure Summa(X,Y:matrics; t:integer; Var Z:matrics);
    var
       i,j:integer;
begin {Summa}
     for i:=1 to t do
         for j:=1 to t do
             Z[i,j]:=X[i,j]+Y[i,j]
end;  {Summa}
{Процедура для нахождения суммы ниже главной диагонали}
{Параметры: X - начальные массивы, Y - массив результат, t - размер}
Procedure Under (X:matrics; t:integer; Var Y:masiv);
  var
     s:real;
    Begin
      S := 0;
      For i := 2 to t do
        For j := 1 to i-1 do
          S:=S + X[i, j];
      WriteLn('Сумма элементов, лежащих ниже главной диагонали=', S:5:1);
    End;
{Процедура для нахождения суммы выше главной диагонали}
{Параметры: X - начальные массивы, Y - массив результат, t - размер}
Procedure Over (X:matrics; t:integer; Var Y:masiv);
  var
     s:real;
    Begin
      S := 0;
      For i := 1 to t-1 do
        For j := i+1 to t do
          S := S + X[i, j];
      WriteLn('Сумма элементов, лежащих выше главной диагонали=', S:5:1);
      ReadLn
    End;
begin{lab_12}
clrscr;
writeln('Введите размеры матриц X,Y:');read(t);
writeln('Введите ',t*t,' элемента для каждой матрицы:');
writeln('Введите матрицу X:');vvod(t,X);
writeln('Введите матрицу Y:');vvod(t,Y);
writeln('Результат возведения матрицы X в квадрат:');
Umn(X,X,t,A);
Echo(t,A);
writeln('Результат возведения матрицы Y в квадрат:');
Umn(Y,Y,t,B);
Echo(t,B);
writeln('Полученный массив после преобразований:');
summa(A,B,t,Z);
Echo(t,Z);
under(Z,t,M);
over(Z,t,N);
end.

[capta1n]

maladoy, не могу добавить отзыв Вам за последний код