1 réponse
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
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