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

for i := 1 to n do

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.:');

Assign(F,fname);

Reset(F);

for i := 1 to n do

for j := 1 to n do

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.:');

Assign(F,fname);

Reset(F);

for i := 1 to n do

for i := 1 to n do

for j := 1 to n do

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.:');

Assign(F,fname);

Reset(F);

for i := 1 to n do

for j := 1 to n do

for i := 1 to n do

for j := 1 to n do

Close(F);

n_ := n;

x_ := x;

y_ := y;

end;

procedure VVODg;

begin

Writeln('x*y');

VVODf(n,x,y);

n_ := n;

x_ := x;