Questo sito contribuisce alla audience di

program ordinamatrice

Il programma ordina gli elementi di una matrice di interi in maniera non decrescente

program ordinamatrice
* il programma ordina gli elementi di una matrice di interi in maniera
* non decrescente
integer A(10,10),v(100)
write(*,*)’Inserisci il numero di righe e colonne della matrice’
read(*,*)M,N
write(*,*)’Inserisci gli elementi della matrice riga per riga’
do 10 i=1,m
read(*,*)(A(I,J),J=1,n)
10 continue
write(*,*)’Matrice inserita ‘
do 15 i=1,m
write(*,45)(A(I,J),J=1,n)
15 continue
k=1
do 21 i=1,m
do 21 j=1,n
V(K)=A(i,j)
k=k+1
21 continue
* ordinamento del vettore
do 25 k=1,m*m-1
do 25 l=k+1,n*m
if (V(K).gt.V(L)) then
ic=V(K)
V(K)=V(L)
V(L)=ic
end if
25 continue
k=1
do 30 i=1,m
do 30 j=1,n
a(i,j)=v(k)
k=k+1
30 continue
write(*,*)’Matrice ordinata ‘
do 55 i=1,m
write(*,45)(A(i,j),j=1,n)
55 continue
45 format(2x,10i5)
stop
end