[fortran 77] aiuto elementare

[sonep]

fatto!!!

Codice: Seleziona tutto

C   Esercizio livello avanzato programmazione

      program MatAv1111
      implicit none
     
C---Dichiarazioni

      integer R, C, i, j, basso, alto, app, appB, appA
      parameter (R=3)
      parameter (C=2)
      integer matrice(R,C)

C---Operazioni

      do i=1, R
           do j=1, C
               write(*,*) 'Inserisci l''elemento della matrice ', i, j
               read(*,*) matrice(i,j)
           end do
      end do
      write (*,*) 'La matrice caricata e'' questa:'
      do i=1, R
          do j=1, C
              write(*,*) matrice(i,j)
          end do
      end do
      do i=1, R
          app=0
          do j=1, C
              app=app+matrice(i,j)
          end do
          if (i.EQ.1) then
              basso = i
              alto = i
              appB = app
              appA = app
          else
              if (appB.GT.app) then
                  basso = i
                  appB = app
              else
                  if (appA.LT.app) then
                      alto = i
                      appA = app
                  end if
              end if
          end if
      end do
      write(*,*) 'Numero riga con somma degli elementi minima: ', basso
      write(*,*) 'La somma dei suoi elementi e'' ', appB
      write(*,*) 'Numero riga con somma elementi massima: ', alto
      write(*,*) 'La somma dei suoi elementi e'' ', appA
      do j=1, C
          app = matrice(basso, j)
          matrice(basso, j) = matrice(alto, j)
          matrice(alto, j) = app
      end do
      write(*,*) 'Ora le due righe sono state scambiate:'
      do i=1, R
          do j=1, C
              write(*,*) matrice(i,j)
          end do
      end do
      stop
      end

mi perdo sempre nelle stupidagini!

[sonep]

che deficente....invece di quotare ho modificato!!!!
scusate!!!

comunque il vecchio codice è rimasto nell'allegato!!