igazából úgy tudom ugyan annyi annak az esélye hogy azt huzzák ki, mint bármely másik 5 számnak:) De szerintem ezzel a kombinációval sokan próbálkoznak....
egyszer megjátszottam...nem nyertem vele semmit következõ héten lett volna vele egy 2-esem(húzták a 2,4-et)
begin randomize; a:=random(90)+1; while b<>a do b:=random(90)+1; while c in [a,b] do c:=random(90)+1; while d in [a,b,c] do d:=random(90)+1; while e in [a,b,c,d] do e:=random(90)+1; write(a,' ',b,' ',c,' ',d,' ',e); end.
kb
(ha vmi nemstimmel, akkor javítsatok)
1/44 millió esélyünk van az 5ösre....az ténylegesen nem sok....:(
valahogy megkéne álmodni...az lenne a legsportszerûbb.....
na, még mindig nemjó, a begin után jó ha odaírjuk, hogy a:=0; b:=0; c:=0; d:=0; e:=0; továbbá a végére egy readln; az end eléhogy lássuk is az eredményt
Jó, akkor ha ez mûködik, te megnyerted már a lottót?xD
na, bénáztam egy kicsit a dologgal, de így végre mûködik:
program lottoszamok; {$APPTYPE CONSOLE} uses SysUtils;
var a,b,c,d,e: byte;
begin // Insert user code here randomize; a:=random(90)+1; b:=a; while b in [a] do b:=random(90)+1; c:=b; while c in [a,b] do c:=random(90)+1; d:=c; while d in [a,b,c] do d:=random(90)+1; e:=d; while e in [a,b,c,d] do e:=random(90)+1; write(a,' ',b,' ',c,' ',d,' ',e); readln; end.
23 31 51 55 57 ezt dobta ki... egyébkét mindig mást ad, szóval vigyázni kell vele :P
Mi az, hogy nyszámainak?
Egyébként megértetted, hogy mit akart közölni a címmel, ami gondolom azért néz ki így, mert ha hosszabb, akkor nem fér bele, szóval minek kötsz bele? Nem kötekedésként mondom, csak megjegyzés.
Szevasztok! Hát nekem meg van EZ a könyv de nemhiszem hogy érne valamit. Az egész ilyen fantázia szülemény szerintem. De ha valakit érdekel nézzen utána, nem hosszú könyv és vannak benne érdekes dolgok is. :)
szerintem osszunk ki magyarországon az összes lakos között 5 különbözõ kombinációt (az kb 50000000, szóval a 43000000 belefér bõven), és aki megnyeri, az szétosztja a többiek között (persze õ is kap belõle), és kap mindenki 30 forintot. na mit szóltok hozzá?
na hova tûnt mindenki? elmentetek delphit vadászni?
5 86 36 28 23
mondjuk tipikusan azok lottóznak akik sosem voltak még matekórán vagy betegek.
most hirtelen elgondolkoztam rajta, hogy a nyeremény az a szelvények árából van, nem? tehát ha kifizetjük azt a 44millió szelvényt, és megnyerjük, akkor mindenki visszakapja az árát, és még pluszba egy kevéske pénzt is azoktól, akik nem szálltak be a buliba tehát a dolog csak nyereséges lehet. vag nincs igazam?
1 2 3 4 5-öt semmi értelme megjátszani, mert körülbelül 60-an játszák meg hetente. Régen volt valami honlap, már nem emlékszem, ahol beírtad az 5 számot és kiírta hogy hányan szokták megjátszani. Érdemes olyat, amit csak te játszol meg. De igazából mindegy mert úgyse nyertek!!! :P
Olyat írj inkább, amiben nincsenek felesleges ciklusok (ergó nem dob ki már kihúzott számokat, ami miatt újra húzatsz vele). Ez így nem hatékony és nem is túl szép.
Azt kellene ami a minden6ó-ban volt... 1684320-an nyerték meg a lottófõnyereményt és mindenkite kb 23 cent jutott :D. Tuti mindenki leszokna errõl... :)
ez biza számomra ismeretlen nyelv... egyébként nem hülyeség, for ciklusra nem is gondoltam, de mondjuk még mindig ki kell szûrni valahogy az egyforma számokat
inkább lenne mondjuk értelme olyan programot írni, ami megmondja, hogy az aktuális fõnyeremény nagyobb-e, mint 43949268*[szelvény ára], ha teljesül, érdemes megjátszani az összes számot, aztán ha másvalakinek is bejött és osztozni kell, csúnyán ráb@sztál :)
#include <algorithm> #include <iostream>
int main(int argc, char* argv[]){
vector<int> v; int j = 1;
for (int i = 1; i < 91; i++) v.push_back(i); random_shuffle(v.begin(), v.end());
for (i=0; i<5; i++){ cout << v << endl; }
}
Parancsolj. Ennél egyszerûbben nem fogod kikerülni az ismétlõdést. A lentebb vázolt megoldásnál pedig nem igen találsz hatékonyabbat.
jelenlegi ismereteim alapján ilyet még nem tudok, csak olyat, ami újat sorsol, ha olyat sorsolt ami már szerepel azt elismerem, hogy lehetett volna szebben is csinálni, de most nem ez volt a célom, hanem hogy gyorsan összedobjak valamit