fortran 77 fortran 77 fortran 77 fortran 77 fortran 77 fortran 77

FORTRAN 77
Input - Output
FORTRAN 77
Esempio 2 [1/3]
READ ({#unità},{#FORMAT}) {variabili}
WRITE ({#unità},{#FORMAT}) {variabili}
es: READ(*,*)I,J READ*,I,J
es: READ(*,10)I,J
10 FORMAT(I5,I6)
es: WRITE(*,*)I,J PRINT*,I,J
es: WRITE(*,*)’riga=‘,I,’colonna=‘,J
es: WRITE(*,10)I,J
10 FORMAT(‘riga=’,I5,2X,‘colonna=’,I6)
PROGRAM ORD
PARAMETER (N=10)
REAL X(N),XCOPY(N),TEMP
C
C ORDINAMENTO CRESCENTE VETTORE X (N ELEMENTI)
C
C
inserimento vettore:
WRITE(*,*) ‘INSERIRE’,N,’ELEMENTI’
DO 10 I=1,N
READ(*,*) X(I)
XCOPY(I)=X(I)
10 CONTINUE
FORTRAN 77
Esempio 2 [2/3]
FORTRAN 77
Esempio 2 [3/3]
C
ordinamento vettore:
DO 30 I=1,N-1
MIN=I
DO 20 J=I+1,N
IF (X(J).LT.X(MIN)) MIN=J
20 CONTINUE
IF (MIN.GT.I) THEN
TEMP=X(MIN)
X(MIN)=X(I)
X(I)=TEMP
ENDIF
30 CONTINUE
C
stampa vettori:
WRITE(*,*) ‘VETTORE INSERITO’
DO 40 I=1,N
WRITE(*,*) XCOPY(I)
40 CONTINUE
WRITE(*,*) ‘VETTORE ORDINATO’
DO 50 I=1,N
WRITE(*,*) X(I)
50 CONTINUE
STOP
END
5