Курсовые / 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.