[Resolvido] Algoritmo visualg

[Ferreira_27 0]

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

[Ferreira_27 0]

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