QUESTÃO 4A - LISTA 2 SEGUNDO ESTÁGIO ICC

PROGRAM LISTA2_QUESTAO4A
!LOCAIS DE MEMÓRIA
REAL SENX, X, FAT
INTEGER N, NF, I
!ENTRADA DE DADOS
WRITE(*,*) 'ESCREVA O VALOR DO X'
READ(*,*) X
WRITE(*,*) 'ESCREVA O NUMERO DE TERMOS'
READ(*,*) NF
!CÁLCULOS
SENX = 0
DO N= 0, NF, 1
    FAT = 1
    DO I = 2, 2*N+1, 1
        FAT = FAT*I
    END DO
    SENX = SENX + (-1)**N*X**(2*N+1)/FAT
END DO
!SAÍDA DE DADOS
WRITE(*,*) 'SENO AULA=', SENX
WRITE(*,*) 'SENO BIBLIOTECA=', SIN(X)
END PROGRAM