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

                       Практикум по решению задач на ЭВМ


5) Дана действительная квадратная матрица А размера n . Получить
транспонированную матрицу AT .

  program matrx(input,output);
  const n=3;
  var i,j:integer; a:array[1..n,1..n] of real;
  b:array[1..n,1..n] of real;
    begin
     writeln('vvedite matrix a[n,n]');
     for i:=1 to n do
       for j:=1 to n do
        read(b[i,j]);
         for i:=1 to n do
         for j:=1 to n do
           a[i,j]:=b[j,i];
           writeln ('vivod matrix b');
            for i:=1 to n do
             begin
              for j:=1 to n do
              write(a[i,j]);
              writeln;
             end;
             readln;
          end.




                                 Обращение матриц
6) Дана квадратная действительная матрица А, размера 3× 3 . Найти
определитель матрицы.
  program matrx(input,output);
   var i,j:integer;d:real;a:array[1..3,1..3] of real;
    begin
     writeln('vvedite matrix a[3,3]');
     for i:=1 to 3 do
       for j:=1 to 3 do
         read(a[i,j]);
d:=a[1,1]*(a[2,2]*a[3,3]-a[3,2]*a[2,3])-a[1,2]*(a[2,1]*a[3,3]-a[3,1]*a[2,3])+
+a[1,3]*(a[2,1]*a[3,2]-a[3,1]*a[2,2]);
            writeln ('vivod d');
              write(d);


                                          75