Получить вектор из элементов матрицы - Turbo Pascal

Формулировка задачи:

Даны квадратная матрица A порядка n и вектор b с n элементами. Получить вектор: (A-E)b, где E - единичная матрица n.

Код к задаче: «Получить вектор из элементов матрицы - Turbo Pascal»

textual
uses
  crt;
 
const
  nmax = 20;
var
  a: array[1..nmax, 1..nmax] of integer;
  b, ab: array[1..nmax] of integer;
  m, n, i, j, k: byte;
begin
  clrscr;
  randomize;
  repeat
    write('ГђГ*çìåð Г¬Г*òðèöû ГЁ âåêòîðГ* îò  Г¤Г® ', nmax, '. n = ');
    readln(n);
  until n in [1..nmax];
  writeln('ГЊГ*òðèöГ* A:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(9) + 1;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  writeln('ГЊГ*òðèöГ* A-E');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if i = j then a[i, j]:=a[i, j]-1;
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln('Âåêòîð ñòîëáåö B:');
  for i := 1 to n do
  begin
    b[i] := random(9) + 1;
    writeln(b[i]);
  end;
  writeln;
  writeln;
  for i := 1 to n do
  begin
    ab[i] := 0;
    for j := 1 to n do
      ab[i] := ab[i] + a[i, j] * b[j];
  end;
  writeln('Âåêòîð Ab=ГЂ*B:');
  for i := 1 to n do
    writeln(ab[i]);
  readln
end.

12   голосов, оценка 4.167 из 5


СОХРАНИТЬ ССЫЛКУ