Лабораторная работа №1. Программирование векторных и матричных операций, страница 7

       y_ := y;

    end;

begin

end.

unit U_Matr_Sk;

interface

 uses crt, u_VVOD;

 Procedure Mat_Sk(n:integer;Sk:real;A:matrix;var z:matrix);

implementation

 procedure Mat_Sk;   {ymnogay matricy na skalar}

 var i,j : INTEGER;

 begin

   writeln;

   writeln('Skaliar=',sk:0:1);

   writeln;

   writeln('Nachalnaja matrica');

   for i:=1 to n do

   begin

     for j:=1 to n do

       write(a[i,j]:0:1,' ');

     writeln;

   end;

   writeln;

   writeln ('--| We have Result |--') ;

   for i:=1 to n do

   begin

     for j:=1 to n do

     begin

       z[i,j]:=a[i,j]*SK;    {Nach:nachalnaya matrica, Rez:matrica rezultata, SK:Skalar}

       write(z[i,j]:0:1,' '); { vivod na ekran}

     end;

     writeln;

   end;

 end;

end.

unit u_mt_mt;

Interface

   uses crt,U_VVOD;

   Procedure mt_mt(n: integer; x,y: matrix; var z:matrix);

Implementation

  procedure mt_mt;

  var i,j,s: integer;

      sum: real;

  begin

    writeln('Vatrica 1');

    for i:=1 to n do

    begin

      for j:=1 to n do

        write(x[i,j]:0:1,' ');

      writeln;

    end;

    writeln;

    writeln('Matrica 2');

    for i:=1 to n do

    begin

      for j:=1 to n do

        write(y[i,j]:0:1,' ');

      writeln;

    end;

    writeln;

    for i:=1 to n do

      for j:=1 to n do begin

        sum:=0;

        for s:=1 to n do

          sum:=sum+x[i,s]*y[s,j];

        z[i,j]:=sum;

      end;

      Writeln('Matrix is ');

      for i:=1 to n do begin

        for j:=1 to n do

          write(z[i,j]:0:1,' ');

        writeln;

      end;

  end;

end.

unit U_Mult_Matr_Vec;

interface

uses U_VVOD;

 procedure Mult_Matr_Vec(n:integer; x:matrix; a:vector;var a1:vector);

implementation

 procedure Mult_Matr_Vec;