O Algoritmo "Quiz" - VisualG
Por: Maria Helena Bianchi • 9/6/2019 • Projeto de pesquisa • 1.431 Palavras (6 Páginas) • 2.530 Visualizações
algoritmo "PROJETO_JOGO"
// Função :
// Autor :
// Data : 24/05/2019
// Seção de Declarações
var
opcao, op, pontos: inteiro
nome, pausar, resp: caracter
score: vetor[0..10] de inteiro
jogador: vetor [0..10] de caracter
i, aux, aux1: inteiro
inicio
// Seção de Comandos
limpatela
escreval ("Teste de Raciocinio Lógico!") // tela de inicio e boas vindas ao jogador
escreval
escreval
repita
escreval("O que deseja fazer: ") //verificação das opções, teste ok!
escreval
escreval("1 - Sair do Teste.")
escreval("2 - Iniciar Teste.")
escreval("3- Visualizar Ranking.")
leia (op)
escolha op
caso 1
opcao <- 1
caso 2
escreva ("Digite seu nome....: ") //cadastro de apelido
leia (nome)
jogador[10] <- nome
escreval ("Seja bem vindo, ", nome,"!!")
escreval
escreval
escreval ("Iniciando teste, pressione enter para continuar...")
leia (pausar)
limpatela
escreval("Pergunta 1: ") // inicio perguntas
escreval
escreval("Numa jaula onde há coelhos e pombos, podem contar-se 35 cabeças e 94 patas. Quantos animais há de cada classe?")
escreval("a - 10 coelhos e 26 pombas")
escreval("b- 10 coelhos e 25 pombas")
escreval("c- 11 coelhos e 24 pombos")
escreval("d - 12 coelhos e 23 pombas")
escreva("Digite a alternativa correta..: ")
leia (resp)
se ((resp = "d") ou (resp = "D")) entao
pontos <- pontos + 100
escreval("Alternativa correta!! Você ganhou 100 pontos!")
escreva("Pressione enter para continuar...")
leia(pausar)
senao
escreval("Alternativa errada!!")
escreva("Pressione enter para continuar...")
leia(pausar)
fimse
limpatela
escreval("Pergunta 2: ")
escreval
escreval("Quantos quartos são 6 metades?")
escreval
escreval("a- 14 quartos")
escreval("b - 10 quartos")
escreval("c - 12 quartos")
escreval("d - 8 quartos")
escreva("Digite a alternativa correta..: ")
leia (resp)
se ((resp = "c") ou (resp = "C")) entao
pontos <- pontos + 100
escreval("Alternativa correta!! Você ganhou 100 pontos!")
escreva("Pressione enter para continuar...")
leia(pausar)
senao
escreval("Alternativa errada!!")
escreva("Pressione enter para continuar...")
leia(pausar)
fimse
limpatela
escreval("Pergunta 3: ")
...