Algoritmos com estruturas iterativas

Prévia do material em texto

Universidade de Caxias do Sul
Centro de Computação e Tecnologia da Informação
Disciplina: 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; e
b) o nome do homem mais alto e da mulher mais magra.
algoritmo "questao 1"
var i:inteiro
alt,alto,peso,magra,medalt,medpeso,numh,numm:numerico
nome,sexo,nalto,nmagra:literal
inicio
medalt<-0
numh<-0
medpeso<-0
numm<-0
para 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
 fimse
fimpara
escreval ("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: inteiro
valor:numerico
inicio
valor <- 5000
tempo<-0
repita
 tempo<-tempo+1
 valor<-valor + valor*0.006737
ate valor>=20000
anos<-tempo\12
meses<-tempo%12
escreval ("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:inteiro
inicio
escreval ("Informe um numero")
leia (num)
qtdeimpar<-0
enquanto (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)
fimenquanto
se (qtdeimpar=0) entao
 escreval ("Nenhum numero impar foi informado")
senao
 escreval ("Menor numero impar informado: ",menor)
fimse
fimalgoritmo