Cálculos com Idade, Altura e Opinião de Espectadores

Prévia do material em texto

QUESTOES
Construa um algoritmo que receba a idade, a altura e o peso de várias pessoas. Calcule e imprima:
*	a quantidade de pessoas com idade superior a 50 anos;
*	a média das alturas das pessoas com idade entre 10 e 20 anos;
algoritmo "semnome"
var
Idade, cont50,cont1020:inteiro
Alt,peso,media,soma:real
Inicio
Enquanto idade<>100 faca
Escreval("digite a idade, altura e peso")
Leia(idade)
se idade=100 entao
escreval("finalizado")
senao
leia(alt,peso)
Se idade>50 entao
Cont50<-cont50+1
Fimse
Se (idade>=10) e (idade<=20) entao
Cont1020<-cont1020+1
Soma<-soma+alt
Fimse
Media<-soma/cont1020
fimse
Fimenquanto
Escreval("a quant de pessoas com idade maior que 50 é: ",cont50)
Escreval("a media das alturas será: ",media)
Fimalgoritmo
2- Faça um programa que receba a idade e a altura de varias pessoas e que calcule e mostre a media das alturas das pessoas com mais de 50 anos. Para encerrar a entrada de dados digite 200 (duzentos) para a idade
algoritmo "semnome"
var
Idade, cont50:inteiro
Alt,media,soma:real
Inicio
Enquanto idade<>200 faca
Escreval("digite a idade, altura")
Leia(idade)
se idade=200 entao
escreval("finalizado")
senao
leia(alt)
soma<-soma+alt
Se idade>50 entao
Cont50<-cont50+1
Fimse
Media<-soma/cont50
fimse
Fimenquanto
Escreval("a media das alt das pessoas com idade maior que 50 é: ",media)
Fimalgoritmo
3- Cada espectador de um cinema respondeu a um questionário no qual constava sua idade e sua opinião em relação ao filme:
Ótimo-3
Bom-2
Regular-1
Faça um programa que receba a idade e a opinião de 7 espectadores e que calcule e mostre:
A media das idades das pessoas que responderam ótimo
A quantidade de pessoas que respondeu regular
algoritmo "semnome"
var
cont,op,idade,cont1,cont3:inteiro
soma:real
Inicio
Para cont de 1 ate 7 faca
Escreval("digite a idade")
Leia(idade)
Escreval("digite sua opinião:")
	Escreval("3- ótimo")
	Escreval("2-bom")
	Escreval("1- regular")
Leia(op)
Se op = 1 entao
Cont1<-cont1+1
Fimse
Se op=3 entao
Soma<-soma+idade
Cont3<-cont3+1
Fimse
Fimpara
Escreval("o numero de pessoas que respondeu regular foi: ", cont1)
Escreval("a media das idades das pessoas que responderam otimo é:", soma/cont3)
Fimalgoritmo