Jump to content

OLÁ, OLHE O MEU PADRÃO!


O Programador

Recommended Posts

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.

 

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

Guest Zangado
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

 

Link to comment
Share on other sites

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.

PLAN7.PNG.67b63e9bed21291426c380d6f7c7e93a.PNG

 QUE ESTA NO PACOTE QUE MANDEI ANTERIORMENTE, BLZ

AGORA JOGA O CONCURSO DENTRO DO PROGRAMA ASSIM.

plan4.PNG.b7e8a3766a5a95829a80770554612163.PNG

DEPOIS O PROGRAMA GERA UM CODIGO DE 4 COMBINAÇÕES ASSIM

plan5.PNG.395ab86d6af9992db205d4ca54215842.PNG

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 by O Programador
Link to comment
Share on other sites

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 by O Programador
Link to comment
Share on other sites

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

plan6.PNG.f3352f952d4b53a6a115108e643c01e4.PNG

ABAIXO NO BLOCO DE NOTAS OS GRUPOS DE NUMEROS EM COMBINAÇÕES DE 4 EM 4 COM AS LETRAS ACIMA.

PLAN7.PNG.67b63e9bed21291426c380d6f7c7e93a.PNG

 QUE ESTA NO PACOTE QUE MANDEI ANTERIORMENTE, BLZ

AGORA JOGA O CONCURSO DENTRO DO PROGRAMA ASSIM.

plan4.PNG.b7e8a3766a5a95829a80770554612163.PNG

DEPOIS O PROGRAMA GERA UM CODIGO DE 4 COMBINAÇÕES ASSIM

plan5.PNG.395ab86d6af9992db205d4ca54215842.PNG

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.

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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.plan67.PNG.46d274979519bbd0f175815d2e1102bf.PNG

 

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 by O Programador
Link to comment
Share on other sites

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.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...