Ir para conteúdo

POWERED BY:

Arquivado

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

Mauro2007

Joguinho legal

Recommended Posts

algoritmo "testetopa"

 

procedimento iniciar

inicio

escreval(" _________ __________ __________ __________")

escreval(" /________/| /_________/| /_________/| /_________/|")

escreval(" |__ __|/ | ___ || | ___ || | ___ ||")

escreval(" | || | || | || | ||__| || | ||__| ||")

escreval(" | || | || | || | |/__| || | |/__| ||")

escreval(" | || | ||__| || | ______|/ | ___ ||")

escreval(" | || | |/__| || | || | || | ||")

escreval(" |__|/ |_________|/ |__|/ |__|/ |__|/")

escreval(" ____ _ _--_ ____")

escreval(" / / / / / | / /__ / / /")

escreval(" /___/ /___/ / |_/ / / /___/")

escreval(" _________ __________ __________ __________")

escreval(" /________/| /_________/| /_________/| /_________/|")

escreval(" |__ __|/ | ___ || | ___ || | ___ ||")

escreval(" | || | || | || | ||__| || | ||__| ||")

escreval(" | || | || | || | |/__| || | |/__| ||")

escreval(" | || | ||__| || | ______|/ | ___ ||")

escreval(" | || | |/__| || | || | || | ||")

escreval(" |__|/ |_________|/ |__|/ |__|/ |__|/")

escreval()

escreval(" 1 - INICIA O JOGO")

escreval(" 2 - INSTRUÇÕES")

escreval(" 3 - SAIR")

fimprocedimento

 

procedimento al

inicio

valores[1]<-0.01

valores[2]<-1

valores[3]<-5

valores[4]<-10

valores[5]<-25

valores[6]<-50

valores[7]<-75

valores[8]<-100

valores[9]<-200

valores[10]<-300

valores[11]<-400

valores[12]<-500

valores[13]<-750

valores[14]<-1000

valores[15]<-5000

valores[16]<-10000

valores[17]<-25000

valores[18]<-50000

valores[19]<-75000

valores[20]<-100000

valores[21]<-200000

valores[22]<-300000

valores[23]<-400000

valores[24]<-500000

valores[25]<-750000

valores[26]<-1000000

aleatorio 1, 26

para x de 1 ate 26 faca

leia(r1)

enquanto maleta[r1]<>0 faca

leia(r1)

fimenquanto

maleta[r1]<-valores[x]

fimpara

aleatorio off

fimprocedimento

 

procedimento desenha

inicio

limpatela

escreval(" ___-__-___ ___-__-___ ___-__-___ ___-__-___ ")

escreval(" |----------| |----------| |----------| |----------|")

escreval(" | ",mal[23]," | | ",mal[24]," | | ",mal[25]," | | ",mal[26]," |")

escreval(" |__________| |__________| |__________| |__________|")

escreval(" ___-__-___ ___-__-___ ___-__-___ ___-__-___ ___-__-___ ")

escreval(" |----------| |----------| |----------| |----------| |----------|")

escreval(" | ",mal[18]," | | ",mal[19]," | | ",mal[20]," | | ",mal[21]," | | ",mal[22]," |")

escreval(" |__________| |__________| |__________| |__________| |__________|")

escreval(" ___-__-___ ___-__-___ ___-__-___ ___-__-___ ")

escreval(" |----------| |----------| |----------| |----------|")

escreval(" | ",mal[14]," | | ",mal[15]," | | ",mal[16]," | | ",mal[17]," |")

escreval(" |__________| |__________| |__________| |__________|")

escreval(" ___-__-___ ___-__-___ ___-__-___ ___-__-___ ")

escreval(" |----------| |----------| |----------| |----------|")

escreval(" | ",mal[10]," | | ",mal[11]," | | ",mal[12]," | | ",mal[13]," |")

escreval(" |__________| |__________| |__________| |__________|")

escreval(" ___-__-___ ___-__-___ ___-__-___ ___-__-___ ___-__-___ ")

escreval(" |----------| |----------| |----------| |----------| |----------|")

