Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Thiago Serrilho

Problemas com o Visualg 2.0

Por , em Algoritmos & Outras Tecnologias

Recommended Posts

Thiago Serrilho    0

Thiago Serrilho
Postado

Eu estou desenvolvendo um algorítmo que nada mais é do que um jogo de perguntas e respostas, semelhante ao Jogo do Milhão utilizando o Visualg 2.0.

O meu problema é o seguinte: Eu estou desenvolvendo o jogo para ter 3 níveis de dificuldade que são 1 = fácil, 2 = médio e 3= difícil. Cada nível de dificuldade terá 6 perguntas com quatro opções de resposta, sendo uma a correta. Eu quero criar uma malha de repetição que repita o algorítmo da parte onde pede o nível de dificuldade (no início destacado em vermelho) até o fim. Pois no começo eu posso escolher qualquer nível de dificuldade e quando as 6 perguntas deste nível terminarem, ele teria que retornar no começo novamente para escolher um outro nível e começar tudo dinovo até responder todas as perguntas e no final mostrará o total de perguntas respondidas, o total de acertos e de erros.

 

Vou colocar o algorítmo em português estruturado para que vcs possam entender melhor. ____________________________________________________________________________

 

ALGORITMO "RESPOSTAS"

// Função : JOGO DE PERGUNTAS E RESPOSTAS

// Autor : THIAGO CESAR SERRILHO

// EMAIL: webserrilho@gmail.com

// Data : 16/1/2006

VAR

CONT, CONTP, CONTC, CONTE :INTEIRO

PARTICIPANTE, DIFICULDADE, RESP, RESPP :CARACTER

INICIO

ESCREVAL ("JOGO DE PERGUNTAS E RESPOSTAS")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVA ("NOME DO PARTICIPANTE: ")

LEIA (PARTICIPANTE)

ESCREVAL ("-------------------------------------------------------------------")

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif OBS: A FUNÇÃO REPITA TEM QUE COMEÇAR A PARTIR DESTE PONTO. http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

ESCREVAL ("ESCOLHA O NÍVEL DE DIFICULDADE")

ESCREVAL ("1 = FACIL 2 = MÉDIO 3 = DIFICIL")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("QUAL O NÍVEL DE DIFICULDADE?")

LEIA (DIFICULDADE)

// PRIMEIRA PARTE DAS PERGUNTAS - NÍVEL 1 (FÁCIL)

SE (DIFICULDADE = "1") ENTAO

ESCREVAL ("PERGUNTAS DE NÍVEL FÁCIL")

ESCREVAL ("AS PERGUNTAS DE NÍVEL FÁCIL VALEM 2 PONTOS CADA")

ESCREVAL ("-------------------------------------------------------------------")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("O QUE ESTÁ ESCRITO NA BANDEIRA DO BRASIL?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) ORDEM E REGRESSO")

ESCREVAL (" B) ORDEM E RETROCESSO")

ESCREVAL ("C) ORDEM E PROGRESSO")

ESCREVAL ("D) PROGRESSO E ORDEM")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

SE (RESP = "C") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA C")

CONTE <- (CONTE + 1)

FIMSE

ESCREVAL ("")

ESCREVAL ("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")

ESCREVAL ("")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("QUAL O SIGNIFICADO DA PALAVRA INGLESA 'HORSE'?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) CASA")

ESCREVAL (" B) CAVALO")

ESCREVAL ("C) ELEFANTE")

ESCREVAL ("D) HIPOPÓTAMO")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

FIMREPITA

SE (RESP = "B") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA B")

CONTE <- (CONTE + 1)

FIMSE

ESCREVAL ("")

ESCREVAL ("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")

ESCREVAL ("")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("COMO É CONHECIDO O INVENTOR DO AVIÃO?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) SANTOS DUMONT")

ESCREVAL (" B) SANTOS DUMORRO")

ESCREVAL ("C) SANTOS DRUMOM")

ESCREVAL ("D) SANTOS SILVA")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

FIMREPITA

