LENGUAJE DE FORTRAN

HOLA COMPAÑEROS ES HORA DE FORTRAN:

ANTES QUE NADA AQUI UNA PEQUEÑA EXPLICACION SOBRE ESTE LENGUAJE
DE PROGRAMACION QUE QUEDO YA EN EL PASADO YA EN LA ACTUALIDAD
SE UTILIZAN DIFERENTES LENGUAJES DE PROGRAMACION PERO FORTRAN YA ES UNO
DE LOS LENGUAJES MAS ANTIGUOS QUE EXISTEN, PERO QUE AUN SE SIGUE UTILIZANDO O EN ALGUNAS APLICACIONES O AREAS

ESTE LENGUAJE DE PROGRAMACION ES UNO DE ALTO NIVEL BASADO MAS
EN OPERACIONES MATEMATICAS Y OPERACIONES LOGICAS DE COMPUTACION

EN EL SIGUIENTE EJEMPLO SE MUESTRAN UNA DE LAS SIGUIENTES APLICACIONES EN
LAS APLICACIONES DE MATEMATICAS DONDE EN ESTE PROBLEMA RELAIZA EL SENO, COSENO,TANGENTE ECT DISFRUNTENLO :

      PROGRAM FUNCIONES
     
      REAL X,Y,Z,W,A   //aqui en esta instruccion se declaran las diferentes variables a utilizar y real     significa    todos los nuemros reales 
      READ(*,*)X // aqui en esta instruccion se inserta el valor de x por medio del teclado
      X = COS(X)  // en las siguientes instrucciones es para las siguientes funciones en este caso coseno
      Y = SIN(X)
      Z = TAN(X)
      W = ASIN(X)
      A = ACOS(X)

      WRITE (*,*) 'EL COSENO ES DE:',X // en las siguientes isntrucciones aparece el resultado en la pantalla de cada funcion
      WRITE (*,*) 'EL SENO ES DE:',Y
      WRITE (*,*) 'LA TANGENTE ES DE:',Z
      WRITE (*,*) 'EL ARCO SENO ES DE:',W
      WRITE (*,*) 'EL ARCO COSENO ES DE:',A
      END

SI SE QUIERE UTILIZAR UN ESPECIE DE CICLOS SE PUEDE UTILIZAR LA ISNTRUCCION DO COMO EN EL SIGUIENTE EJEMPLO:

      PROGRAM  PROMEDIO
      REAL X,SUMA,PROM
      INTEGER N
      READ (*,*) N
      DO I = 1, N // en esta instruccion cuantas veces va a repetir el blus o el ciclo
            READ (*,*)SUMA
            SUMA = SUMA + SUMA
      END DO
      PROM = SUMA/N
      WRITE(*,*)'EL PROMEDIO ES DE:',PROM
      END


GRACIAS PO SU PREFERENCIA COMO SIEMPRE CUALQUIER DUDA O ACLARACION
PUES DEJEN SUS MENSAJES :D GRACIAS