X TUTTI

[Roby]

Buon Dì a tutti….
Spero che qualcuno mi possa aiutare…
ho bisogno di un listato o qualsiasi cosa purchè riguardi questa condizione:

Rintracciare due ambi,isotopi,aventi in comune la distanza 12.

Esempio Estrazione del 19 Maggio 2007</u>
Firenze 43-15-22-67-3
Roma 17-25-43-86-13

Ricerca dal 02-01-2008 fino 25-10-2008

Spero di non chiedere la Luna……

Grazie a tutti…

Non permettere alla lingua di oltrepassare il pensiero.

 

[sigarox]

Salve Rebecca ,
nn so se escono ma nn si sa mai
FIRENZE 39 51 27

ROMA 33 45 57
PROVA 1 VOLTA FORSE TI PORTO FORTUNA SALUTONI GIANNI

 

[domenicogian]

''due ambi,isotopi,aventi in comune la Distanza 12.
Sub main()
Dim n(10), cg(10), aa(10),n1(2)
Dim ruote(3),rt(2)
Dim posta(5)
Dim poste(5)
posta(2)=1
poste(2)=1.5
poste(3)=0.4
poste(4)=0.1
fin=EstrazioneFin
ini=fin-100
For es=ini To fin
AvanzamentoElab ini,fin,es
For r=1 To 9
For p=1 To 4
For q=p+1 To 5
n(1)=Estratto (es,r,p)
n(2)=Estratto (es,r,q)
If Distanza(n(1),n(2))=12 Then
If Fuori90(n(1)+30)=n(2) Then n1(1)=Fuori90 (n(1)+60) Else n1(1)=Fuori90 (n(1)+30)
For r1=r+1 To 10
n(3)=Estratto (es,r1,p)
n(4)=Estratto (es,r1,q)
If Distanza(n(3),n(4))=12 Then
If Fuori90(n(3)+30)=n(4) Then n1(2)=Fuori90 (n(3)+60) Else n1(2)=Fuori90 (n(3)+30)
Scrivi String (65,"*")
Scrivi String (65,"-")
ColoreTesto 1
Scrivi "In  data  "& DataEstrazione (es)
Scrivi FormatSpace(NomeRuota(r), 10)&" "& Format2(n(1))&"."& Format2(n(2))&"..."& StringaEstratti (es,r)  ,1
Scrivi FormatSpace(NomeRuota(r1),10)&" "& Format2(n(3))&"."& Format2(n(4))&"..."& StringaEstratti (es,r1) ,1
Scrivi "Mancante Prima coppia  "& n1(1)&"  Mancante seconda coppia  "& n1(2)
ColoreTesto 0
Scrivi

ruote(1)=r
ruote(2)=r1
ruote(3)=11

cg(1)=n1(1)
cg(2)=n1(2)
End If
Next
End If
Next
Next
Next
Next
End Sub

saluti Domenicogian.