Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Alguém pode me ajudar a resolver este exercício da algoritmo usando o visualg?
Faça um algoritmo que leia especie, peso , tamanho e garantir tamanho (P, M, G, GG) de 1000 aniamis o algoritmo deve imprimir.
a) o animal menos leve
b.) a quantidades de leões
c) a média dos pessos a quantidade de golfinhos de tamanho GG
eu so conseguir fazer isso?
lembrando que alinguagem é do visualg
var
especie: literal
tamanho: literal
peso: inteiro
i: inteiro
animal_maior: literal
qt_leoes, qt_golfinhos:inteiro
animal_menos_leve:real
media_peso: real
inicio
qt_leoes <- 0
qt_golfinhos <- 0
media_peso <- 0
escreval (" digite o 1º animal")
leia (especie)
escreval (" digite o peso do 1º animal")
leia (peso)
repita
escreval ("digite o tamanho do 1º animal( P - pequeno, M - medio, G - grande, GG - extra grande")
leia (tamanho)
ate (( tamanho = "P")ou(tamanho = "M")ou(tamanho = "G")ou(tamanho = "GG"))
se ( tamanho = "P" ) e ( peso < 100 ) entao
tamanho <- peso + 1
fimse
se ( ( tamanho = "M" ) e ( peso < 100 ) ) entao
qt_leoes <- qt_golfinhos + 1
fimse
animal_menos_leve <- peso
animal_maior <- tamanho
para i de 2 ate 5 faca
escreval("Digite o nome do ", i, "° animal" )
leia(especie)
escreval("Digite o peso do ", i, "° animal" )
leia(peso)
repita
escreval("Digite o tamanho do ", i, "° animal ( P - pequeno, M - medio, G - grande, GG - extra grande")
leia(tamanho)
ate ( ( tamanho = "P")ou(tamanho = "M")ou(tamanho = "G")ou(tamanho = "GG"))
se ( ( tamanho = "G" ) e ( peso < 100 ) ) entao
qt_leoes <- qt_leoes + 1
fimse
se ( ( tamanho = "GG" ) e ( peso < 100 ) ) entao
qt_golfinhos <- qt_golfinhos + 1
fimse
se ( animal_menos_leve >peso ) entao
peso <- especie
fimse
fimpara
escreval("o animal nenos leve é: ", animal_menos_leve )
escreval("A quantidade de leoes é: ", qt_leoes )
escreval("A media dos pesos é: ", media_peso )
escreval("A qt_golfinos de tamanho GG é: ", qt_golfinhos)
fimalgoritmo
EIS ai a resposta
algoritmo "semnome"
// Função :
// Autor :
// Data : 4/10/2010
// Seção de Declarações
var
especie: literal
peso, media, soma: real
tamanho: literal
animal_leve: literal
menor_peso: real
i, qt_leoes, qt_golfinhos_gg: inteiro
inicio
// Seção de Comandos
escreval("Digite a espécie: ")
leia(especie)
escreval("Digite o peso ( em quilogramas ): ")
leia(peso)
repita
escreval("Digite o tamanho ( P, M, G, GG ): ")
leia(tamanho)
ate (( tamanho = "P" ) ou ( tamanho = "M" ) ou ( tamanho = "G" ) ou ( tamanho = "GG" ))
menor_peso <- peso
animal_leve <- especie
se ( especie = "Leão" ) entao
qt_leoes <- 1
senao
qt_leoes <- 0
fimse
se ( ( especie = "Golfinho" ) e ( tamanho = "GG" ) ) entao
qt_golfinhos_gg <- 1
senao
qt_golfinhos_gg <- 0
fimse
soma <- peso
para i de 2 ate 1000 faca
escreval("Digite a espécie ( q para sair ) : ")
leia(especie)
se (especie = "q" ) entao
interrompa
fimse
escreval("Digite o peso ( em quilogramas ): ")
leia(peso)
repita
escreval("Digite o tamanho ( P, M, G, GG ): ")
leia(tamanho)
ate (( tamanho = "P" ) ou ( tamanho = "M" ) ou ( tamanho = "G" ) ou ( tamanho = "GG" ))
se ( peso < menor_peso ) entao
menor_peso <- peso
animal_leve <- especie
fimse
se ( especie = "Leão" ) entao
qt_leoes <- qt_leoes + 1
fimse
se ( ( especie = "Golfinho" ) e ( tamanho = "GG" ) entao
qt_golfinhos_gg <- qt_golfinhos_gg + 1
fimse
soma <- soma + peso
fimpara
media <- soma / 1000
escreval("O animal mais leve é: ", animal_leve)
escreval("A quantidade de leões é: ", qt_leoes)
escreval("A média dos pesos é: ", media)
escreval("A quantidade de golfinhos GG é: ", qt_golfinhos_gg)
fimalgoritmo