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