'
' Welcome to GDB Online.
' GDB online is an online compiler and debugger tool for C, C++, Python, Java, PHP, Ruby, Perl,
' C#, VB, Swift, Pascal, Fortran, Haskell, Objective-C, Assembly, HTML, CSS, JS, SQLite, Prolog.
' Code, Compile, Run and Debug online from anywhere in world.
'
'
Module VBModule
Sub Main()
Const nCASE As Long = 50000 ' nombre de cases
Const nPAS As Long = 100000 ' max nombre de pas
Dim nid(nCASE) As Long
Dim i, iRnd, iProba As Long
Dim iEcrase As Long = 0
Randomize
Console.WriteLine (" 0,0")
For i = 1 to nPAS
iRnd = 1 + Int(nCASE * Rnd)
If nid(iRnd) = 0 Then
nid(iRnd) = 1
iEcrase += 1
iProba = 10000*iEcrase/nCASE
End If
If (i Mod 1000 = 0) Then
' Console.WriteLine("i=" + Str(i) + " #CaseTouchees=" + Str(iEcrase) + " iPropa%=" + Str(iProba/100))
' Console.WriteLine (Str(i) + "," + Str(iEcrase) + "," + Str(iProba))
' Sort un Csv Pas, Proba en %
Console.WriteLine(Str(i) + "," + Str(iProba/100))
End If
Next i
End Sub
End Module
