El proceso de lectura de un vector consiste en leer y asignar un valor a cada uno de sus elementos.
Enviado por freddyalavarez • 23 de Mayo de 2016 • Trabajo • 1.018 Palabras (5 Páginas) • 367 Visitas
Rutina de Lectura de Vectores:
El proceso de lectura de un vector consiste en leer y asignar un valor a cada uno de sus elementos.
Diagrama de Flujo: DF Seudolenguaje: SL
LEER N[pic 1]
PARA I=1,N
LEER X(I)
FIN-PARA
Rutina de Lectura en Fortran 90: (Sin formato)
INTEGER ó REAL X(50)
INTEGER I, N
PRINT *,’INGRESE LA DIMENSION DEL VECTOR’
READ *, N
DO I=1,N
PRINT *,’INGRESE EL ELEMENTO’, I
READ *, X(I)
ENDDO
Rutina de Lectura en Fortran 90: (Con formato)
INTEGER ó REAL X(50)
INTEGER I, N
PRINT 10
10 FORMAT (//T10, 'INGRESE LA DIMENSION DEL VECTOR X= ',$ )
READ *, N
DO I=1,N
PRINT 20, I
READ *, X(I)
20 FORMAT (//T2 ,11X, 'INGRESE EL ELEMENTO X(',I2,')= ',$)
ENDDO
Rutina de Escritura de Vectores:
El proceso de escritura de un vector consiste en escribir cada uno de los valores de sus elementos.
Diagrama de Flujo: DF Seudolenguaje: SL
PARA I = 1, N[pic 2]
ESCRIBIR X(I)
FIN-PARA
Rutina de Escritura en Fortran 90: (Sin formato)
PRINT *,’EL VECTOR RSULTANTE ES:’
DO I=1,N
PRINT *,X(I)
ENDDO
Rutina de Escritura en Fortran 90: (Con formato)
PRINT 50
50 FORMAT (//T10,'EL VECTOR RESULTANTE ES:')
DO I=1,N
PRINT 60, I, X(I)
60 FORMAT (//T13,'X(',I2,')=',I2) Si el vector es de valores enteros. ó
60 FORMAT (//T13,'X(',I2,')=',F7.2) Si el vector es de valores reales.
...