Question

Faça um algoritmo para calcular N!

Answer 1

Forma Iterativa

algoritmo "fatorialIterativo"
var
  n, fat, i: inteiro
inicio
  repita
     escreva("Informe um valor natural: ")
     leia(n)
  ate (n >= 0)

 fat <- 1 //O elemento neutro da multiplicação é 1
 para i de 0 ate (n - 1) faca
   fat <- fat * (n - i)
 fimpara

 escreva("Fatorial: ", fat)
 fimalgoritmo


Forma Recursiva

algoritmo "fatorialRecursivo"
var
  n, fat: inteiro
inicio
 repita
   escreva("Informe um valor natural: ")
   leia(n)
 ate (n >= 0)

 fat <- calcFat(n) //Chamando função que calcula o fatorial

 escreva("Fatorial: ", fat)
fimalgoritmo

calcFat(n: inteiro): inteiro
inicio
 se (n = 0) entao
   retorne 1
 senao
   retorne n * calcFat(n - 1)
 fimse
fimfuncao