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

          Read(F, a[i]);

       for i := 1 to n do

          Read(F, b[i]);

       Close(F);

       n_ := n;

       a_ := a;

       b_ := b;

    end;

    procedure VVODc;

    begin

        Writeln('(a.b)');

        VVODb(n, a, b);

        n_ := n;

        a_ := a;

        b_ := b;

    end;

procedure VVODd;

    var F: text;

        i, j: Integer;

    begin

       Writeln('x * Sk');

       Writeln('VV. fail n.d.:');

       readln(fname);

       Assign(F,fname);

       Reset(F);

       Read(F, sk);

       Read(F, n);

       for i := 1 to n do

          for j := 1 to n do

             Read(F, x[i, j]);

       Close(F);

       n_ := n;

       sk_ := sk;

       x_ := x;

    end;

procedure VVODe;

    var F: text;

        i, j: Integer;

    begin

       Writeln('x * a');

       Writeln('VV. fail n.d.:');

       readln(fname);

       Assign(F,fname);

       Reset(F);

       Read(F, n);

       for i := 1 to n do

         Read(F, a[i]);

       for i := 1 to n do

         for j := 1 to n do

           Read(F, x[i,j]);

       Close(F);

       n_ := n;

       x_ := x;

       a_ := a;

    end;

procedure VVODf;

    var F: text;

        i, j: Integer;

    begin

       Writeln('x+y');

       Writeln('VV. fail n.d.:');

       readln(fname);

       Assign(F,fname);

       Reset(F);

       Read(F, n);

       for i := 1 to n do

          for j := 1 to n do

             Read(F, x[i, j]);

       for i := 1 to n do

          for j := 1 to n do

             Read(F, y[i, j]);

       Close(F);

       n_ := n;

       x_ := x;

       y_ := y;

    end;

procedure VVODg;

    begin

       Writeln('x*y');

       VVODf(n,x,y);

       n_ := n;

       x_ := x;