Bocsánat, bugos, az alsó határt nem adja vissza sosem. De az elv jó, csak a kivitelezés nem. Már nem is lesz jó, mert megyek ebédelni :)
Üdv!: Szilárd 2013. május 28. 14:31 Szilárd Blum írta, <szilard.b...@gmail.com>: > Megcsináltam VBscript nélkül: > http://sdrv.ms/11mBB4v > Mondjuk csak 1-100 intervallumra méret-okokból, de ugyanezen elven > bővíthető, ha tudjuk előre, hogy az alsó és a felső határnak mennyi a > specifikációban szereplő szélsőértéke. > > Nem ismétlődik, amennyiben az Excel nem adja kétszer ugyanazt a > véletlenszámot. Hogy két egymás utáni véletlenszám egyforma, annak az > esélye kb. annyi, mint két hónapon belül elért KÉT lottó ötösnek. > > Üdv!: Szilárd > > > 2013. május 28. 13:39 Ihász, Tibor írta, <iha...@postafiok.hu>: > >> Köszönöm a válaszokat, és egyben pontosítom a kérdést: >> Egy komlpex feladat részeként kellene excelben 2 cellában megadott >> intervallumok között előállítani véletlenszerűen, egy harmadik cellában >> megadott n db számot, és azokat kiíratni egymás alá egy oszlopban (n >> értéke max. 20000). >> (Tehát pozitív egészekről van szó, nem kell "bolondbiztosnak" lenni >> vagyis kezdet kisebb mint vég, és v-k+1 >= n) >> A faladat azzal van megtoldva, hogy nem lehetnek azonosak ezek a számok. >> Valószínű VB-re lenne szükségem (de sajnos abban elég gyenge vagyok), de >> minden megoldás érdekel... >> Vagyis a számhármast módosítva (és mondjuk egy OK gombot nyomva), >> változzon az adott oszlopba létrehozott számsor. >> >> Talán még éthetőbb, ha nyomok FP megoldést (minden változó egész): >> begin >> readln(k); >> readln(v); >> readln(n); >> >> db:=v-k+1; >> for i:=1 to db do >> begin >> t[i]:=i+k-1; >> end; >> >> randomize; >> For i:=1 to n do >> begin >> a:=random(db)+1; >> seg:=t[a]; >> t[a]:=t[db]; >> t[db]:=seg; >> db:=db-1; >> end; >> >> For i:=n downto 1 do >> writeln(t[i]); >> >> Valami ilyesmit kéne tudni, "csak" excelben. ;-) >> >> Köszönöm. >> >> Ihász Tibor >> >> _______________________________________________ >> Techinfo mailing list >> Techinfo@lista.sulinet.hu >> Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo >> Illemtan: http://www.szag.hu/illemtan.html >> Ügyfélszolgálat FAQ: http://sulinet.niif.hu/ >> >> >
_______________________________________________ Techinfo mailing list Techinfo@lista.sulinet.hu Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo Illemtan: http://www.szag.hu/illemtan.html Ügyfélszolgálat FAQ: http://sulinet.niif.hu/