algoritmo "3.20"
var
//Altere o programa de cálculo do fatorial, permitindo ao usuário calcular o fatorial várias vezes e limitando o //fatorial a números inteiros positivos e menores que 16.
OP:CARACTER
FAT,I,N:INTEIRO
inicio
ENQUANTO OP<>"S" FACA
ESCREVAL("-----------------------------------------")
ESCREVAL("DIGITE UM NUMERO PARA ACHAR O FATORIAL")
ESCREVAL("----------------------------------------------")
ESCREVAL("VOCE DEVE DIGITAR UM NUMERO MAIOR QUE UM E MENOR QUE 16")
LEIA(N)
FAT:=1
SE ((N>=1) E (N<=16)) ENTAO
PARA I:=1 ATE N FACA
FAT:=FAT*I
FIMPARA
ESCREVAL("O VALOR DO FATORIAL DE ",N," É: ",FAT)
ESCREVAL("--------------------------------------")
SENAO
ESCREVAL("-------------------------------------")
ESCREVAL("VOCÊ DIGITOU UM NUMERO FORA DA FAIXA")
ESCREVAL("VOCE DEVE DIGITAR UM NUMERO MAIOR QUE UM E MENOR QUE 16")
FIMSE
ESCREVAL("SE DESEJAR SAIR DIGITE S")
LEIA(OP)
FIMENQUANTO
ESCREVAL("OBRIGADO POR USAR O PROGRAMA")
fimalgoritmo
Nenhum comentário:
Postar um comentário
Obrigado! Em breve publicaremos seu comentário