Algoritmo5 1

ALGORITMO 01

algoritmo "Compra de Produtos" var quant, opcao: Inteiro preco, total: Real produto: Caracter inicio // Seção de Comandos
Escreval ("Compra de Produtos")
Escreval ("1 - Continuar Comprando")
Escreval ("2 - Finalizar Compra")
Escreva ("Opção: ")
Leia (opcao)
Escreval ("") total<-0 Enquanto (opcao <> 2) faca Escreva ("Produto: ") Leia(produto) Escreva ("Quantidade: ") Leia (quant) Escreva ("Preço Unitário: ") Leia (preco) Escreval ("-----------------------") Se (quant>0) e (preco>0) entao total<-total+quant*preco Senao Escreval ("Valores Inválidos!") Fimse Escreval ("Compra de Produtos") Escreval ("1 - Continuar Comprando") Escreval ("2 - Finalizar Compra") Escreva ("Opção: ") Leia (opcao) Escreval ("")
Fimenquanto
Escreva ("Total Gasto pela Empresa: ",total) fimalgoritmo ALGORITMO 02

algoritmo "Pesquisa sobre Produto" var sexo, opcao: Inteiro rsim, rnao, rsimh, rnaoh, rsimm, rnaom, entrev : Inteiro porc: Real inicio // Seção de Comandos rsim<-0 rnao<-0
Enquanto (entrev<10) faca Escreval ("Sexo") Escreval ("1 - Masculino") Escreval ("2 - Feminino") Escreva ("Sexo do Candidato: ") Leia (sexo) Escreval ("Resposta") Escreval ("1 - Sim") Escreval ("2 - Não") Escreva ("Resposta Escolhida: ") Leia (opcao) Se (sexo<>1)e(sexo<>2)entao Escreval ("Opção Nao Aceita!") Senao Se (opcao<>1)e(opcao<>2) entao Escreval ("Opção Nao Aceita!") Fimse Fimse Se (sexo = 1) e (opcao = 1) entao rsimh<-rsimh+1 entrev<-entrev+1 Senao Se (sexo = 1) e (opcao = 2) entao