Questo il codice per lo spoglio
amd = 0................................................. .................Contatore per registrare gli ordinamenti con "O" > 5
For a = k To k1................................................ ........Ordinamenti
cc(a) = 0................................................. ................Contatore per registrare gli ambi con "O"
For r = kr To kr1............................................... ........Imposto la ruota in esame
For y = 1 To 4................................................. ..........
For y1 = y + 1 To 5................................................. .Scompongo l'estrazione in ambi
cy = 0................................................. ....................Contatore per registrare il punteggio dell'ambo
For p = 1 To 45................................................ ..........................Valuta i primi 45 numeri dell'ordinamento
If num(r, y, n) = x(a, p) Or num(r, y1, n) = x(a, p) Then cy = cy + 1............L'ambo in esame
Next
If cy = 1 Then cc(a) = cc(a) + 1..................................Se fa un punto incrementa il contatore
Next
Next
Next
If cc(a) > 5 Then amd = amd + 1.................................Conteggia gli ordinamenti con "O" prevalente
Next
Se fin qui lo trovi corretto proseguo
amd = 0................................................. .................Contatore per registrare gli ordinamenti con "O" > 5
For a = k To k1................................................ ........Ordinamenti
cc(a) = 0................................................. ................Contatore per registrare gli ambi con "O"
For r = kr To kr1............................................... ........Imposto la ruota in esame
For y = 1 To 4................................................. ..........
For y1 = y + 1 To 5................................................. .Scompongo l'estrazione in ambi
cy = 0................................................. ....................Contatore per registrare il punteggio dell'ambo
For p = 1 To 45................................................ ..........................Valuta i primi 45 numeri dell'ordinamento
If num(r, y, n) = x(a, p) Or num(r, y1, n) = x(a, p) Then cy = cy + 1............L'ambo in esame
Next
If cy = 1 Then cc(a) = cc(a) + 1..................................Se fa un punto incrementa il contatore
Next
Next
Next
If cc(a) > 5 Then amd = amd + 1.................................Conteggia gli ordinamenti con "O" prevalente
Next
Se fin qui lo trovi corretto proseguo
Ultima modifica: