Gives an "if" error but does not say what error it is! visualg

1
algoritmo "tinder"

var

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

   pri, seg, ter: logico

   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
    
asked by anonymous 20.04.2018 / 18:02

1 answer

0
algoritmo "tinder"

var

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

   pri, seg, ter: logico

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

   formula: inteiro
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)

  formula <- 0

  se (pri = "L") entao
     formula <- formula + 1
  fimse

  se (pri = "M") entao
     formula <- formula + 2
  fimse

  se (seg = "I") entao
     formula <- formula + 8
  fimse

  se (seg = "B") entao
     formula <- formula + 16
  fimse

  se (ter = "C") entao
     formula <- formula + 32
  fimse

  se (ter = "S") entao
     formula <- formula + 64
  fimse


  se (formula = 41) entao
     andressa <- verdadeiro
  fimse
  se (formula = 71) entao
     eduarda <- verdadeiro
  fimse

  se (formula = 73) entao
     clarisse <- verdadeiro
  fimse

  se (formula = 49) entao
     maria <- verdadeiro
  fimse

  se (formula = 82) entao
     monica <- verdadeiro
  fimse

  se (formula = 50) entao
     leticia <- verdadeiro
  fimse

  se (formula = 42) entao
     ana <- verdadeiro
  fimse

  se (formula = 74) entao
     joana <- verdadeiro
  fimse

  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
    
20.04.2018 / 18:30