Mauro2007 0 Denunciar post Postado Novembro 14, 2007 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
Kandrade 7 Denunciar post Postado Novembro 15, 2007 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