DAEMON Posted April 27, 2017 Share Posted April 27, 2017 31 minutos atrás, O Programador disse: valeu entendi o recado Tambem entendi, pelo visto tem membro querendo exclusividade no forum. Melhore somente o video, padrões são otimos para nossos estudos. Um abraço Algo parecido com isso seria muito bom. Quote Link to comment Share on other sites More sharing options...
AGORAÉREAL Posted April 28, 2017 Share Posted April 28, 2017 23 horas atrás, edcronos2 disse: fiquei curioso e fui dar uma olhadinha , e realmente são varios arquivos que logo se mostram um deles é esse algoritmo "semnome" arquivo "concurso1.txt" var resp: caractere senha, login: inteiro v: vetor [1..20] de inteiro m: vetor [0..3] de inteiro n: vetor [1..20] de caractere c, i,j, sA,sB,sC,sD,s1,s2,s3,s4,s5,s6,s7,s8: inteiro a1,a2,a3,a4,a5,a6,a7,a8,a9: inteiro b1,b2,b3,b4,b5,b6,b7,b8,b9: inteiro c1,c2,c3,c4,c5,c6,c7,c8,c9: inteiro d1,d2,d3,d4,d5,d6,d7,d8,d9: inteiro f1,f2,f3,f4,f5,f6,f7,f8: inteiro g1,g2,g3,g4,g5,g6,g7,g8: inteiro h1,h2,h3,h4,h5,h6,h7,h8: inteiro i1,i2,i3,i4,i5,i6,i7,i8: inteiro j1,j2,j3,j4,j5,j6,j7,j8: inteiro l1,l2,l3,l4,l5,l6,l7,l8: inteiro m1,m2,m3,m4,m5,m6,m7,m8: inteiro n1,n2,n3,n4,n5,n6,n7,n8: inteiro procedimento Topo() inicio Escreval(" ") senha <- 1234 Escreva (". senha: ") Leia (login) Enquanto (login <> senha) faca LimpaTela Topo() FimEnquanto FimProcedimento inicio Topo() LimpaTela a1 <- 01 a2 <- 14 a3 <- 25 a4 <- 38 a5 <- 49 a6 <- 61 a7 <- 74 a8 <- 85 a9 <- 98 b1 <- 03 b2 <- 16 b3 <- 27 b4 <- 40 b5 <- 52 b6 <- 63 b7 <- 76 b8 <- 87 b9 <- 00 f1 <- 05 f2 <- 18 f3 <- 29 f4 <- 41 f5 <- 54 f6 <- 65 f7 <- 78 f8 <- 98 g1 <- 07 g2 <- 09 g3 <- 20 g4 <- 21 g5 <- 32 g6 <- 34 g7 <- 43 g8 <- 45 h1 <- 12 h2 <- 23 h3 <- 36 h4 <- 47 h5 <- 60 h6 <- 72 h7 <- 83 h8 <- 96 i1 <- 56 i2 <- 58 i3 <- 67 i4 <- 69 i5 <- 80 i6 <- 81 i7 <- 92 i8 <- 94 c1 <- 02 c2 <- 13 c3 <- 26 c4 <- 37 c5 <- 50 c6 <- 62 c7 <- 73 c8 <- 86 c9 <- 97 d1 <- 04 d2 <- 15 d3 <- 28 d4 <- 39 d5 <- 51 d6 <- 64 d7 <- 75 d8 <- 88 d9 <- 99 j1 <- 06 j2 <- 17 j3 <- 30 j4 <- 42 j5 <- 53 j6 <- 66 j7 <- 77 j8 <- 90 l1 <- 08 l2 <- 10 l3 <- 19 l4 <- 22 l5 <- 31 l6 <- 33 l7 <- 44 l8 <- 46 m1 <- 11 m2 <- 24 m3 <- 35 m4 <- 48 m5 <- 59 m6 <- 71 m7 <- 84 m8 <- 95 n1 <- 55 n2 <- 57 n3 <- 68 n4 <- 70 n5 <- 79 n6 <- 82 n7 <- 91 n8 <- 93 i <- 0 sA <- 0 sB <- 0 sC <- 0 sD <- 0 Escreval("") Escreval("") Escreva(". digite o concurso :") leia(m[j]) Repita Para i <- 0 ate 2 faca LimpaTela Escreval(" --------------------------------------------") Escreval(" Digite os Números do Sorteio") Escreval("") Escreva("concurso: ",m[j]) m[j] <- m[j] + 1 Escreval("") Escreval("") Para c <- 1 ate 20 faca Escreva("Digite o ",c , "° : ") Leia (v[c]) Se (v[c]=a1)ou(v[c]=a2)ou(v[c]=a3)ou(v[c]=a4)ou(v[c]=a5)ou(v[c]=a6)ou(v[c]=a7)ou(v[c]=a8)ou(v[c]=a9) entao n[c] <- ("A") sA <- sA + 1 senao Se (v[c]=b1)ou(v[c]=b2)ou(v[c]=b3)ou(v[c]=b4)ou(v[c]=b5)ou(v[c]=b6)ou(v[c]=b7)ou(v[c]=b8)ou(v[c]=b9) entao n[c] <- ("B") sB <- sB + 1 senao Se (v[c]=c1)ou(v[c]=c2)ou(v[c]=c3)ou(v[c]=c4)ou(v[c]=c5)ou(v[c]=c6)ou(v[c]=c7)ou(v[c]=c8)ou(v[c]=c9) entao n[c] <-("C") sC <- sC + 1 senao Se (v[c]=d1)ou(v[c]=d2)ou(v[c]=d3)ou(v[c]=d4)ou(v[c]=d5)ou(v[c]=d6)ou(v[c]=d7)ou(v[c]=d8)ou(v[c]=d9) entao n[c] <-("D") sD <- sD + 1 senao Se (v[c]=f1)ou(v[c]=f2)ou(v[c]=f3)ou(v[c]=f4)ou(v[c]=f5)ou(v[c]=f6)ou(v[c]=f7)ou(v[c]=f8) entao n[c] <-("1") s1 <- s1 + 1 senao Se (v[c]=g1)ou(v[c]=g2)ou(v[c]=g3)ou(v[c]=g4)ou(v[c]=g5)ou(v[c]=g6)ou(v[c]=g7)ou(v[c]=g8) entao n[c] <-("2") s2 <- s2 + 1 senao Se (v[c]=h1)ou(v[c]=h2)ou(v[c]=h3)ou(v[c]=h4)ou(v[c]=h5)ou(v[c]=h6)ou(v[c]=h7)ou(v[c]=h8) entao n[c] <-("3") s3 <- s3 + 1 senao Se (v[c]=i1)ou(v[c]=i2)ou(v[c]=i3)ou(v[c]=i4)ou(v[c]=i5)ou(v[c]=i6)ou(v[c]=i7)ou(v[c]=i8) entao n[c] <-("4") s4 <- s4 + 1 senao Se (v[c]=j1)ou(v[c]=j2)ou(v[c]=j3)ou(v[c]=j4)ou(v[c]=j5)ou(v[c]=j6)ou(v[c]=j7)ou(v[c]=j8) entao n[c] <-("5") s5 <- s5 + 1 senao Se (v[c]=l1)ou(v[c]=l2)ou(v[c]=l3)ou(v[c]=l4)ou(v[c]=l5)ou(v[c]=l6)ou(v[c]=l7)ou(v[c]=l8) entao n[c] <-("6") s6 <- s6 + 1 senao Se (v[c]=m1)ou(v[c]=m2)ou(v[c]=m3)ou(v[c]=m4)ou(v[c]=m5)ou(v[c]=m6)ou(v[c]=m7)ou(v[c]=m8) entao n[c] <-("7") s7 <- s7 + 1 senao Se (v[c]=n1)ou(v[c]=n2)ou(v[c]=n3)ou(v[c]=n4)ou(v[c]=n5)ou(v[c]=n6)ou(v[c]=n7)ou(v[c]=n8) entao n[c] <-("8") s8 <- s8 + 1 FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimSe FimPara FimPara LimpaTela Escreval (" .A = ", sA) Escreval (" .B = ", sB) Escreval (" .C = ", sC) Escreval (" .D = ", sD) Escreval ("") Escreval (" .1 = ", s1) Escreval (" .2 = ", s2) Escreval (" .3 = ", s3) Escreval (" .4 = ", s4) Escreval ("") Escreval (" .5 = ", s5) Escreval (" .6 = ", s6) Escreval (" .7 = ", s7) Escreval (" .8 = ", s8) EscrevaL ("") Escreval (" CONCURSO :",(m[j] - 3), " AO CONCURSO :",(m[j]- 1)) EscrevaL ("") Escreval (" ",n[1],n[2],n[3],n[4],n[5],n[6],n[7],n[8],n[9],n[10],n[11],n[12],n[13],n[14],n[15],n[16],n[17],n[18],n[19],n[20]) EscrevaL ("") Escreva (" QUER CONTINUAR? [S/N] : ") Leia (resp) Ate(resp = "N") Escreval ("") Escreval ("") Escreval ("") fimalgoritmo Se eu copiar esse "código" e colar no VisualG ele vai rodar normalmente? Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted April 28, 2017 Share Posted April 28, 2017 50 minutos atrás, GDG COSTA disse: Se eu copiar esse "código" e colar no VisualG ele vai rodar normalmente? teoricamente sim isso é como uma macro, são linhas de comando Quote Link to comment Share on other sites More sharing options...
AGORAÉREAL Posted April 28, 2017 Share Posted April 28, 2017 26 minutos atrás, edcronos2 disse: teoricamente sim isso é como uma macro, são linhas de comando Mais uma dúvida... Rodará igual ao exemplo do vídeo certo? Quote Link to comment Share on other sites More sharing options...
Guest Zangado Posted April 28, 2017 Share Posted April 28, 2017 Agora, GDG COSTA disse: Mais uma dúvida... Rodará igual ao exemplo do vídeo certo? creio que sim afinal é o o mesmo Quote Link to comment Share on other sites More sharing options...
AGORAÉREAL Posted April 28, 2017 Share Posted April 28, 2017 29 minutos atrás, edcronos2 disse: creio que sim afinal é o o mesmo Obrigado Quote Link to comment Share on other sites More sharing options...
cerealkiller Posted April 28, 2017 Share Posted April 28, 2017 7 minutos atrás, GDG COSTA disse: Obrigado Lampadinha, depois avisa ai se deu certo, ok! Quote Link to comment Share on other sites More sharing options...
AGORAÉREAL Posted April 28, 2017 Share Posted April 28, 2017 20 minutos atrás, cerealkiller disse: Lampadinha, depois avisa ai se deu certo, ok! Pode deixar...aviso sim. Só chegar em casa que testarei . Quote Link to comment Share on other sites More sharing options...
AGORAÉREAL Posted April 28, 2017 Share Posted April 28, 2017 54 minutos atrás, cerealkiller disse: Lampadinha, depois avisa ai se deu certo, ok! Rodou normal!!! 1 Quote Link to comment Share on other sites More sharing options...
cerealkiller Posted April 28, 2017 Share Posted April 28, 2017 Agora, GDG COSTA disse: Rodou normal!!! ótimo primeira oportunidade experimento, o rapaz poderia melhorar o vídeo dele, tem software para isso. Quote Link to comment Share on other sites More sharing options...
AGORAÉREAL Posted April 28, 2017 Share Posted April 28, 2017 12 minutos atrás, cerealkiller disse: ótimo primeira oportunidade experimento, o rapaz poderia melhorar o vídeo dele, tem software para isso. Fica a dica aí..... Quote Link to comment Share on other sites More sharing options...
O Programador Posted May 4, 2017 Author Share Posted May 4, 2017 (edited) URGENTE GALERA ESQUEMA PRA AMANHÃ!!!!! JÁ DEI UMA EXPLICADA NO ESQUEMA MAS VOU REVISAR PRA VCS COMO FOTO. MOSTREI PRA VCS QUE DIVIDI AS DEZENAS EM 4 PARTES ABAIXO NO BLOCO DE NOTAS OS GRUPOS DE NUMEROS EM COMBINAÇÕES DE 4 EM 4 COM AS LETRAS ACIMA. QUE ESTA NO PACOTE QUE MANDEI ANTERIORMENTE, BLZ AGORA JOGA O CONCURSO DENTRO DO PROGRAMA ASSIM. DEPOIS O PROGRAMA GERA UM CODIGO DE 4 COMBINAÇÕES ASSIM A PARTE DE AZUL É O CODIGO GERADO DO CONCURSO 1758 FOI '3578' POIS TEVE O MAIOR NUMERO DE DEZENAS EM VERMELHO. DEPOIS FEITO ISSO EU GUARDEI ESSA E OUTRAS COMBINAÇÕES NO EXCEL ASSIM. Edited May 4, 2017 by O Programador Quote Link to comment Share on other sites More sharing options...
O Programador Posted May 4, 2017 Author Share Posted May 4, 2017 (edited) A GALERA ANTES QUE EU ME ESQUEÇA EU MUDEI OS NUMEROS DOS GRUPOS NO PROGRAMA POIS OS NUMEROS QUE COLOQUEI LÁ ERAM DE GRUPOS PRA TESTAR O PROGRAMA MAS NÃO PRECISA MUDAR NADA AINDA PODE USAR OS GRUPOS QUE COLOQUEI ACIMA POIS SÃO ESSES QUE EU FAÇO OS TESTES. NÃO ESTOU CONSEGUINDO POSTAR A FOTO DA PLANILHA AQUI. ALGUÉM PODE ME AJUDAR. POIS A PLANILHA É A PARTE MAIS IMPORTANTE DA MINHA EXPLICAÇÃO SEM ELA NÃO TEM JEITO DE MOSTRAR PORQUE OS 2 PROXIMOS CONCURSOS É TÃO IMPORTANTE. Edited May 4, 2017 by O Programador Quote Link to comment Share on other sites More sharing options...
fabio123 Posted May 4, 2017 Share Posted May 4, 2017 54 minutos atrás, O Programador disse: URGENTE GALERA ESQUEMA PRA AMANHÃ!!!!! JÁ DEI UMA EXPLICADA NO ESQUEMA MAS VOU REVISAR PRA VCS COMO FOTO. MOSTREI PRA VCS QUE DIVIDI AS DEZENAS EM PARTES ASSIM ABAIXO NO BLOCO DE NOTAS OS GRUPOS DE NUMEROS EM COMBINAÇÕES DE 4 EM 4 COM AS LETRAS ACIMA. QUE ESTA NO PACOTE QUE MANDEI ANTERIORMENTE, BLZ AGORA JOGA O CONCURSO DENTRO DO PROGRAMA ASSIM. DEPOIS O PROGRAMA GERA UM CODIGO DE 4 COMBINAÇÕES ASSIM A PARTE DE AZUL É O CODIGO GERADO DO CONCURSO 1758 FOI '3578' POIS TEVE O MAIOR NUMERO DE DEZENAS EM VERMELHO. DEPOIS FEITO ISSO EU GUARDEI ESSA E OUTRAS COMBINAÇÕES NO EXCEL ASSIM. quantos concursos tenho que digitar para achar as dezenas para o concurso 1759, obrigado. Quote Link to comment Share on other sites More sharing options...
cerealkiller Posted May 4, 2017 Share Posted May 4, 2017 41 minutos atrás, O Programador disse: A GALERA ANTES QUE EU ME ESQUEÇA EU MUDEI OS NUMEROS DOS GRUPOS NO PROGRAMA POIS OS NUMEROS QUE COLOQUEI LÁ ERAM DE GRUPOS PRA TESTAR O PROGRAMA MAS NÃO PRECISA MUDAR NADA AINDA PODE USAR OS GRUPOS QUE COLOQUEI ACIMA POIS SÃO ESSES QUE EU FAÇO OS TESTES. NÃO ESTOU CONSEGUINDO POSTAR A FOTO DA PLANILHA AQUI. ALGUÉM PODE ME AJUDAR. POIS A PLANILHA É A PARTE MAIS IMPORTANTE DA MINHA EXPLICAÇÃO SEM ELA NÃO TEM JEITO DE MOSTRAR PORQUE OS 2 PROXIMOS CONCURSOS É TÃO IMPORTANTE. Faz um print dela hospeda em um site de imagens http://tinypic.com/?t=postupload Depois link aqui no forum. Ou se for o arquivo clica embaixo no editor de texto (escolha os arquivos) mas parece que tem um limite de postagem. Também pode hospedar em site tipo https://www.mediafire.com E depois linkar na postagem Espero ter ajudado. Quote Link to comment Share on other sites More sharing options...
O Programador Posted May 4, 2017 Author Share Posted May 4, 2017 (edited) 1 hora atrás, fabio123 disse: quantos concursos tenho que digitar para achar as dezenas para o concurso 1759, obrigado. CARA É FHODA A IMAGEM QUE TEM A PLANILHA NÃO ABRE, ABRIU TODAS AS OUTRAS MAS A DA PLANIHA NÃO, SERÁ QUE TEM LIMITE DE POSTAGEM DE IMAGEM? VOU TIRAR UMA IMAGEM DA POSTAGEM ACIMA PRA VER SE ABRE A PLANILHA AKI. OPÁ, DEU CERTO. A PLANILHA MOSTRA DESDE O CONCURSO 1711 AO 1760 MAS DE 10 EM 10. NOTE QUE A COMBINAÇÃO (1235) E (1236) SAIU EM TODOS OS TESTES, E SÓ FALTA MAIS 2 CONCURSOS PRA FECHAR O GRUPO DE 1751 A 1760, E NOTE TBM QUE NOS 2 ULTIMOS TESTES ELE SAIU NO C9 E C10, C = CONCURSO. EU NÃO TO DIZENDO QUE VAI SAIR, MAS TEM GRANDE PROBABILIDADE. EU PEGO CADA CONBINAÇÃO E ACRESCENTO MAIS 3 LETRAS ISSO DÁ 59 DEZENAS. FIZ ASSIM ABC+1235//BCD+1235//ABC+1236//BCD+1236 DEPOIS DESDOBRO E FAÇO 2 JOGOS DE CADA. VCS PODEM TBM USAR AS COMBINAÇÕES QUE VC QUISEREM COM OS FILTROS QUE DESEJAREM. DIGO TBM QUE SE TEM PROBABILIDADE DE NOS 2 PROXIMOS CONCURSOS SERIA BOM SE MARCASSE LOGO PRA 2 CONCURSOS. UM ESQUEMA MEU NUNCA BEROU A PERFEIÇÃO ASSIM, POR ISSO QUE TÔ DISPONIBILIZANDO PRA TODOS POIS QUERO QUE TODO MUNDO PARTICIPE SE DER CERTO. Edited May 4, 2017 by O Programador Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.