[Resolvido] Exercício Estrutura "Enquanto" Visualg

[Morgtuns 0]

Oi gente, to com o seguinte problema:

 " Crie um algoritmo que peça o nome, a altura e o peso de duas pessoas e
apresente o nome e peso da mais pesada e o nome e altura da mais alta. " 

 

 Eu consegui fazer o programa receber a maior altura e o maior peso. No entanto, quando ele vai ler o nome do mais pesado ou mais alto, só faz a leitura do último nome digitado pelo usuário.

Alguma dica? tks :)

algoritmo "Pesadao"
var
    c: inteiro
    nome: caractere
    h, p, mh, mp: real
inicio
     enquanto (c < 2) faca
     c <- c + 1
     escreva("NOME: ")
     leia(nome)
     escreva("PESO: ")
     leia(p)
     escreva("ALTURA: ")
     leia(h)
     limpatela
       Se(h > mh) entao
       mh <- h
        Se(p > mp) entao
       mp <- p
        fimse
       fimse
     fimenquanto
     escreval("O maior peso é de ", nome, " pesando: ", mp, "Kg")
     escreval("A maior altura é de ", nome, "medindo: ", mh, "m")
fimalgoritmo

 

[brenodovale 1]

algoritmo "Pesadao"
var
    c: inteiro
    nome:vetor[1..2]de caractere
    h: vetor[1..2]de real
    p: vetor[1..2]de real
    mh: real
    mp: real
    aux, aux2: inteiro
inicio
     enquanto (c < 2) faca
     c <- c + 1
     escreva("NOME: ")
     leia(nome[c])
     escreva("PESO: ")
     leia(p[c])
     escreva("ALTURA: ")
     leia(h[c])
     limpatela
       Se(h[c] > mh) entao
       mh <- h[c]
       aux <- c
        Se(p[c] > mp) entao
       mp <- p[c]
       aux2 <- c
        fimse
       fimse
     fimenquanto
     escreval("O maior peso é de ", nome[aux2], " pesando: ", mp, "Kg")
     escreval("A maior altura é de ", nome[aux], "medindo: ", mh, "m")
fimalgoritmo

Ta aí cara...

[Morgtuns 0]

Ah sim! Quando eu postei esse exercícios não tinha aprendido vetores ainda. Facilita um bocado. Brigadão!