escreval(" | ",0,"",mal[5]," | | ",0,"",mal[6]," | | ",0,"",mal[7]," | | ",0,"",mal[8]," | | ",0,"",mal[9]," |")

escreval(" |__________| |__________| |__________| |__________| |__________|")

escreval(" ___-__-___ ___-__-___ ___-__-___ ___-__-___ ")

escreval(" |----------| |----------| |----------| |----------|")

escreval(" | ",0,"",mal[1]," | | ",0,"",mal[2]," | | ",0,"",mal[3]," | | ",0,"",mal[4]," |")

escreval(" |__________| |__________| |__________| |__________|")

escreval()

fimprocedimento

 

procedimento vrSairam

inicio

limpatela

escreval("Valores que já saíram: ")

escreval()

para x de 1 ate 26 faca

se sairam[x] <> 0 entao

escreval(sairam[x])

fimse

fimpara

escreval()

escreva("pressione ENTER para continuar")

leia(b)

fimprocedimento

 

procedimento rodadas

inicio

x <- q

enquanto cont < q faca

se x = 1 entao

escreva("Falta abrir", x," maleta, escolha uma maleta : ")

senao

escreva("Faltam abrir", x," maletas, escolha uma maleta : ")

fimse

leia (n)

enquanto (n < 1) ou (n > 26) faca

se x = 1 entao

escreva("Falta abrir", x," maleta, escolha uma maleta : ")

senao

escreva("Faltam abrir", x," maletas, escolha uma maleta : ")

fimse

leia (n)

fimenquanto

limpatela

escreval()

escreval(" _______![=====]!________")

escreval(" / !! !! /| ")

escreval(" /_______________________/ | ")

escreval(" | |/|")

escreval(" |========================| |")

escreval(" | | |")

se n < 10 entao

escreval(" | 0",n," | |")

senao

escreval(" | ",n," | |")

fimse

escreval(" | |/|")

escreval(" |========================| /")

escreval(" |________________________|/")

escreval()

escreval()

escreval()

 

// abre a maleta

escreval("pressione ENTER para abrir a maleta")

leia(b)

limpatela

escreval()

escreval(" _______![=====]!________")

escreval(" /_______!!_____!!_______/| ")

escreval(" | || ")

escreval(" | ||")

escreval(" | ||")

se maleta[n] = 0.01 entao

escreval(" R$",maleta[n],"")

senao

escreval(" R$",maleta[n],".00")

fimse

escreval(" | ||")

escreval(" | ||")

escreval(" | ||")

escreval(" |_______________________|/")

escreval(" /_______________________/","/")

escreval(" / /","/")

escreval(" /_______________________/","/")

escreval(" /_______________________/","/")

escreval(" ========================")

escreval("pressione ENTER para continuar")

leia(b)

 

//redesenha as maletinhas a cada maleta qua abre

cont2 <- n

mal[cont2] <- 0

desenha

cont <- cont + 1

x <- x - 1

sairam[n] <- maleta[n]

maleta[n] <- 0

fimenquanto

escreva("pressione ENTER para continuar")

leia(b)

fimprocedimento

 

procedimento banco

inicio

limpatela

escreval(" ___________")

