giorgio1960
Super Member >GOLD<
Sub main()
Dim Ru(1),nu(10)
Fin =EstrazioneFin
For R=1 To 10 : Ru(1)=r : min =1000
For d= 0 To 8
For u= 1 To 10 : NU(u)= 10*d + u : Next
Sr=SerieRitardo (fin-200,fin,nu,ru,2)
If Sr < Min Then min =Sr
Scrivi SiglaRuota (R) & " " & StringaEstratti (es,r)& " "& StringaNumeri (nu) & " RC=" & FormatSpace (Sr,3,1)
Next
Scrivi SiglaRuota (R) & " Min = " & FormatSpace (min,3,1) ,1,1
scrivi
Next
End Sub
grazie a chi mi può aiutare
Dim Ru(1),nu(10)
Fin =EstrazioneFin
For R=1 To 10 : Ru(1)=r : min =1000
For d= 0 To 8
For u= 1 To 10 : NU(u)= 10*d + u : Next
Sr=SerieRitardo (fin-200,fin,nu,ru,2)
If Sr < Min Then min =Sr
Scrivi SiglaRuota (R) & " " & StringaEstratti (es,r)& " "& StringaNumeri (nu) & " RC=" & FormatSpace (Sr,3,1)
Next
Scrivi SiglaRuota (R) & " Min = " & FormatSpace (min,3,1) ,1,1
scrivi
Next
End Sub
grazie a chi mi può aiutare