Lotto statistik

Der skulle vel ikke være en der har lavet et program der kan finde de mest udtrukne tal i en form for lotto? Der er 5 nummere og et tillægstal

Man kan vel ikke finde de mest udtrukkende tal da der er lige stor chance for alle tal. Eller mener du da at lave 100 forsøg og så se hvad der er mest udtrukket??

Hilsen Mathias

[Redigeret d. 17/10-04 14:28:34 af Mathias Knudsen]

Det jeg mener er at hvis der er hundrede trækninger i lotto så vil jeg gerne vide hvor mange gange hvert enkelt tal er reprænsenteret ud af de hundrede gange.

Jeg vil nu give mathias ret.... det er jo sandsynlighedsregning du skal have fat i der.. tror boldene vejer ligemeget osv.. jeg tvivler i hvert fald på at du vil finde et tal der gør sig meget mere gældende end de andre...

Men du kan da selv lave noget statestik, på tips's hjemmeside kan du gå en del uger tilbage...

Med venlig hilsen
/Jokke Jensen
www.jj-multimediedesign.dk

Det jeg mener er at hvis der er hundrede trækninger i lotto så vil jeg gerne vide hvor mange gange hvert enkelt tal er reprænsenteret ud af de hundrede gange.

Hej jeg tror at jeg har koden. Hvis altså jeg har forstået alt
ret.
Du skal sætte den ind i et modul.

PUBLIC NUMBER(300) As integer
Public max as maxnum
public i as integer

Type maxnum
maxnumber as integer
number as integer
end type

sub add(numberi as interger)
number(numberi)=Number(Numberi)+1
end sub

sub check
for i = 0 to 300
if number(i) > max.maxnumber then
max.maxnumber=number(i)
max.number=i
next i
dim si as string
si=max.number
dim sii as string
sii=max.maxnumber
msgbox "Det mest fundne tal = " + si +". Det blev fundet " + sii +" Gange!"
end sub

Når du har den inde i et modul skal du bare i en form skrive:
ADD NUMMER

og når alle tallende er inde skal du faktisk kun skrive
check! Så gør den det hele for en.

---
En hånd på armen er bedre end to i skraldespanden!... ehh.. :/?

[Redigeret d. 18/10-04 12:07:14 af Jonas Termannsen]