SE (RESP = "A") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA A")

CONTE <- (CONTE + 1)

FIMSE

ESCREVAL ("")

ESCREVAL ("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")

ESCREVAL ("")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("QUAL DOS ÍTENS ABAIXO NÃO É UMA FRUTA?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) LARANJA")

ESCREVAL (" B) MAÇÃ")

ESCREVAL ("C) QUIABO")

ESCREVAL ("D) GOIABA")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

FIMREPITA

SE (RESP = "C") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA C")

CONTE <- (CONTE + 1)

FIMSE

ESCREVAL ("")

ESCREVAL ("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")

ESCREVAL ("")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("QUAL É O SATÉLITE NATURAL DA TERRA?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) SPUTNICK")

ESCREVAL (" B) RUBLE")

ESCREVAL ("C) SOYUS")

ESCREVAL ("D) LUA")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

FIMREPITA

SE (RESP = "D") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA D")

CONTE <- (CONTE + 1)

FIMSE

ESCREVAL ("")

ESCREVAL ("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")

ESCREVAL ("")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("QUAL DOS ESTADOS ABAIXO NÃO POSSUI PRAIAS?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) RIO DE JANEIRO")

ESCREVAL (" B) CEARÁ")

ESCREVAL ("C) GOIÁS")

ESCREVAL ("D) SÃO PAULO")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

FIMREPITA

SE (RESP = "C") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA C")

FIMSE

CONTE <- (CONTE + 1)

ESCREVAL ("")

SE (CONT > 1) ENTAO

ESCREVAL ("você RESPONDEU",CONT," PERGUNTAS.")

SENAO

ESCREVAL ("você RESPONDEU",CONT," PERGUNTA.")

FIMSE

SE (CONTC > 1) ENTAO

ESCREVAL ("você ACETOU...",CONTC," PERGUNTAS - PONTUAÇÃO:",CONTC * 2," PONTOS.")

SENAO

ESCREVAL ("você ACETOU...",CONTC," PERGUNTA - PONTUAÇÃO:",CONTC * 2," PONTO.")

FIMSE

SE (CONTE > 1) ENTAO

ESCREVAL ("você ERROU....",CONTE," PERGUNTAS.")

SENAO

ESCREVAL ("você ERROU....",CONTE," PERGUNTA.")

FIMSE

FIMSE

//SEGUNDA PARTE DAS PERGUNTAS - NÍVEL 2 (MÉDIO)

SE (DIFICULDADE = "2") ENTAO

ESCREVAL ("PERGUNTAS DE NÍVEL MÉDIO")

ESCREVAL ("EM FASE DE CONCLUSÃO")

FIMSE

//TERCEIRA PARTE DAS PERGUNTAS - NÍVEL 3 (DIFICIL)

SE (DIFICULDADE = "3") ENTAO

ESCREVAL ("PERGUNTAS DE NÍVEL DIFICIL")

ESCREVAL ("EM FASE DE CONCLUSÃO")

FIMSE

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif TEM QUE REPETIR ATÉ AQUI http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

FIMALGORITMO

 

--------------------------------------------------------------------------------------

Compartilhar este post

Link para o post
Compartilhar em outros sites

EsCoVa    0

EsCoVa
Postado

Eu estou desenvolvendo um algorítmo que nada mais é do que um jogo de perguntas e respostas, semelhante ao Jogo do Milhão utilizando o Visualg 2.0.

O meu problema é o seguinte: Eu estou desenvolvendo o jogo para ter 3 níveis de dificuldade que são 1 = fácil, 2 = médio e 3= difícil. Cada nível de dificuldade terá 6 perguntas com quatro opções de resposta, sendo uma a correta. Eu quero criar uma malha de repetição que repita o algorítmo da parte onde pede o nível de dificuldade (no início destacado em vermelho) até o fim. Pois no começo eu posso escolher qualquer nível de dificuldade e quando as 6 perguntas deste nível terminarem, ele teria que retornar no começo novamente para escolher um outro nível e começar tudo dinovo até responder todas as perguntas e no final mostrará o total de perguntas respondidas, o total de acertos e de erros.

 

