probleme mit zufallswerten ! verteilen im array

Übersicht

BlitzBasic

Beginners-Corner

	xverbatimbasic Betreff: probleme mit zufallswerten ! verteilen im array	Mi, Feb 16, 2005 21:06 Antworten mit Zitat
Hi, ich habe immernoch ein arrayproblem und bitte um hilfe )) ich habe ein feldarray von 1010 gefüllt mit 2 und 3 also Code:* [AUSKLAPPEN] [EINKLAPPEN] for y=1 to 10 for x=1 to 10 feld(x,y)=rand(2,3) next x next y jetzt möchte ich genau 20 mal den wert 1 auf dieses feldarray zufällig verteilen, es müßen aber exakt 20 sein hat jemand einen tip, wie ich das schnell schaffen kann ? folgender Code ist ungenau und gibt den wert 1 mal 20 mal 18 17 oder 19 aus Code: [AUSKLAPPEN] [EINKLAPPEN] SeedRnd MilliSecs() For y=1 To 2 For i=1 To 10 zahl=Rand(y,10) If feld(zahl, i)<>1 Then feld(zahl, i)=1 Next Next

xverbatimbasic

Betreff: probleme mit zufallswerten ! verteilen im array

Mi, Feb 16, 2005 21:06
Antworten mit Zitat

Hi,

ich habe immernoch ein arrayproblem und bitte um hilfe Smile

))

ich habe ein feldarray von 10*10 gefüllt mit 2 und 3
also
Code: [AUSKLAPPEN]

for y=1 to 10
for x=1 to 10
feld(x,y)=rand(2,3)
next x
next y

jetzt möchte ich genau 20 mal den wert 1 auf dieses feldarray zufällig
verteilen, es müßen aber exakt 20 sein

hat jemand einen tip, wie ich das schnell schaffen kann ?

folgender Code ist ungenau und gibt den wert 1 mal 20 mal 18 17 oder 19 aus

Code: [AUSKLAPPEN]

SeedRnd MilliSecs()
For y=1 To 2
For i=1 To 10
zahl=Rand(y,10)
If feld(zahl, i)<>1 Then feld(zahl, i)=1
Next
Next

	simi	Mi, Feb 16, 2005 21:10 Antworten mit Zitat
Code: [AUSKLAPPEN] [EINKLAPPEN] SeedRnd MilliSecs() for i = 1 to 20 r1=Rand(1,10) r2=Rand(1,10) if feld(r1,r2) <> 1 then feld(r1,r2)=1 else i=i-1 end if next