Fibonacci Fortran

!PROGRAMA QUE IMPRIME LOS PRIMEROS TERMINOS DE
!FIBONACCI USANDO EL CICLO DO
!E.S.I.Q.I.E I.P.N A 29 DE MARZO DEL 2011
!ELABORA M.EN C. HIPOLITO RUIZ MARTINEZ
PROGRAM PRACT11
IMPLICITNONE
INTEGER PEN,ULT,K,TER
PEN=0
ULT=1
PRINT*,"TERMINOS DE FIBONACCI POSICION"
PRINT*," ",PEN," 1 "
PRINT*," ",ULT,"2 "
DO K=3,20,1
TER=PEN+ULT
PRINT*," ",TER," ",K
PEN=ULT
ULT=TER
END DO
END PROGRAM

**************************RESULTADOS*****************************TERMINOS DE FIBONACCI POSICION
0 1
1 2
1 3
24
3 5
5 6
8 7
13 8
219
34 10
55 11
89 12
144 13
23314
377 15
610 16
987 17
1597 182584 19
4181 20
Program Completed
Press Enter to Continue.

! Last change: IPN 29 Mar 2011 6:39 pm
!PROGRAMA QUEIMPRIME LOS PRIMEROS 40 TERMINOS
!FIBONACCI USANDO EL CICLO DO Y CALCULA LA MEDIA Y LA DESVIACION ESTANDAR
!E.S.I.Q.I.E I.P.N A 29 DE MARZO DEL 2011
!ELABORA M.EN C. HIPOLITO RUIZ MARTINEZPROGRAM PRACT12
IMPLICIT NONE
REAL::SS,DES,MED
INTEGER PEN,ULT,K,TER,SUMA,I
PEN=0
ULT=1
PRINT*,"TERMINOS DE FIBONACCI POSICION"
PRINT*," ",PEN," 1"...