TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

O Algoritmo "Quiz" - VisualG

Por:   •  9/6/2019  •  Projeto de pesquisa  •  1.431 Palavras (6 Páginas)  •  2.542 Visualizações

Página 1 de 6

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: ")

...

Baixar como (para membros premium)  txt (4.3 Kb)   pdf (31.7 Kb)   docx (8 Kb)  
Continuar por mais 5 páginas »
Disponível apenas no TrabalhosGratuitos.com