Курсовые / curstau / ENEX

                {  Џа®жҐ¤гал ўў®¤ -ўлў®¤  ¬ ваЁжл }


 unit ENEX;
     interface
       uses Crt,GB;
       procedure EN (y,n,m:integer;var A:matr);
       procedure EX (n,m:integer;A:matr);
       procedure ENV (n:integer;var X:vect);
       procedure EXV (n:integer;X:vect);

   implementation

             {        ўў®¤ ¬ ваЁжл          }

     procedure EN (y,n,m:integer;var A:matr);
            var i,j:integer;
     begin
       for i:=1 to n do for j:=1 to m do
       begin
         GotoXY(14*j,y+i);
         write('[',i:1,',',j:1,']=');
         read(A[i,j]);
       end;
     end;
     {------------------------------------}


             {         ўлў®¤ ¬ ваЁжл      }

     procedure EX (n,m:integer;A:matr);
            var i,j:integer;
     begin
       for i:=1 to n do
       begin
         for j:=1 to m do write(' ',A[i,j]);
         writeln;
       end;
     end;
     {-------------------------------------}


             {        ўў®¤ ўҐЄв®а  ­ з.гб«.   }

     procedure ENV (n:integer;var X:vect);
            var i:integer;
     begin
       for i:=1 to n do
       begin
         write('x',i:1,'(0)=');
         readln(X[i]);
       end;
     end;
     {------------------------------------}


             {        ўлў®¤ ўҐЄв®а                   }

     procedure EXV (n:integer;X:vect);
            var i,j  :integer;
     begin
       for i:=1 to n do write(' ',X[i]:8);
       writeln;
     end;
     {------------------------------------}

   end.