To jest off topic na pewno
Kto zna nazwy występujące w pokerze hierarchię i z czego sie składa np para (2 takie same) itp chce napisać sobei programik do gry w pokera ale nie znam chierarchi
Zresztą pisząc taki programik od razu bym sie nauczył i mógł ćwiczyć granie.--Pozdrowienia {hello}
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:D
0
0
Waldi napisał:
To jest off topic na pewno
Kto zna nazwy występujące w pokerze hierarchię i z czego sie składa np para (2 takie same) itp chce napisać sobei programik do gry w pokera ale nie znam chierarchi
Zresztą pisząc taki programik od razu bym sie nauczył i mógł ćwiczyć granie.
Para, Dwie pary, Strit, Trójka, Kareta, Full, Kolor, Poker.
Przy standardowym układzie gra się od 9-tek. Para to dwie takie same. Dwie pary to tak jak pisze :). Mały Strit 9-10-W-D-K, Duży Strit 10-W-D-K-A. Trójka to 3 takie same karty. Kareta to 4, Full to kombinacja 3+2, Kolor to 5 kart o tym samym kolorze. Poker to Strit w kolorze. Jeżeli trafiłoby się kilka Pokerów :D To najstarszy jest Pik potem Trefl, Karo i Kier (odwrotnie niż np. w Tysiącu).
Chyba niczego nie pomyliłem hmm... --Jest jeszcze jeden błąd ... :)
Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++],
0
Dryobates co jeszce potrafisz zadziwiasz mnie ogromna wiedz na temat delphi poker może jeszcze wiesz jak wygrać w ruletke??
A wszystko w tej kolejności
--
Pozdrowienia {hello}
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:D
0
Waldi napisał:
Dryobates co jeszce potrafisz zadziwiasz mnie ogromna wiedz na temat delphi poker może jeszcze wiesz jak wygrać w ruletke??
Sposób na wygranie w ruletkę przedstawił mi kolega. Ale nie dopuszczamy go do kasyn, bo za bardzo go wciąga.
Trzeba na początku dysponować pewną sumą (najlepiej jak największą).
- Stawiasz 1 zł na czerwone.
- Jeżeli wygrasz to masz 2 zł i powtarzasz od punktu 1.
- Jeżeli przegrasz to stawiasz tyle ile przegrałeś (lub trochę więcej).
- Jeżeli wygrasz to odzyskasz to co ostanio i może jeszcze trochę zarobisz. I znowu powrót do punktu 1.
- Jeżeli przegrasz to wracasz do punktu 3.
I tak dalej. Ze prawdopodobnieństwa wynika, że na polu czerwonym kulka zatrzymuje sie z prawdopodobieństwem 0,5. Statystyka potwierdza to. Czyli przy dostatecznie długiej grze (najlepiej małymi zasobami pieniężnymi) zyskujesz coraz więcej (stale coś odkładasz). Oczywiście ugrasz zbyt wiele w któtkim czasie przy niskich kwotach stawianych. Ale przy wydłużeniu czasu gry możesz dorobić się fortuny (warunek to dopasować kwoty, którymi się obraca do kosztów, jakie należy ponieść w związku z dojazdem do kasyna i wejściem tam). Kolega studiuje ekonomię, więc chyba wie co mówi :D
Mówisz, że wiele zjem. W życiu nie można się ograniczać tylko do jedenj dziedziny. Spójrz na pq. Specjalizuje się w naukach przyrodniczych, a na Delphi zna się jak mało kto (wiele wspólnego programowanie z biologią nie ma - chociaż ... systemy neuronowe, symulacja pracy organizmu itp.)
Bierz przykład z Terencjusza:
"Jestem człowiekiem i nic co ludzkie nie jest mi obce".--Jest jeszcze jeden błąd ... :)
Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++],
0
Obawiam sie, ze jesli prawdopodobienstwo czerwonego jest 0,5 to stawiajac na czerwone mozna statystycznie rzec biorac tylko pozostac z ta sama forsa. Bo srednio raz na dwa razy Inc(TwojaForsa, Stawka);, raz na dwa razy Dec(TwojaForsa, Stawka);. Problem polega na tym, ze w ruletce jest zero, ktore nie jest ani czerwone ani czarne. Wiec prawdopodobienstwo czerwonego (podobnie jak czarnego) jest <0,5.
Kolega niech sie pilnuje, bo nalog hazardu zaciemnia mu myslenie i doprowadzi go do zguby.
>W życiu nie można się ograniczać tylko do jedenj dziedziny. Spójrz na pq. Specjalizuje się w naukach przyrodniczych, a na Delphi zna się jak mało kto.
Ale i na tym forum duzo sie uczy, zwlaszcza od Dryobatesa {hello} --Pawel {Delphi 6 Personal}
Po pierwsze: naciśnij F1
0
pq napisał:
Obawiam sie, ze jesli prawdopodobienstwo czerwonego jest 0,5 to stawiajac na czerwone mozna statystycznie rzec biorac tylko pozostac z ta sama forsa. Bo srednio raz na dwa razy Inc(TwojaForsa, Stawka);, raz na dwa razy Dec(TwojaForsa, Stawka);. Problem polega na tym, ze w ruletce jest zero, ktore nie jest ani czerwone ani czarne. Wiec prawdopodobienstwo czerwonego (podobnie jak czarnego) jest <0,5.
stawiam 1 zł - przegrywam
stawiam 2 zł - wygrywam 4, odkładam 2 zł
stawiam 2 zł - wygrywam 4, odkładam kolejne 2 czyli mam 4 w kieszeni
stawiam 2 zł - przegrywam, dlalej mam 4 na koncie
stawiam 4 zł - przegrywam, wyszedłem na zero
stawiam 8 zł - wygrywam 16, odkładam 8 zł
stawiam 8 zł itd.
To jest założenie, że prawdopodobieństwo jest 0,5. Ponieważ jednak 0 jest zielone to czerwonych pól jest jedynie 18 z 37. Czyli prawdopodobieństow wynosi ok. 0,4. Nie jest to wielka różnica, ale musi wziąć na to poprawkę. Byćmoże nie najlepiej przedstawiłem jego sytem.
Kolega niech sie pilnuje, bo nalog hazardu zaciemnia mu myslenie i doprowadzi go do zguby.
Pilnujemy go :)
Ale i na tym forum duzo sie uczy, zwlaszcza od Dryobatesa {hello}
Miło mi.--Jest jeszcze jeden błąd ... :)
Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++],
0
Sorry Dryobates jesli stawiasz n to masz 0.486 prawdopodobienstwa ze po grze bedziesz zyskasz n (nie 2n, bo n wygrales a drugie n bylo Twoje - przed chwila je postawiles) i 0.514 ze stracisz n. Co bys nie robil, prawdopodobienstwo straty jest wieksze. Kasyna jakos sa w stanie zarobic na siebie i jeszcze placic podatki. Zadne uczciwy system (czyli niezaburzajacy losowosci ruletki) nie jest w stanie pomoc. --Pawel {Delphi 6 Personal}
Po pierwsze: naciśnij F1
0
pq napisał:
Zadne uczciwy system (czyli niezaburzajacy losowosci ruletki) nie jest w stanie pomoc.
Cóż, nie da się ukryć:
var
a : Byte;
begin
Edit2.Text := '1';
Edit3.Text := '50';
a := 0;
repeat
Inc(a);
if Random(36)>18 then
begin
Edit3.Text := IntToStr(StrToInt(Edit3.Text)+StrToInt(Edit2.Text));
Edit2.Text := '1';
end
else
begin
Edit3.Text := IntToStr(StrToInt(Edit3.Text)-StrToInt(Edit2.Text));
Edit2.Text := IntToStr(StrToInt(Edit2.Text)*2);
end;
until (a>100)or(StrToInt(Edit3.Text)<1);
Komputer (zwykle) nie kłamie :)--Jest jeszcze jeden błąd ... :)
Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++],
0
Wracajac do tematu ja kiedys pisalem pokera mogl bym ci napisac jak zrobilem glowne zalozenia gry :)
---=-OiDnus-=-
-=-www.erudyta.glt.pl-=-
0
oidnus napisał:
Wracajac do tematu ja kiedys pisalem pokera mogl bym ci napisac jak zrobilem glowne zalozenia gry :)
>
Mi pozostało najgorsze sprawdzanie kto wygrał
Ale miło by było jak byś napisał jak to rozwiązałeś.--Pozdrowienia {hello}
Waldi Koronowo
[email protected]
Zdarza sie że pisze e przed i nie zwracajcie uwagi na to:D