Algoritmo em Visualg - O resultado será dizer, pelas idades crescentes, quem é o avô, quem é o filho e quem é o neto(a diferença entre elas deverá ser de, no mínimo, 20 anos)

Entre em contato com a gente!

Ajuda e Doações ao Blog- 

Pix mvf5system@gmail.com

Um programa no visualg(portugol) onde o usuário digitará três nomes do mesmo sexo e suas idades (a diferença entre elas deverá ser de, no mínimo, 20 anos). O resultado será dizer, pelas idades crescentes, quem é o avô, quem é o filho e quem é o neto.

algoritmo "semnome"

// Função :

// Autor :

// Data : 19/09/2017

// Seção de Declarações

var

      n1,n2,n3:caracter

      idade1, idade2, idade3, aux1, aux2, aux3, aux4, aux5, aux6, aux7, aux8, aux9, aux10, aux11, aux12:inteiro

inicio

    escreva("Informe o primeiro nome e idade? ")

    leia(n1)

    escreva("Informe a idade? ")

    leia(idade1)

     escreva("Informe o segundo nome ? ")

     leia(n2)

    repita

      escreva("Informe a idade? ")

      leia(idade2)

      aux1 <- idade1 - idade2

      aux2 <- idade2 - idade1

    ate (aux1 >= 20) ou (aux2 >= 20)

     escreva("Informe o terceiro nome? ")

    leia(n3)

    repita

      escreva("Informe a idade? ")

      leia(idade3)

      aux1 <- idade1 - idade3

      aux5 <- idade3 - idade2

      aux6 <- idade2 - idade1

      

      aux2 <- idade3 - idade1

      aux7 <- idade1 - idade2

      aux8 <- idade2 - idade3

      

      aux3 <- idade2 - idade3

      aux9 <- idade3 - idade1

      aux10 <- idade1 - idade2

      

      aux4 <- idade3 - idade2

      aux11 <- idade2 - idade1

      aux12 <- idade1 - idade3

      

    ate ((aux1 >= 20) e (aux5 >= 20))ou ((aux1 >= 20) e (aux6 >= 20))  ou ((aux2 >= 20) e (aux7 >= 20))ou ((aux2 >= 20) e (aux8 >= 20))  ou  ((aux3 >= 20) e (aux9 >= 20))ou ((aux3 >= 20) e (aux10 >= 20)) ou       ((aux4 >= 20) e (aux11 >= 20))ou ((aux4 >= 20) e (aux12 >= 20))

        

        

     se (idade1 < idade2) e (idade2 < idade3)  entao

           escreval("Filho: ",n1)

           escreval("Pai: ",n2)

          escreval("Avo: ",n3)

      senao

          se (idade1 < idade2) e (idade2 > idade3)  entao

          escreval("Filho: ",n1)

          escreval("Pai: ",n3)

          escreval("Avo: ",n2)

      senao

          se (idade1 > idade2) e (idade1 < idade3)  entao

          escreval("Filho: ",n2)

          escreval("Pai: ",n1)

          escreval("Avo: ",n3)

      senao

          se (idade1 > idade3) e (idade2 > idade1)  entao

          escreval("Filho: ",n3)

          escreval("Pai: ",n1)

          escreval("Avo: ",n2)

      senao

          se (idade1 > idade3) e (idade2 < idade3)  entao

          escreval("Filho: ",n2)

          escreval("Pai: ",n3)

          escreval("Avo: ",n1)

      senao

          se (idade1 > idade2) e (idade2 > idade3)  entao

          escreval("Filho: ",n3)

          escreval("Pai: ",n2)

          escreval("Avo: ",n1)

          fimse

          fimse

          fimse

          fimse

          fimse

          fimse

fimalgoritmo

Trabalhos.: 
E-mail: mvf5system@gmail.com 
Blog: http://mvf5-system.blogspot.com.br/ 
Facebook: https://www.facebook.com/mvf5systems