escreval(" ( (=) )\")

escreval(" | _________ ||")

escreval(" ||'' ==|||")

escreval(" ||Banqueiro|||")

escreval(" ||chamando.|||")

escreval(" || |||")

escreval(" ||_________|||")

escreval(" (============))")

escreval(" /(on)<>(off)/","/")

escreval(" / [1][2][3] /","/")

escreval(" / [4][5][6] /","/")

escreval(" / [7][8][9] /","/")

escreval(" / [*][0][#] /","/")

escreval(" / -=- /","/")

escreval(" (___________(","/")

escreval()

escreval()

escreval("BANQUEIRO CHAMANDO!")

escreval("pressione ENTER para atender")

LEIA(O)

limpatela

escreval()

escreval()

escreval("O VALOR OFERECIDO PELO BANQUEIRO É: ")

escreval()

escreval()

escreval()

escreval()

escreval()

escreval(" VOCÊ TOPA OU NÃO TOPA?")

escreval()

escreval()

escreval(" 1-SIM 2-NÃO")

escreval()

escreval()

escreval()

escreval()

fimprocedimento

 

procedimento fim

inicio

limpatela

escreval(" OBRIGADO POR PARTICIPAR!")

escreval()

escreval()

escreval()

escreval()

escreval()

escreval()

escreval("Desenvolvido por: MAURO GONÇALVES DE SOUZA © Copyright - 2007")

escreval()

escreval("http:/","/maurogoncalves.v10.com.br")

fimalgoritmo

fimprocedimento

 

var

sairam : vetor[1..26] de real

mal : vetor [1..27] de inteiro

maleta :vetor [1..26] de real

valores :vetor [1..26] de real

r1, q : inteiro

x, a, i, m, n, j, y, cont, cont2, entrada, suaMaleta : inteiro

b, O: caractere

 

inicio

 

iniciar

leia(entrada)

escolha entrada

 

caso 3

fim

fimalgoritmo

 

caso 2

limpatela

escreval()

escreval("Esse jogo é igual aquele do Silvio Santos (Topa ou não Topa),")

escreval("Digite 1 para começar. Escolha sua maleta inicial, depois vá eliminando")

escreval("as outras maletas, quando o banqueiro fizer uma oferta por sua maleta")

escreval("você pode topar ou não. (1 = TOPA 2 = NÃO TOPA ")

escreval()

escreval()

escreval("Pressione ESC a qualquer momento para encerrar")

escreval()

fimalgoritmo

 

caso 1

al// inicializa as maletas com valores aleatoriamente colocados

 

// desenha as maletas

mal[1] <- 1

para j de 1 ate 26 passo 1 faca

mal[j+1] <- j + 1

fimpara

 

// usuario escolhe uma maleta

desenha

escreva("Escolha sua maleta: ")

leia (m)

enquanto (m < 1) ou (m > 26) faca

desenha

escreva("Escolha sua maleta: ")

leia (m)

fimenquanto

suaMaleta <- m

limpatela

escreval()

escreval("Sua maleta: _______![=====]!________")

escreval(" / !! !! /| ")

escreval(" /_______________________/ | ")

escreval(" | |/|")

escreval(" |========================| |")

escreval(" | | |")

se m < 10 entao

escreval(" | 0",m," | |")

senao

escreval(" | ",m," | |")

fimse

escreval(" | |/|")

escreval(" |========================| /")

escreval(" |________________________|/")

escreval()

escreval()

escreval()

escreval("pressione ENTER para continuar")

leia(b)

cont2 <- m

mal[m] <- 0

 

// desenha as maletas

desenha

 

// primeira rodada usuario escolhe 6 maletas

q <- 6

rodadas

banco

fimescolha

leia(n)

escolha n

caso 1

fim

 

caso 2

// entra pra segunda rodada

vrSairam

desenha

q <- 5

banco

vrSairam

fim

fimescolha

fimalgoritmo

 

 

 

 

 

OLHA SÓ GALERA FIZ ESSE JOGO TIPO O TOPA OU NÃO TOPA DO SILVIO SANTO NO VISUALG 2.0..... SÓ QUE NÃO ESTÁ FUNCIONANDO BEM... PRECISO DE UMAS DICAS... SE ALGUEM TIVER INTERESSE NO JOGO... ME MANDA UM E-MAIL QUE EU MANDO O ARQUIVO DO JOGO PRA GENTE TERMINAR... ABRAÇO.

 

mauro@itamaster.com.br

MAURO

Compartilhar este post


Link para o post
Compartilhar em outros sites

Quais os erros observados?

 

OLHA SÓ GALERA FIZ ESSE JOGO TIPO O TOPA OU NÃO TOPA DO SILVIO SANTO NO VISUALG 2.0..... SÓ QUE NÃO ESTÁ FUNCIONANDO BEM... PRECISO DE UMAS DICAS...

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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