0
algoritmo "tinder"

var

   l, m, i, b, c, s: logico

   pri, seg, ter: caracter

   andressa, monica, leticia, eduarda, maria, ana, clarisse, joana: logico

inicio

      escreval ("----------------------------------")

      escreval ("        PAR PERFEITO              ")

      escreval ("----------------------------------")

      escreval ("Qual tipo de garota você procura? ")

      escreval ("Loira ou Morena? [L]/[M]")

      l <- verdadeiro

      leia(pri)

      escreval ("Inteligente ou Bonita? [I]/[B]")

      i <- verdadeiro

      leia(seg)

      escreval ("Carinhosa ou Safada? [C]/[S]")

      c <- verdadeiro

      leia(ter)

      andressa <- pri=="l" e seg=="i" e ter=="c"

      eduarda <- pri=="l" e seg=="b" e ter=="s"

      clarisse <- pri=="l" e seg=="i" e ter=="s"

      maria <- pri=="l" e seg=="b" e ter=="c"

      monica <- pri=="m" e seg=="b" e ter=="s"


      leticia <- pri=="m" e seg=="b" e ter=="c"

      ana <- pri=="m" e seg=="i" e ter=="c"

      joana <- pri=="m" e seg=="i" e ter=="s"

      se (andressa = verdadeiro) entao

         escreva ("Seu par perfeito é Andressa")

      fimse

      se (eduarda = verdadeiro) entao

         escreva ("Seu par perfeito é Eduarda")

      fimse

      se (clarisse = verdadeiro) entao

         escreva ("Seu par perfeito é Clarisse")

      fimse

      se (Maria = verdadeiro) entao

         escreva ("Seu par perfeito é Maria")

      fimse

      se (monica = verdadeiro) entao

         escreva ("Seu par perfeito é Mônica")

      fimse

      se (Leticia = verdadeiro) entao

         escreva ("Seu par perfeito é Letícia")

      fimse

      se (ana = verdadeiro) entao

         escreva ("Seu par perfeito é Ana")

      fimse

      se (joana = verdadeiro) entao

         escreva ("Seu par perfeito é Joana")

      fimse

fimalgoritmo

1 Resposta 1

0

Depurando seu código notei que as variáveis que representam os nomes femininos do tipo logico estavam recebendo a variável l que por sua vez estava sendo alimentada com verdadeiro após a impressão da primeira solicitação. Veja a seguir: inserir a descrição da imagem aqui

Usando seu próprio modelo, desfiz a forma como você alimentou as variáveis e eliminei as variáveis l, m, b, i, c, s: logico. Veja como ficou:

se ((pri = "l") e (seg = "i") e (ter = "c")) entao
   andressa <- verdadeiro
senao
   se ((pri = "l") e (seg = "b") e (ter = "s"))entao
      eduarda <- verdadeiro
   senao
      se ((pri = "l") e (seg = "i") e (ter = "s")) entao
         clarisse <- verdadeiro
      senao
         se ((pri = "l") e (seg = "b") e (ter = "c")) entao
            maria <- verdadeiro
         senao
            se ((pri = "m") e (seg = "b") e (ter = "s")) entao
               monica <- verdadeiro
            senao
               se ((pri = "m") e (seg = "i") e (ter = "c")) entao
                  ana <- verdadeiro
               senao
                  se ((pri = "m") e (seg = "b") e (ter = "c")) entao
                     leticia <- verdadeiro
                  senao
                     se ((pri = "l") e (seg = "i") e (ter = "s")) entao
                        joana <- verdadeiro
                     senao
                        se (((pri <> "l") ou (pri <> "m")) ou ((seg <> "i") ou (seg <> "b")) ou ((ter <> "c") ou (ter <> "s"))) entao
                           escreval("Erro: O caracter informando não é válido, tente novamente")
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimse
fimse

Veja que funcionou: inserir a descrição da imagem aqui

E completei verificando se o que foi digitado é válido: inserir a descrição da imagem aqui

Segue abaixo o código usado completo:

algoritmo "semnome"
// Função :
// Autor :
// Data : 20/04/2018
// Seção de Declarações 
var
   pri, seg, ter: caracter
   andressa, monica, leticia, eduarda, maria, ana, clarisse, joana: logico

inicio
// Seção de Comandos 
escreval ("----------------------------------")
escreval ("        PAR PERFEITO              ")
escreval ("----------------------------------")

escreval ("Qual tipo de garota você procura? ")
escreval ("Loira ou Morena? [L]/[M]")
leia(pri)

escreval ("Inteligente ou Bonita? [I]/[B]")
leia(seg)

escreval ("Carinhosa ou Safada? [C]/[S]")
leia(ter)

se ((pri = "l") e (seg = "i") e (ter = "c")) entao
   andressa <- verdadeiro
senao
   se ((pri = "l") e (seg = "b") e (ter = "s"))entao
      eduarda <- verdadeiro
   senao
      se ((pri = "l") e (seg = "i") e (ter = "s")) entao
         clarisse <- verdadeiro
      senao
         se ((pri = "l") e (seg = "b") e (ter = "c")) entao
            maria <- verdadeiro
         senao
            se ((pri = "m") e (seg = "b") e (ter = "s")) entao
               monica <- verdadeiro
            senao
               se ((pri = "m") e (seg = "i") e (ter = "c")) entao
                  ana <- verdadeiro
               senao
                  se ((pri = "m") e (seg = "b") e (ter = "c")) entao
                     leticia <- verdadeiro
                  senao
                     se ((pri = "l") e (seg = "i") e (ter = "s")) entao
                        joana <- verdadeiro
                     senao
                        se (((pri <> "l") ou (pri <> "m")) ou ((seg <> "i") ou (seg <> "b")) ou ((ter <> "c") ou (ter <> "s"))) entao
                           escreval("Erro: O caracter informando não é válido, tente novamente")
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimse
fimse



se (andressa = verdadeiro) entao
   escreval ("Seu par perfeito é Andressa")
senao
   se (eduarda = verdadeiro) entao
      escreval ("Seu par perfeito é Eduarda")
   senao
      se (clarisse = verdadeiro) entao
         escreval ("Seu par perfeito é Clarisse")
      senao
         se (Maria = verdadeiro) entao
            escreval ("Seu par perfeito é Maria")
         senao
            se (monica = verdadeiro) entao
               escreval ("Seu par perfeito é Mônica")
            senao
               se (Leticia = verdadeiro) entao
                  escreval ("Seu par perfeito é Letícia")
               senao
                  se (ana = verdadeiro) entao
                     escreval ("Seu par perfeito é Ana")
                  senao
                     se (joana = verdadeiro) entao
                        escreval ("Seu par perfeito é Joana")
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimse
fimse

fimalgoritmo
4
  • Valeu paulo! realmente, as variáveis estavam soltas... Muito obrigado! Commented 26/04/2018 às 12:08
  • blz @FelipeFernandes, se foi proveitoso e conclusivo, por favor marca a resposta como útil; Commented 26/04/2018 às 12:47
  • to tentando fazer isso ... mas ainda não descobrir como fazer kkkkk primeira vez que uso esse site Commented 26/04/2018 às 12:52
  • ja descobri kkkk valeu ai, boa sorte Commented 26/04/2018 às 12:53

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .