Hra Zápalky (NIM) – Pascal – Fórum – Programujte.com

Nejsem si jistá, jestli tu už takový dotaz nebyl, ale nemám na to prohledávat se svým "ultra rychlým" připojením vlákna s názvem "Úkol" apod. [br]
Mám v Pascalu naprogramovat hru Zápalky (+ výv. diagram, tabulka, návod), zadání se lehce liší od té známé verze. Samozřejmě po vás nemůžu chtít napsat celý úkol (i když bych se tomu nebránila, ale jsem realista), potřebuju hlavně nějaké řádné popostrčení správným směrem. Zatím jsem přišla jen na to, že aby hráč vyhrál, musí odebrat tak, aby na stole zbyly 4 zápalky (čili se to bude odvíjet od násobků 4 nebo tak něco). [br]
Zadání: Dva hráči hrají hru, při které odebírají zápalky z hromádky. Na začátku hry je na hromádce předem známý počet zápalek (N). V jednom tahu může hráč odebrat 1, 2 nebo 3 zápalky. Hra končí ve chvíli, kdy některý z hráčů už nemůže táhnout ( na hromádce není žádná zápalka). Tento hráč prohrál. Určete, pro které poč. hodnoty N má při správné hře zajištěnou výhru ten hráč, který hru zahajuje. Napište program tak, aby generoval náhodná čísla N taková, aby hráč měl šanci vyhrát.

Kdyz hrac prohraje kdyz je na stole 0, tak prohraje i kdyz jsou na stole 0+4, jak jsi uz zjistila. Protoze druhy hrac muze vzdycky spravne zareagovat. Ted se zamysli co to rika o stavech k a k+4.

Celý algoritmus hraní se dá v podstatě shrnout do jedné věty: je potřeba odebrat tolik sirek, aby zbyl počet dělitelný čtyřmi.

Dělitelnost čtyřmi znamená nulový zbytek po dělení čtyřmi (čili číslo mod 4 = 0). Pokud nulový není, tak nám stačí právě tenhle zbytek odebrat, abychom se dostali na násobek 4. Pokud už nulový je, můžeme to rovnou zabalit (nebo odebrat náhodný počet a doufat, že to protihráč někde zvoře :-) ).

V příloze něco máš (je potřeba přečíst si komentáře.

Díky moc, uz jsem to tak nějak dala dohromady. Dost se to podobá Sirkám od Honzce, ale mám Crt knihovnu, kde chybi EInOutError, tak jsem nahradila funkcí val a navíc u mě má mít šanci vyhrát hráč (pokud zná taktiku). Už jen nakreslit vývojový diagram a loučím se s Pascalem navždy (doufám) ]:)