Comando enquanto algoritmo
Por: Mota96 • 30/7/2015 • Trabalho acadêmico • 1.058 Palavras (5 Páginas) • 301 Visualizações
Aluno: Matheus Mota Leonis –- UC14100761
Questão 01:
var
num, cont, acum: real
inicio
ESCREVAL ("Digite o número ou zero para sair")
Leia (num)
ENQUANTO (num <> 0) FACA
cont <- cont+1 //processo de contagem
acum <- acum + num
escreval ("Digite o número ou zero para sair")
leia (num)
FIMENQUANTO
ESCREVAL ("Foram digitados", cont, "números!")
// Seção de Comandos
Fimalgoritmo
Questão 02:
var
num, cont: inteiro
num1:real
inicio
ESCREVAL ("Digite o número ou zero para sair")
Leia (num)
ENQUANTO (num <> 0) FACA
se(num mod 3)= 0 ENTAO
cont <- cont+1 //processo de contagem
FIMSE
escreval ("Digite o número ou zero para sair")
leia (num)
FIMENQUANTO
ESCREVAL ("Quantidade de números multiplos de 3:", cont, " números!")
// Seção de Comandos
Fimalgoritmo
Questão 03:
var
num, cont,acum: inteiro
num1, media:real
inicio
// Seção de Comandos
ESCREVAL ("Digite o número ou zero para sair")
Leia (num)
ENQUANTO (num <> 0) FACA
se(num mod 3)= 0 ENTAO
cont <- cont+1 //processo de contagem
acum <- acum + num
FIMSE
escreval ("Digite o número ou zero para sair")
leia (num)
FIMENQUANTO
se (num = 0) entao
escreva("Não foram digitados números múltiplos de 3.")
senao
media <- acum/cont
ESCREVAL ("A média dos números multiplos de 3 é", media)
FIMSE
fimalgoritmo
Questão 04:
var
num, contPos, contNeg, tContagem, acumPos, acumNeg, TTotal : inteiro
inicio
ESCREVAL ("Digite o número ou zero para sair")
Leia (num)
ENQUANTO (num <> 0) FACA
se (num > 0) entao
contPos <- contPos +1
senao
contNeg <- contNeg +1
fimse
tContagem <- contPos + contNeg
tTotal <- acumPos + acumNeg
escreval ("Digite o número ou zero para sair: ")
leia (num)
fimenquanto
escreval ("A quantidade de números positivos é:",contPos)
escreval ("A quantidade de números negativos é:",contNeg)
escreval ("A soma total dos números:",tContagem)
fimalgoritmo
Questão 05:
var
idade: inteiro
totalPessoas: inteiro
altura: real
totalAltura: real
media: real
inicio
idade <- 1
enquanto (idade <> 0) faca
ESCREVAL ("Digite a sua idade ou zero para sair:")
Leia (idade)
ESCREVAL ("Digite a sua altura:")
leia (altura)
se(idade >= 50) entao
totalPessoas <- totalPessoas + 1
totalAltura <- altura + totalAltura
fimse
fimenquanto
media <- totalAltura / totalPessoas
escreval ("A média das alturas das pessoas com mais de 50 anos é:",media)
escreval ("A quantidade de Pessoas com mais de 50 anos:",totalPessoas)
escreval ("A soma da altura das Pessoas com mais de 50 anos:",totalAltura)
fimalgoritmo
Questão 6:
var
renda, totalRenda, totalFilhos, mediaFilhos, mediaRenda : real
filhos, opcao, totalFamilia : inteiro
inicio
// Seção de Comandos
opcao <- 1
escrevaL(" ==================== PESQUISA ELEITORAL ====================")
enquanto (opcao <> 0) faca
escreva("Informe o total da renda da familia:R$")
leia(renda)
escreva("Informe o total de filhos na familia:")
leia(filhos)
totalRenda <- totalRenda + renda
totalFilhos <- totalFilhos + filhos
totalFamilia <- totalFamilia + 1
escreva("Deseja Sair? 0 - Sim \ 1 - Nao ")
leia(opcao)
fimenquanto
mediaFilhos <- totalFilhos / totalFamilia
mediaRenda <- totalRenda / totalFamilia
escreval("Media das Rendas Familiar R$",mediaRenda)
escreval("Media de filhos ",mediaFilhos)
fimalgoritmo
Questão 07:
var
idade: inteiro
sexo : caracter
ex: caracter
opcao: inteiro
Acumf, contf, mif, acumm, acumms, contms, contmn, mims, mimn:real
inicio
// Seção de Comandos
Escreval ("Digite zero em todos os campos para finalizar:")
escreva("Informe a sua idade: ")
leia(idade)
escreval ("sexo:f/m")
...