Question

6. O perfil de uma pessoa pode ser determinado a partir da sua data de
nascimento, conforme exemplificado a seguir. Dada uma data de nascimento,
informe em qual

d9f99b1d5d6a0ee671d6e93656d1797a.pdf

Answer 1

Algoritmo "seleção_de_perfil"
//
// O   perfil   de  uma   pessoa   pode   ser   determinado   a
// partir   da   sua   data   de nascimento,
// conforme  exemplificado  a  seguir.  Dada  uma
// data de nascimento,informe em qual perfil a pessoa se encaixa.

Var
   timido, sonhador, paquerador, atraente, irresistivel :inteiro
   i :inteiro
   data, ano :real
   soma_1, soma_2, divisao,final ,final_2 :real

Inicio
   escreval("para sair digite `0`")


   enquanto "data" <> 0 faca
      para i de 1 ate 10 faca

         escreval("Digite a dia e mes de nascimento como descrito [XxXx]")
         leia(data)
         limpatela
         escreval("Agora digite o ano")
         leia(ano)
         limpatela
         soma_1 <- ano + data
         final <- soma_1 / 100
         final_2 <- soma_1-1900
         soma_2 <- final+final_2
         divisao <- soma_2 / 5

         senao
            se divisão =1 então
               escreval("timido")
            senao
               se divisão =2 então
                  escreval("sonhador")
               senao
                  se divisão =3 então
                     escreval("paquerador")
                  senao
                     se divisão =4 então
                        escreval("atraente ")
                     senao
                        se divisão =5 então
                           escreval("irresistivel")
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimpara
      fimenquanto

FIMALGORITMO