!Fazer um programa que calcule o valor de e^x através da série:


!e^x = 1 + x/1! + x²/2! + x³/3!+..., - ∞< x <+∞

!De modo que o mesmo difira do valor calculado através da função EXP de, no máximo, 0.0001. Sendo x um número inteiro informado pelo usuário do !programa. O programa deve mostrar na tela o valor de x, o valor calculado através da série, o valor dado pela função EXP e o número de termos !utilizados na série. OBS: Fazer uma versão SEM utilizar funções ou procedimentos.

      integer expoente,fat,varAuxiliar
      real a,serie,diferenca ,numero

      write(*,*)"Forne‡a um n£mero inteiro"
      read(*,*)numero
      a=exp(numero)
      expoente=1
      serie=1
      diferenca=a-serie

      dowhile (diferenca >=0.0001)
        fat=1
        do varAuxiliar=1,expoente
           fat=fat*varAuxiliar
        enddo
        serie=serie+(numero**expoente)/fat
        expoente=expoente+1
        diferenca=a-serie
      enddo
      if (a==1)then
      write(*,*)"O n£mero de termos ", expoente
      write(*,*)'O valor fornecido foi ',numero
      write(*,*) 'O valor da s‚rie ',serie
      write(*,*) 'O valor dado pela fun‡Æo EXP ',a

       else
        write(*,*)"O n£mero de termos ", expoente-1
        write(*,*)'O valor fornecido foi ',numero
        write(*,*) 'O valor da s‚rie ',serie
        write(*,*) 'O valor dado pela fun‡Æo EXP ',a
      endif
      end