Προγραμματισμός FORTRAN > Παραδείγματα > Αθροισμα Στοιχείων Πίνακα

Να γραφεί πρόγραμμα που να προσθέτει τα στοιχεία ενός πίνακα (3x3) κατά γραμμές, κατά στήλες και στο σύνολό τους, και στο τέλος να εμφανίζει τα σύνολα δεξιά και κάτω από τον πίνακα:

Κώδικας:

PROGRAM sumstoixeiwn
IMPLICIT NONE
  INTEGER, PARAMETER:: N=3, M=3
  INTEGER:: i, j, A(N,M), S, Sgr(N), Sst(M)
  WRITE(*,*) ' Dwse ta stoixeia tou Pinaka (3x3)'
  READ(*,*) ((A(i,j),j=1,M),i=1,N)
!
  S = 0
  DO i = 1, N
    DO j = 1, M
      S = S + A(i,j)
    END DO
  END DO
  DO i = 1, N
    Sgr(i) = 0
    DO j = 1, M
      Sgr(i) = Sgr(i) + A(i,j)
    END DO
  END DO
  DO j = 1, M
    Sst(j) = 0
    DO i = 1, N
      Sst(j) = Sst(j) + A(i,j)
    END DO
  END DO
!
  WRITE(*,*) ' A | Sgr'
  DO i = 1, N
    WRITE(*,*) (A(i,j),j=1,M),' |', Sgr(i)
  END DO
  WRITE(*,*) '---------------------------------------------'
  WRITE(*,*) (Sst(j),j=1,M),' |', S
  WRITE(*,*) ' Sst | S'
END

Εκτέλεση:

 Dwse ta stoixeia tou Pinaka (3x3)
1, 2, 3, 4, 5, 6, 7, 8, 9

        A      | Sgr
   1    2    3 |  6
   4    5    6 | 15
   7    8    9 | 24
 --------------------
  12   15   18 | 45
       Sst     |   S