Pexeso v delphi – Delphi – Fórum – Programujte.com

Dobrý den,

ve škole jsme začali pracovat v prostředí delphi a já se s ním teprve seznamuji. 

Dostali jsme za úkol aplikaci ve stylu pexesa. Jedná se o pole 8x8 a to se musí náhodně vyplnit dvojcema čísel 1-32. Nevím si moc rady, ta prosím o pomoc. Děkuji

a nevis si pomoct s cim presne ?

#2 p3can
Nevím, jak mám vyplnit to pole.

Dvourozměrné pole procházím pomocí dvou cyklů for. Pro každý prvek pole generuji náhodné číslo z rozsahu 1 - 32. Eviduji pro každé číslo kolikrát padlo. Pokud padlo dvakrát (je tedy uloženo už ve dvou prvcích pole) generuji číslo nové, jinak uložím číslo do prvku pole a zaeviduji že padlo. Zde potřebuješ pomocné pole počitadel pro evidenci kolikrát číslo padlo.

Jiný postup: všechny prvky dvourozměrného pole inicializuji na 0. Procházím cyklem řadu od 1 do 32 a pro každé číslo generuji nahodile polohu - dvě nahodilá čísla od 1 do 8 jako indexy prvku pole. Pokud je prvek s těmito indexy 0, zapíšu číslo do prvku, jinak generuji novou polohu. Opakuji 2x abych vyplnil číslem 2 prvky pole

hu

Třetí možnost: naplnit pole čísly od 1 do 32 uspořádaně a pomocí generátoru nahodilých čísel pole "zamíchat" - generovat indexy prvků, které si vymění místo. Při dostatečném počtu výměn (lze generovat také nahodile) se to bude chovat jako zamíchání nového balíčku kartiček. Zde se nabízí i možnost "zamíchat" poslední známý stav.

hu