Vou colocar o algorítmo em português estruturado para que vcs possam entender melhor. ____________________________________________________________________________

 

ALGORITMO "RESPOSTAS"

// Função : JOGO DE PERGUNTAS E RESPOSTAS

// Autor : THIAGO CESAR SERRILHO

// EMAIL: webserrilho@gmail.com

// Data : 16/1/2006

VAR

CONT, CONTP, CONTC, CONTE :INTEIRO

PARTICIPANTE, DIFICULDADE, RESP, RESPP :CARACTER

INICIO

ESCREVAL ("JOGO DE PERGUNTAS E RESPOSTAS")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVA ("NOME DO PARTICIPANTE: ")

LEIA (PARTICIPANTE)

ESCREVAL ("-------------------------------------------------------------------")

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif OBS: A FUNÇÃO REPITA TEM QUE COMEÇAR A PARTIR DESTE PONTO. http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

ESCREVAL ("ESCOLHA O NÍVEL DE DIFICULDADE")

ESCREVAL ("1 = FACIL 2 = MÉDIO 3 = DIFICIL")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("QUAL O NÍVEL DE DIFICULDADE?")

LEIA (DIFICULDADE)

// PRIMEIRA PARTE DAS PERGUNTAS - NÍVEL 1 (FÁCIL)

SE (DIFICULDADE = "1") ENTAO

ESCREVAL ("PERGUNTAS DE NÍVEL FÁCIL")

ESCREVAL ("AS PERGUNTAS DE NÍVEL FÁCIL VALEM 2 PONTOS CADA")

ESCREVAL ("-------------------------------------------------------------------")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("O QUE ESTÁ ESCRITO NA BANDEIRA DO BRASIL?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) ORDEM E REGRESSO")

ESCREVAL (" B) ORDEM E RETROCESSO")

ESCREVAL ("C) ORDEM E PROGRESSO")

ESCREVAL ("D) PROGRESSO E ORDEM")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

SE (RESP = "C") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA C")

CONTE <- (CONTE + 1)

FIMSE

ESCREVAL ("")

ESCREVAL ("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")

ESCREVAL ("")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("QUAL O SIGNIFICADO DA PALAVRA INGLESA 'HORSE'?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) CASA")

ESCREVAL (" B) CAVALO")

ESCREVAL ("C) ELEFANTE")

ESCREVAL ("D) HIPOPÓTAMO")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

FIMREPITA

SE (RESP = "B") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA B")

CONTE <- (CONTE + 1)

FIMSE

ESCREVAL ("")

ESCREVAL ("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")

ESCREVAL ("")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("COMO É CONHECIDO O INVENTOR DO AVIÃO?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) SANTOS DUMONT")

ESCREVAL (" B) SANTOS DUMORRO")

ESCREVAL ("C) SANTOS DRUMOM")

ESCREVAL ("D) SANTOS SILVA")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

FIMREPITA

SE (RESP = "A") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA A")

CONTE <- (CONTE + 1)

FIMSE

ESCREVAL ("")

ESCREVAL ("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")

ESCREVAL ("")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("QUAL DOS ÍTENS ABAIXO NÃO É UMA FRUTA?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) LARANJA")

ESCREVAL (" B) MAÇÃ")

ESCREVAL ("C) QUIABO")

ESCREVAL ("D) GOIABA")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

FIMREPITA

SE (RESP = "C") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA C")

CONTE <- (CONTE + 1)

FIMSE

ESCREVAL ("")

ESCREVAL ("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")

ESCREVAL ("")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("QUAL É O SATÉLITE NATURAL DA TERRA?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) SPUTNICK")

ESCREVAL (" B) RUBLE")

ESCREVAL ("C) SOYUS")

ESCREVAL ("D) LUA")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

FIMREPITA

SE (RESP = "D") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA D")

CONTE <- (CONTE + 1)

FIMSE

ESCREVAL ("")

ESCREVAL ("¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤¤")

