Bom esses dias eu comecei a fazer um algoritmo junto com um amigo, um compilador bem simples, e uma linguagem bem tranqueira, mas o resultado ficou bacana (ou não) pra qualquer caso eu vou deixar abaixo as linhas de comando e um link do compilador pra quem quiser testar, pra quem não souber mechr no programa apenas abra-o e depois cole as linhas, e aperte F9 pra testar.
Caso queira modifica-lo, fique a vontade.

Compilador : http://www.baixaki.com.br/download/visualg.htm


Programado por  foxdroid


Linhas:


algoritmo "Pop Quiz"
// Função : Entreterimento
// Autor : André Luis, Joao Vitor
// Data : 06/04/2011
// Seção de Declarações
var
resp1:inteiro
resp2:inteiro
resp3:literal
resp4:inteiro
conta:real
resp5:inteiro
nom:caractere
pontuacao:real
inteligencia:literal
inicio
// Seção de Comandos
escreval( " " )

escreval (" _______________________________________________________ ")
escreval (" |

---

| ")
escreval (" | ___ _______ ___ | ")
escreval (" | | \ | | | \ | ")
escreval (" | | \ | | | \ | ")
escreval (" | |____/ | | |____/ | ")
escreval (" | | | | | | ")
escreval (" | | | | | | ")
escreval (" | | |_______| | | ")
escreval (" | | ")
escreval (" | | ")
escreval (" | Autores : André Luis V. E. Emanuel | ")
escreval (" | João Vitor P. Sousa | ")
escreval (" |_______________________________________________________| ")




escreval( " " )
escreval( " " )
escreval ("Digite o seu nome: ")
leia (nom)
escreval ("Seja bem-vindo ao jogo ",nom)
escreval ("Para responder escreva o numero correspondente a cada alternativa.")
escreval( " " )
escreval( " " )
escreval (" ____________________________")
escreval ("| |")
escreval ("| Primeira pergunta |")
escreval ("|____________________________| ")
escreval ("Qual é a capital do Maranhão?")
escreval ("Alternativas: ")
escreval ("(1) - Vitoria")
escreval ("(2) - São Luis")
escreval ("(3) - Recife")
escreval ("Resposta : ")
leia (resp1)
escolha (resp1)
caso 2
pontuacao<-pontuacao+1
escreval ("Resposta correta")
escreval( " " )
escreval( " " )
escreval (" ____________________________")
escreval ("| |")
escreval ("| Segunda pergunta |")
escreval ("|____________________________| ")
escreval ("O que são dados?")
escreval ("Alternativas: ")
escreval ("(1) - Informações ")
escreval ("(2) - Sanduiche com nome legal ")
escreval ("(3) - Plural de dado ")
escreval ("Resposta : ")
leia (resp2)
escolha (resp2)
caso 1
pontuacao<-pontuacao+1
escreval ("Resposta correta!")
escreval( " " )
escreval( " " )
escreval (" ____________________________")
escreval ("| |")
escreval ("| Terceira pergunta |")
escreval ("|____________________________| ")
escreval ("Qual o seu nome ?")
leia(resp3)
se(resp3 = nom) entao
pontuacao<-pontuacao+1
escreval( " " )
escreval( " " )
escreval (" ____________________________")
escreval ("| |")
escreval ("| Quarta pergunta |")
escreval ("|____________________________| ")
escreval ("Qual é a prioridade de serviço?")
escreval ("Alternativas: ")
escreval ("(1) - Audio e Video ")
escreval ("(2) - Emails ")
escreval ("(3) - Jogos Online ")
escreval ("Resposta : ")
leia (resp4)
se(resp4 = 1 ) entao
pontuacao<-pontuacao+1
escreval ("Resposta correta")
escreval( " " )
escreval( " " )
escreval (" ____________________________")
escreval ("| |")
escreval ("| Ultima pergunta |")
escreval ("|____________________________| ")
escreval ("Se o numero de perguntas desse jogo é X qual e o resultado de:")
escreval( " " )
escreval ("x²+(25/5)*777+x³-55")
escreval( " " )
escreval("Resposta: ")
leia (resp4)
conta<-(5*5)+(5*777)+(5*5*5)-55
se(resp4 = conta) entao

pontuacao<-pontuacao+1
escreval( " " )
escreval(" ___________________________________________________ ")
escreval(" ")
escreval(" Parabéns , você concluiu o Jogo PoP-QUIZ! ")
escreval(" Voce Acertou ",pontuacao," Perguntas ")
escreval(" Inteligencia : WOW MLKAO ")
escreval("___________________________________________________")

senao
escreval("Resposta errada seu *U!@#&*4 ! ")
escreval(" Acertos : ",pontuacao)
escreval("Inteligencia : Mais Ou Menos !")
fimse
senao
escreval("Resposta errada seu *U!@#&*4 ! ")
escreval(" Acertos : ",pontuacao)
escreval("Inteligencia : Normal !")
fimse
senao
escreval("Resposta errada seu *U!@#&*4 ! ")
escreval(" Acertos : ",pontuacao)
escreval("Inteligencia : Jumento, Nao sabe nem o proprio nome --' !")
fimse

outrocaso
escreval("Resposta errada seu *U!@#&*4 ! ")
escreval(" Acertos : ",pontuacao)
escreval("Inteligencia : Tapado !")
fimescolha
outrocaso
escreval("Resposta errada Seu *U!@#&*4 ! ! ")
escreval(" Acertos : ",pontuacao)
escreval("Inteligencia : Jumento !")
fimescolha
fimalgoritmo