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