کد فرترن روش ماتریس معکوس در حل دستگاه معادلات program matrix_inverse_method implicit none INTEGER::i2,i,j,k,p,i1,j1,n,j2,i3 REAL::s,detr,deta REAL,ALLOCATABLE::a(:,:),b(:,:),c(:,:),f(:),x(:,:),t(:,:),g(:,:) PRINT* PRINT*," _ _ _ _ _ _ " PRINT*," | a11 a12 ..a1n1 | | x1 | | b1 | " PRINT*," | | | | | | " PRINT*," | a21 a22 ..a2n1 | X | x2 | = | b2 | " PRINT*," | . | | . | | . | " ...