' Enunciado 318
' Pedro Pimenta
' Nov. 2007


dim l(9)
l(1) = 10
l(2) = 100
l(3) = 200
l(4) = 300
l(5) = 400
l(6) = 600
l(7) = 1000
l(8) = 2000

dim res(6)

cls

for i=1 to 7
    for j=1 to 6
        res(j) = 0
    next

    print "Ensaio "; i; " - "; l(i) ;" lançamentos:"
    inicio = time$("ms")


    for j=1 to l(i)
        r = 1+int(rnd(1)*6)
        res(r) = res(r) +1
    next

    fim = time$("ms")

    print "Valor         FAbs          FRel"
    for j=1 to 6
        print j, res(j), res(j) / l(i)
    next
    print "O ensaio "; i; " ("; l(i);" lançamentos), demorou cerca de "; fim-inicio ; " milisegundos."
next