rnd

[Szilárd Blum]

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, <ihaszt at 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 at 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/
>
>
--------- következő rész ---------
Egy csatolt HTML állomány át lett konvertálva...
URL: <http://lista.sulinet.hu/pipermail/techinfo/attachments/20130528/cf35ab4f/attachment.html>