Технический форум - Даны матрицы a,b,c размером nxn определяем генератор чисел a+b*c, найти новую матрицу

Цитата:

Сообщение от farejoker (Сообщение 949470)

помогите плииз решить

Цитата:

Сообщение от farejoker (Сообщение 949473)

на паскале abc

Легко. Только уж извините, но с этим... ну, короче говоря, с лжепаскалем АВС никаких дел не имею и иметь не желаю, поэтому задача решалась (и тестировалась, естественно) на Free Pascal (в Turbo будет так же), а если полезут глюки - я не виноват.

Код:

Const

 N=5;

Var

 A,B,C,D:Array[1..N,1..N] of Integer;

 i,j,k:Integer;

Begin

 Randomize;

 Writeln('Matrix A:            Matrix B:            MatrixC:');

 For i:=1 to N do

  begin

   For j:=1 to N do

    begin

     A[i,j]:=Random(20);

     Write(A[i,j]:3);

    end;

   Write('      ');

   For j:=1 to N do

    begin

     B[i,j]:=Random(20);

     Write(B[i,j]:3);

    end;

   Write('      ');

   For j:=1 to N do

    begin

     C[i,j]:=Random(20);

     Write(C[i,j]:3);

    end;

   Writeln;

  end;

 Writeln;

 Writeln('Result:');

 For i:=1 to N do

  For j:=1 to N do

   begin

    D[i,j]:=A[i,j];

    for k:=1 to N do D[i,j]:=D[i,j]+B[i,k]*C[k,j];

   end;

 For i:=1 to N do

  begin

   For j:=1 to N do Write(D[i,j]:4);

   Writeln;

  end;

 Readln

End.