Punto informatico Network
Login Esegui login | Non sei registrato? Iscriviti ora (è gratuito!)
Username: Password:
  • Annuncio Pubblicitario

[fortran 77] aiuto elementare

Il forum per tutti i developer. Leggere attentamente il regolamento di sezione prima di postare.

[fortran 77] aiuto elementare

Messaggioda sonep » ven feb 10, 2006 6:21 pm

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!
People are strange when you're a stranger
Faces look ugly when you're alone
Women seem wicked when you're unwanted
Avatar utente
sonep
Silver Member
Silver Member
 
Messaggi: 1017
Iscritto il: dom mag 11, 2003 5:18 pm
Località: Basilicata

Messaggioda sonep » sab feb 11, 2006 1:12 am

che deficente....invece di quotare ho modificato!!!!
scusate!!! [fischio]

comunque il vecchio codice è rimasto nell'allegato!!
People are strange when you're a stranger
Faces look ugly when you're alone
Women seem wicked when you're unwanted
Avatar utente
sonep
Silver Member
Silver Member
 
Messaggi: 1017
Iscritto il: dom mag 11, 2003 5:18 pm
Località: Basilicata


Torna a Programmazione

Chi c’è in linea

Visitano il forum: Nessuno e 1 ospite

cron
Powered by phpBB © 2002, 2005, 2007, 2008 phpBB Group
Traduzione Italiana phpBB.it

megalab.it: testata telematica quotidiana registrata al Tribunale di Cosenza n. 22/09 del 13.08.2009, editore Master New Media S.r.l.; © Copyright 2008 Master New Media S.r.l. a socio unico - P.I. 02947530784. GRUPPO EDIZIONI MASTER Spa Tutti i diritti sono riservati. Per la pubblicità: Master Advertising