Cálculo do Fatorial de um Vetor

Prévia do material em texto

algoritmo "VetorFatorial"
// Autor : Gustavo Matheus Morinaga Cardoso
// Data : 03/06/2020
// Seção de Declarações
var
 i, j, entrada: inteiro
 A, B: vetor[0..4] de inteiro
inicio
 Para i de 0 ate 4 faca
 Escreva("Digite um número inteiro: ")
 Leia(entrada)
 A[i] <- entrada
 
 B[i] <- 1
 
 Para j de entrada ate 1 passo -1 faca
 B[i] <- B[i] * j
 FimPara
 FimPara
 LimpaTela
 Escreva("Vetor: ")
 Para i de 0 ate 4 faca
 Escreva(A[i])
 FimPara
 Escreval("")
 Escreva("Fatorial: ")
 Para i de 0 ate 4 faca
 Escreva(B[i])
 FimPara
 Escreval("")
fimalgoritmo