FORTRAN

Aquí les dejo unos codigos de Fortran ya que ya no lo pude instalar en mi lap pues solo pongo los codigos.

c------Programa que determina la cantidad de raices de una función cuadratica

write(6,*) 'Coeficiente de la variable que esta al cuadrado: '
read(5,*) a
write(6,*) 'Coeficiente de la variable lineal: '
read(5,*) b

write(6,*) 'valor independiente: '
read(5,*) c

discriminante= (b*b)-(4*a*c)

if discriminante.LT.0 then
write(6,*) 'No tiene una raiz real '

else
if discriminante.EQ.0 then
res=(-1*b)/(2*a)res=(-1*b)/(2*a)
write(6,*) 'Tiene una raiz real es: ' res
else
res=((-1*b)-(sqrt(descriminante)))/(2*a)
res2=((-1*b)+(sqrt(descriminante)))/(2*a)
write(6,*) 'Tiene 2 raices reales son: '

endif
endif

stop
endif

PROGRAMA DE FIBONACCI

PROGRAMA FIBONACCI
REAL A,B,C
INTEGER N
WRITE(*,*)'CUANTOS NUMEROS DE FIBONASSI QUIERES:'
READ (*,*) N
A = 1
DO I = 1, n
READ (*,*)SUMA
SUMA = SUMA + SUMA
END DO
PROM = SUMA/N
WRITE(*,*)'EL PROMEDIO ES DE:',PROM
END

PROGRAMA DE NUMEROS PRIMOS
NUMEROS PRIMOS
PROGRAM FIBONASSI
REAL A,B,C
INTEGER N
WRITE(*,*)'QUE NUMERO QUIERES SABER SI ES PRIMO'
READ (*,*) N
A = 1
B = 0
C = 0
DO I = 1, n
C = A + B
B = A
A = C
WRITE(*,*)'NUMERO DE FIBONASI NUMERO:',I
WRITE(*,*)C
END DO
END


Bueno espero que les guste bye.