ESCREVAL ("")

CONT <- (CONT + 1)

ESCREVAL ("PERGUNTA Nº",CONT)

ESCREVAL ("QUAL DOS ESTADOS ABAIXO NÃO POSSUI PRAIAS?")

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("A) RIO DE JANEIRO")

ESCREVAL (" B) CEARÁ")

ESCREVAL ("C) GOIÁS")

ESCREVAL ("D) SÃO PAULO")

ESCREVAL ("-------------------------------------------------------------------")

REPITA

ESCREVAL ("QUAL É A RESPOSTA CERTA?")

LEIA (RESP)

ESCREVAL ("TEM CERTEZA QUE É A LETRA '",RESP,"' ? - (S = SIM, N = NÃO)")

LEIA (RESPP)

ATE (RESPP = "S")

FIMREPITA

SE (RESP = "C") ENTAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA CORRETA")

CONTC <- (CONTC + 1)

SENAO

ESCREVAL ("-------------------------------------------------------------------")

ESCREVAL ("RESPOSTA ERRADA")

ESCREVAL ("RESPOSTA CORRETA: LETRA C")

FIMSE

CONTE <- (CONTE + 1)

ESCREVAL ("")

SE (CONT > 1) ENTAO

ESCREVAL ("você RESPONDEU",CONT," PERGUNTAS.")

SENAO

ESCREVAL ("você RESPONDEU",CONT," PERGUNTA.")

FIMSE

SE (CONTC > 1) ENTAO

ESCREVAL ("você ACETOU...",CONTC," PERGUNTAS - PONTUAÇÃO:",CONTC * 2," PONTOS.")

SENAO

ESCREVAL ("você ACETOU...",CONTC," PERGUNTA - PONTUAÇÃO:",CONTC * 2," PONTO.")

FIMSE

SE (CONTE > 1) ENTAO

ESCREVAL ("você ERROU....",CONTE," PERGUNTAS.")

SENAO

ESCREVAL ("você ERROU....",CONTE," PERGUNTA.")

FIMSE

FIMSE

//SEGUNDA PARTE DAS PERGUNTAS - NÍVEL 2 (MÉDIO)

SE (DIFICULDADE = "2") ENTAO

ESCREVAL ("PERGUNTAS DE NÍVEL MÉDIO")

ESCREVAL ("EM FASE DE CONCLUSÃO")

FIMSE

//TERCEIRA PARTE DAS PERGUNTAS - NÍVEL 3 (DIFICIL)

SE (DIFICULDADE = "3") ENTAO

ESCREVAL ("PERGUNTAS DE NÍVEL DIFICIL")

ESCREVAL ("EM FASE DE CONCLUSÃO")

FIMSE

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif TEM QUE REPETIR ATÉ AQUI http://forum.imasters.com.br/public/style_emoticons/default/excl.gif

FIMALGORITMO

 

--------------------------------------------------------------------------------------

Kra faz o seguinte: Pede se o kra quer jogar otra vez....

 

tipw, inicializa uma variavel resp com 'n': tipo caracter.

 

 

entao no comeco do programa, faz um enquanto.

 

tpw assim:

 

enquanto(resp=='n')

faca

//teu algoritmo....

//no final você pergunta

escreva("Jogar novamente (s/n)?");

leia resp;

//se for s ele sai se nao volta la

fim_enquanto

 

ve se entende..

 

flws

Compartilhar este post

Link para o post
Compartilhar em outros sites

Thiago Serrilho    0

Thiago Serrilho
Postado

Valeu EsCoVa, deu certinho...

 

Eu estava tentando fazer isso com a função "enquanto", fiz quase igual o que você colocou, mas estava esquecendo de uma coisinha muito importante, eu tinha que ter colocardo assim...

 

RESP <- ("S")

ENQUANTO RESP = "S" FACA

 

 

Tipo, já tem que ser iniciado com a primeira resposta como 'S' = sim.

 

Valew pela ajuda, obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Algoritmos & Outras Tecnologias
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito