Comatrice avec fortran

nidhaljemaia -  
 sof -
Bonjour,

svp eske vous pouvez m aidé a trouver un code sur fortran pour calculer le comatrice??

1 réponse

sof
 
parameter (mligne=3, mcolon=3)
write(*,*) ' maximum une matrice 3*3 par exemple'
double precision a(mligne, mcolon)
integer nligne, ncolon

write(*,*)
& 'Nombre de lignes de votre matrice'
read(*,*) nligne
write(*,*)
& 'Nombre de colonnes votre matrice'
read(*,*) ncolon

write(*,*) 'Matrice a '
do i=1,nligne
read(*,*) (a(i,j), j=1,ncolon)
enddo

do j=1,ncolon
do i=1,nligne
write(*,*) a(i,j)
enddo
enddo
0