Universidade de Caxias do SulCentro de Computação e Tecnologia da InformaçãoDisciplina: SIS0389A – Algoritmos Professora: Maria de Fátima Webber do Prado Lima

Observação: Todos os algoritmos desenvolvidos deverão obrigatoriamente utilizar estruturas iterativas.

Segunda Avaliação – 24/10/2011

1) (4,0) Escreva um algoritmo que leia o nome, o sexo ("M" ou "F"), a altura e o peso de um grupo de 50 pessoas e informe:a) as médias das alturas dos homens e dos pesos das mulheres; eb) o nome do homem mais alto e da mulher mais magra.

algoritmo "questao 1"var i:inteiroalt,alto,peso,magra,medalt,medpeso,numh,numm:numericonome,sexo,nalto,nmagra:literaliniciomedalt<-0numh<-0medpeso<-0numm<-0para i de 1 ate 4 faca escreval ("Digite o nome: ") leia (nome) escreval ("Digite o sexo: ") leia (sexo) escreval ("Digite a altura: ") leia (alt) escreval ("Digite o peso: ") leia (peso) se (sexo="m") ou (sexo="M") entao numh<-numh+1 medalt<-medalt+alt se (alt>alto) ou (numh=1) entao alto<-alt nalto<-nome fimse fimse se (sexo="f") ou (sexo="F") entao medpeso<-medpeso + peso numm<-numm+1 se (peso< magra) ou (numm=1) entao magra<-peso nmagra<-nome fimse fimsefimparaescreval ("Média das alturas dos homens: ",medalt/numh)

escreval ("Média do peso das mulheres: ",medpeso/numm)escreval (nalto, " é o homem mais alto com altura de ",alto)escreval (nmagra," é a mulher mais magra com peso de ",magra)fimalgoritmo

2) (3,0) Gilberto aplicou na poupança R$ 5.000,00. Faça um algoritmo que calcule e mostre quanto tempo (anos e meses) demorará para que o valor aplicado na poupança alcance o valor de R$ 20.000,00. Considere um rendimento fixo de 0,6737% ao mês.

Algoritmo "aplicação"var tempo,meses,anos: inteirovalor:numericoiniciovalor <- 5000tempo<-0repita tempo<-tempo+1 valor<-valor + valor*0.006737ate valor>=20000anos<-tempo\12meses<-tempo%12escreval ("Para obter uma renda de R$ ",valor," Gilberto demorará ",anos," anos e ",meses," meses.")fimalgoritmo

3) (3,0) Fazer um algoritmo que leia números até que seja informado um número negativo (descartando-o) e escreva o menor número impar informado ou escreva "nenhum número impar informado" caso isso ocorra.algoritmo "questao3"var num,menor,qtdeimpar:inteiroinicioescreval ("Informe um numero")leia (num)qtdeimpar<-0enquanto (num>0) faca se (num%2<>0) entao se (qtdeimpar=0) entao menor<-num fimse se ((qtdeimpar>0) e (num<menor)) entao menor<-num fimse qtdeimpar<-qtdeimpar+1 fimse leia (num)fimenquantose (qtdeimpar=0) entao escreval ("Nenhum numero impar foi informado")senao escreval ("Menor numero impar informado: ",menor)fimsefimalgoritmo