(-1) * (A * M)
E: = nil;
bac: = nil;
end;
procedure TForm1.Zero (var a: Matrix);
Var i, j: integer;
begin
for i: = 0 to Length (a) -1 do
for j: = 0 to Length (a [0]) -1 do a [i, j]: = 0;
end;
end.
В
Додаток Б
В
Результати роботи програми з тими ж вхідними даними:
Рис 1. <В
Додаток Б
(продовження)
В
В В В В В
Результати роботи програми з тими ж вхідними даними:
Рис 2. <В
