webForumDet fria alternativet

Slumpa 10 tal, dock undvika dubletter

ASP

3 svar · 265 visningar · startad av M477145

Medlem sedan sep. 200145 inlägg
Frågan#1

Verkar vara många smarta medlemmar här ...

Mitt problem:

Jag vill slumpmässigt skapa 10 tal mellan 1 och 50. Inget av talen får vara samma som något annat. Varje tal ska "VARA" en variabel.

tal1 = int(rnd * 49) + 1
tal2 = int(rnd * 49) + 1
osv

OBS! Talen får inte upprepas!!! De ska bli förbrukade på något sätt ... alltså inte kunna användas igen!

Är det någon som sitter inne med en smidig lösning på detta? Hoppas!

------------------

* Mattias

[Redigerat av M477145 den 27 sep 2001]

Medlem sedan dec. 200012 464 inlägg
#2

Varför måste det vara variabler. Det är mycket enklare att hantera om värdena ligger i en array.

dim numbers(49)
dim randoms(9)
dim slot

for i = 0 to 49
 numbers(i) = cint(i) + 1
next

randomize
for i = 0 to 9
    slot = int(rnd * (49-i))
    randoms(i) = numbers(slot)
    numbers(slot) = numbers(49-i)
next

Och du, välkommen hit.

------------------
essentitia preter non sans multiplicandum

Medlem sedan sep. 200145 inlägg
#3

Ååååh ... tackar, precis vad jag behövde ... men som vanligt kom ett problem till. Hur kan jag spara informationen? Sidan ska nämligen uppdateras. Informationen ska bara sparas temporärt, villl inte blanda in databas här. nummer ska gå hämta unikt. Ska jag använda session() ??? Cookies?

------------------

* Mattias

Medlem sedan dec. 19998 577 inlägg
#4
Session( "numbers" ) = numbers(i)

------------------
Doesn't 'expecting the unexpected" make the unexpected expected?
un.eyebew

257 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
129 ms — hämta tråd, inlägg och bilagor (db)
125 ms — ändringar (db)