Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
boris;n1888732 ha scritto:ho controllato confermo la previsione evidenziata
saluti
Si GE e VE però ora non ricordo chi ma qualcuno proponeva di giocare anche sulle ruote diametrali.candy;n1888740 ha scritto:Buongiorno ragazzi, parliamo sempre per GE=VE
Grazie a tutti voi
candy
[/B]
[B]Sub Main[/B]()
[B]Dim[/B] [B]nu1[/B](2),[B]nu4[/B](2),[B]nu5[/B](3)
[B]Dim[/B] [B]ruote[/B](10),[B]ruota[/B](10)
[B]Dim[/B] [B]poste[/B](2)
[B]poste[/B](2) [B]=[/B] 1
fin [B]=[/B] [B]EstrazioneFin[/B]
ini [B]=[/B] fin [B]-[/B] 100
[B]For[/B] es [B]=[/B] ini [B]To[/B] fin
[B]AvanzamentoElab[/B] ini,fin,es
[B]For[/B] r1 [B]=[/B] 1 [B]To[/B] 10
[B]For[/B] p1 [B]=[/B] 1 [B]To[/B] 4
[B]For[/B] p2 [B]=[/B] p1 [B]+[/B] 1 [B]To[/B] 5
n1 [B]=[/B] [B]Estratto[/B](es,r1,p1)
n2 [B]=[/B] [B]Estratto[/B](es,r1,p2)
[B]For[/B] r2 [B]=[/B] r1 [B]+[/B] 1 [B]To[/B] 11
[B]If[/B] r2 [B]=[/B] 11 [B]Then[/B] r2 [B]=[/B] 12
[B]For[/B] p3 [B]=[/B] 1 [B]To[/B] 4
[B]For[/B] p4 [B]=[/B] p3 [B]+[/B] 1 [B]To[/B] 5
n3 [B]=[/B] [B]Estratto[/B](es,r2,p3)
n4 [B]=[/B] [B]Estratto[/B](es,r2,p4)
[B]If[/B] n1 [B]=[/B] n3 [B]And[/B] n2 [B]=[/B] n4 [B]Or[/B] n1 [B]=[/B] n4 [B]And[/B] n2 [B]=[/B] n3 [B]Then[/B]
[B]If[/B] p1 [B]=[/B] p3 [B]And[/B] p2 [B]=[/B] p4 [B]Or[/B] p1 [B]=[/B] p4 [B]And[/B] p2 [B]=[/B] p3 [B]Then[/B]
c5 [B]=[/B] [B]Massimo[/B](n1,n2)
c6 [B]=[/B] [B]Minimo[/B](n1,n2)
a1 [B]=[/B] [B]Fuori90[/B](c5 [B]+[/B] c5)
a2 [B]=[/B] [B]Fuori90[/B](c6 [B]+[/B] c6)
a3 [B]=[/B] [B]Abs[/B](a1 [B]-[/B] a2)
a4 [B]=[/B] a3[B]/[/B]2
b1 [B]=[/B] [B]Minimo[/B](a1,a2)
b2 [B]=[/B] [B]Massimo[/B](a1,a2)
a5 [B]=[/B] [B]Fuori90[/B](b1 [B]+[/B] a4)
a6 [B]=[/B] [B]Abs[/B](b2 [B]-[/B] a4)
a8 [B]=[/B] [B]Fuori90[/B](n1 [B]+[/B] a6)
a9 [B]=[/B] [B]Fuori90[/B](n2 [B]+[/B] a6)
c1 [B]=[/B] [B]Massimo[/B](a8,a9) ' AMBATA_
c2 [B]=[/B] [B]Minimo[/B](a8,a9)
c3 [B]=[/B] [B]Fuori90[/B](c1 [B]+[/B] c2)
casi [B]=[/B] casi [B]+[/B] 1:[B]Scrivi[/B] [B]String[/B](75,"="),1
[B]Scrivi[/B] [B]DataEstrazione[/B](es,1) [B]&[/B] " < " [B]&[/B] [B]SiglaRuota[/B](r1) [B]&[/B] " " [B]&[/B] [B]StringaEstratti[/B](es,r1) [B]&[/B] _
" > ambo ripetuto < " [B]&[/B] [B]Format2[/B](n1) [B]&[/B] "." [B]&[/B] [B]Format2[/B](n2) [B]&[/B] " >"
[B]Scrivi[/B] [B]DataEstrazione[/B](es,1) [B]&[/B] " < " [B]&[/B] [B]SiglaRuota[/B](r2) [B]&[/B] " " [B]&[/B] [B]StringaEstratti[/B](es,r2) [B]&[/B] _
" > ambo ripetuto < " [B]&[/B] [B]Format2[/B](n3) [B]&[/B] "." [B]&[/B] [B]Format2[/B](n4) [B]&[/B] " >"
[B]Scrivi[/B] [B]String[/B](65,"-") [B]&[/B] " caso n° " [B]&[/B](casi)
[B]ruote[/B](1) [B]=[/B] r1:[B]ruote[/B](2) [B]=[/B] r2:k [B]=[/B] 9:[B]ruota[/B](1) [B]=[/B] 11
[B]nu1[/B](1) [B]=[/B] c1:[B]nu1[/B](2) [B]=[/B] c3
[B]ImpostaGiocata[/B] 1 ,[B]nu1[/B],[B]ruote[/B],[B]poste[/B],k
[B]nu4[/B](1) [B]=[/B] c1:[B]nu4[/B](2) [B]=[/B] c3
[B]ImpostaGiocata[/B] 2,[B]nu4[/B],[B]ruota[/B],[B]poste[/B],k
'nu5(1) = c1:nu5(2) = c3 : nu5(3) = c2 ' togli l'apice per eventuale terzina
'ImpostaGiocata 3,nu5,ruota,poste,k ' togli l'apice eventuale terzina
[B]Gioca[/B] es
[B]End[/B] [B]If[/B]
[B]End[/B] [B]If[/B]
[B]Next[/B]
[B]Next[/B]
[B]Next[/B]
[B]Next[/B]
[B]Next[/B]
[B]Next[/B]
[B]Next[/B]
[B]ScriviResoconto[/B]
[B]End[/B] [B]Sub[/B]
[B]
Lo studente;n1889993 ha scritto:Buongiorno a tutti...x trottolina....quello che consigliava il gioco anche sulle diametrali e gemelle sono io.....il metodo lo ha descritto benissimo master...x quanto riguarda il 14.......che sarebbe ill terzo numero,si può giocare come 2'ambo.....