Курсовые / curstau / INVERS

  Program INVERS ;
        uses Crt,GB,ENEX,ALG;
        label 1;
        var  n           :integer;
             A,B         :matr;
             d           :real;
      BEGIN
      1:ClrScr;
        GotoXY(10,2);
        writeln('   ЋЎа йҐ­ЁҐ ¬ ваЁжл  ');
        write('n='); readln(n);
        EN(4,n,n,A);
        DET(n,A,d);
        writeln('det=',d);
        if abs(d)<0.000001 then
        begin
          writeln('    ¬ ваЁж  ўл஦¤Ґ­  !!!');
          readln;
          readln;
          goto 1;
        end else
        INV(n,A,B);
        writeln('®Ўа в­ п ¬ ваЁж ');
        EX(n,n,B);
        readln;
        readln;
      END.