Input and Output

5. Vectores unidimensionales

Un vector es un conjunto de variables relacionadas entre si que tienen el mismo nombre y son del mismo tipo (REAL, ENTERAS o CARACTERES).
El acceso a cada una de las variables ser realiza variando su índice. Por ejemplo, un grupo de 10 estudiantes han recibido notas por un trabajo entregado. Si la nota de cada estudiante es almacenada en una variable: MARK1, MARK2, ....,MARK10, para saber la nota media deberíamos de realizar la siguiente operación:

SUM = (MARKl+MARK2+MARK3+...+MARK9+MARK10)/10.0

Es más conveniente utilizar un vector MARK(I) donde I puede tomar valores entre 1 y 10, y utilizar un DO

        SUM = 0.
      DO I = 1,10
         SUM = SUM + MARK(I)
      ENDDO
	SUM=SUM/10.0

Pensar en las ventajas de esta forma de asignación si quisieramos sumar 100 o 1000 datos.

Un vector debe de ser declarado al principio del programa. Para ello hay que establecer el tipo de datos que contendrán, seguido por el nombre del vector y el número total de elementos del mismo.

INTEGER NAME1(n)
REAL NAME2(n)

donde:

NAMEl y NAME2 son los nombres de los vectores y n es su dimensión

     INTEGER MARK(10)
    REAL TABLE(25), TIME(50)

A veces queremos que los índices del vector comienzen en un número diferente de 1. En ese caso se ha de utilizar la forma extendida de declaración:

INTEGER NAME1(L:U)
REAL NAME2(L:U)

donde:: NAME1 y NAME2 son los nombres de los vectores. L es el valor del índice más bajo y; U el valor del índice más alto.

    INTEGER ERROR(-10:10)
   REAL SECNDS(0:50)
Valores iniciales para los vectores

Se pueden utilizar la forma estandar para asignar valores a los elementos de un vector:

         MARK(1) = 23.5
       MARK(2) = 45
       MARK(10) = 85

        DO I = l,N
        READ *, AGE(I)
      ENDDO

Sin embargo, para vectores de gran tamaño es más eficaz leer sus valores iniciales de un archivo:

          COUNT = 15
        DO J = 1, COUNT
        READ (1,*) NAME(J), NUMBER(J)
	  ENDDO

Ahora ir a los ejercicios y trabajarlos.