c *****************************************************************
c * *
c *===============================================================*
c * PROGRAMA PARA CALCULAR [C] = [A][B] *
c *===============================================================*
c * *
c *****************************************************************
c
program Aula1
c
implicit none
c
c--- Declaração de variaveis
integer NTERMOS
real*8 n1, n2, n3
integer j
real*8 GN
c
WRITE(*,*)' ====================================================='
$
WRITE(*,*)' * PROGRAMA PARA AVALIAR A SEQUENCIA DE FIBBONACCI *'
$
WRITE(*,*)' * Curso de Introdução a Informatica *'
$
WRITE(*,*)' * Prof: Alexandre da Silva Galvão *'
$
WRITE(*,*)' ====================================================='
c
10 format(/,' Numero de termos da sequencia=')
c
c--- ABERTURA DE UM ARQUIVO DE SAIDA
c =============================
open(unit=2,file='SAIDA.txt',status='unknown')
c
c--- OBTENÇÃO DA SEQUENCIA
c =============================
write(*,10)
read(*,*)NTERMOS
N1 = 1.d0
N2 = 1.d0
c
write(2,20)
write(2,30)1, N1, 1.0
write(2,30)2, N2, 1.0
c
20 format(/,' N TERMO NUMERO_DE_OURO ')
c
If ( NTERMOS >= 3) then
Do J=3,NTERMOS
N3 = N2 + N1
GN = N3 / N2
write(2,30) J, N3, GN
N1 = N2
N2 = N3
End do
End If
c
30 format(/i5,(2x,5e15.6),(2x,5e15.6))
c
close (2)
stop 'FIM DA ANALISE: VERIFIQUE OS RESULTADOS !!!'
c
END
c
               (
geocities.com/br)