Практикум по решению задач на ЭВМ. Тарова И.Н - 72 стр.

                                Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  const n=3;
  var i,j,k,p:integer; b:array[1..n,1..n+1] of real; a:array[1..n+1] of real;
    c:array[1..n+1,1..n+1] of real;
   begin
    writeln('vvedite matrix b[n,n+1]');
    for i:=1 to n do
      for j:=1 to n+1 do
        read(b[i,j]);
    writeln('vvedite matrix a');
    for i:=1 to n+1 do
        read(a[i]);
    writeln('vvedite p');
      readln(p);
        for i:=1 to p do {формирование 1-х р-строк результирующей мат-
рицы с}
         for j:=1 to n+1 do
           c[i,j]:=b[i,j];
        for j:=1 to n+1 do {формироавние р+1 строк результирующей мат-
рицы с}
           c[p+1,j]:=a[j];
        for i:=p+1 to n do
          for j:=1 to n+1 do
            c[i+1,j]:=b[i,j];
            writeln ('vivod matrix c');
            for i:=1 to n+1 do
             begin
              for j:=1 to n+1 do
              write(c[i,j]);
              writeln;
             end;
             readln;
          end.




   Лабораторная работа №22
                         Матричная алгебра
1) Дана квадратная матрица А порядка n. Получить матрицу А*А.


                                     72