Delphi Image-Pomoc

Programovacie jazyky, rady, poradňa...
meteor123
Amateur
Amateur
Príspevky: 30
Registrovaný: 08 sep 2010, 17:48

Delphi Image-Pomoc

Príspevok od používateľa meteor123 »

Zdravim,potrebujem poradit ohladom programovacieho jazyka delphi.
Programujem "obesenca" a ked uzivatel zada pismeno ktore sa v slove nenachadza bude postupne vykreslovat obesenca napr.

Kód: Vybrať všetko

if zle=1 then Image1.Picture.LoadfromFile('C:\Documents and Settings\Administrator\Plocha\obesenec1.jpg');
ale kebyze to chcem niekomu poslat ta cesta bude urcite ina.Ako sa to da riesit?


//funguje,dakujem:)
audiotrack
VIP
VIP
Používateľov profilový obrázok
Príspevky: 25958
Registrovaný: 09 sep 2005, 18:39
Kontaktovať používateľa:

Re: Delphi Image-Pomoc

Príspevok od používateľa audiotrack »

Kód: Vybrať všetko

if zle=1 then Image1.Picture.LoadfromFile(ExtractFilePath(Application.ExeName) + 'obesenec1.jpg');
meteor123
Amateur
Amateur
Príspevky: 30
Registrovaný: 08 sep 2010, 17:48

Re: Delphi Image-Pomoc

Príspevok od používateľa meteor123 »

Tak znovu zdravim a znovu potrebujem pomoct/poradit:)
Dnes som naprogramoval jednoduche piskvorky(pole 3x3) pre dvoch hracov a chcel by som vediet ako postupovat,ako naprogramovat hru proti pc..
audiotrack
VIP
VIP
Používateľov profilový obrázok
Príspevky: 25958
Registrovaný: 09 sep 2005, 18:39
Kontaktovať používateľa:

Re: Delphi Image-Pomoc

Príspevok od používateľa audiotrack »

na tak malej ploche to môže počítač dávať náhodne na ľubovolné voľné políčko a pravdepodobnosť výhry bude len o málo nižšia ako keby "rozmýšlal". Ak to chceš ale spraviť aby fakt rozmýšlal, tak stratégia je rovnaká ako keď to hrá človek. Musíš sa snažiť vytvoriť vzor, z ktorého dostaneš dve rôzne možné varianty ako vyhrať. Na to ale že si ešte nedávno nevedel základy, je to dosť veľký skok
pipiak
Medium Star
Medium Star
Používateľov profilový obrázok
Príspevky: 321
Registrovaný: 11 jún 2006, 9:24
Bydlisko: KE
Kontaktovať používateľa:

Re: Delphi Image-Pomoc

Príspevok od používateľa pipiak »

alebo je aj moznost pokusit sa algorytmus najst na nete :) ,zalezi preco to robis. Ci sa ucis, alebo ta len zaujima ako to funguje, alebo je to nejaky projekt do skoly atd...
meteor123
Amateur
Amateur
Príspevky: 30
Registrovaný: 08 sep 2010, 17:48

Re: Delphi Image-Pomoc

Príspevok od používateľa meteor123 »

no tak dal som to ze pocitac bude nahodne volit policko...akurat z 10 hier som 9 krat vyhral a 1 remiza.Takze nejake rady?aky algoritmus zvolit..?alebo nieco podobne?
Jankokuk
Medium Expert
Medium Expert
Príspevky: 119
Registrovaný: 25 júl 2010, 19:51

Re: Delphi Image-Pomoc

Príspevok od používateľa Jankokuk »

:D Ja som urobil že ked daš ťažke tak bude iba vyhravať. Ta inteligencia pc nieje ťakže urobiť
Everhard
Light Expert
Light Expert
Príspevky: 79
Registrovaný: 25 dec 2010, 14:41

Re: Delphi Image-Pomoc

Príspevok od používateľa Everhard »

Minimax algoritmus je na to ako vysity.
http://cs.wikipedia.org/wiki/Minimax_%28algoritmus%29
http://en.wikipedia.org/wiki/Minimax
http://dominik.blog.matfyz.sk/p13854-minimax-algoritmus
Ja som to kodil davnejsie na projekt do skoly na 3x3x3 a potom som zistil, ze kto zacne do stredu vyhra :D trebalo zvolit 4x4x4...
Este som ti prihodil uzitocnu prezentaciu v PDF v prilohe, lebo na nete to uz nevidim. Ale je to babracka celkom, na dost hodin.
Prílohy
Game_Extras.pdf
(36.05 KiB) 22 stiahnutí
Jankokuk
Medium Expert
Medium Expert
Príspevky: 119
Registrovaný: 25 júl 2010, 19:51

Re: Delphi Image-Pomoc

Príspevok od používateľa Jankokuk »

Alebo som urobil že urobí tri kroky:
-Zisti či niekde nemá dve pri sebe na výhru, ak áno tak tam stlačí
-ak nie zisti či nemá súper dve pri sebe na výhru ak áno tak tam stlačí
-inak da náhodne
:) nieje čo riešiť

Ako by to asi fungovalo

Kód: Vybrať všetko

http://www.mochimedia.com/games/tic-tac-toe_v899363/
Napísať odpoveď