- Milyen billentyűzetet vegyek?
- Apple MacBook
- Hobby elektronika
- AMD Ryzen 9 / 7 / 5 7***(X) "Zen 4" (AM5)
- Szünetmentes tápegységek (UPS)
- Milyen processzort vegyek?
- Meghalt a Windows 10, éljen a Windows 10!
- Samsung Galaxy Tab S11 - tizenegyes
- AMD Navi Radeon™ RX 9xxx sorozat
- Amlogic S905, S912 processzoros készülékek
Új hozzászólás Aktív témák
-
[HUN]Zolee
őstag
nem olvastam végig hogy mi is a progid, de sztem így lenne helyes :
jo : boolean;
jo= true;
for i:=1 to 3 do
for j:=1 to 3 do
jo:= jo and (kevert [ i , j ]= nyert [ i , j ]);
if jo= true then nyertes;
tehát ha valamelyik tömbelem nem egyezik akkor hamis lesz a feltétel, és akkor még nem nyert, mert amit te írtál az azt csinálja hgoy ha az egyik elem a helyére kerül akkor már nyertesnek jelöli. -
VladimirR
nagyúr
a ciklusmagban ez legyen:
tomb[ i, j ] := ( i - 1 ) * 3 + j;
es ellenorzeshez is hasznalhatsz eg ugyanilyen ciklust
nyert := true;
for i := 1 to 3 do
for j := 1 to 3 do
nyert := nyert and tomb[ i, j ] = ( i - 1 ) * 3 + j;
a nyert boolean valtozo itt igazzal kezd, s amig a cellkban megfelelo ertek van, igaz is marad
ha egy cellenal nem egyezik a vizsgalt ertek azzal, amivel kell, akkor a nyert erteke hamis lesz es a tovabbiakban is az marad -
VladimirR
nagyúr
mint Sportman is irta, hasznalj egy 3x3-as tombot, amiben a tabla aktualis allasat tarolod
a 8-as elem jobbra mozditasahoz a fuggveny annyit kell tegyen, hogy atrakja a tomb[3][2] elemet a tomb[3][3] elembe, a tomb[3][2] elemet pedig uresnek jeloli (pl 0-t tesz bele)
azt, hogy epp melyik elemen vagy, a kurzor aktualis poziciojabol (wherex, wherey fuggvenyek), illetve abbol, hogy hova rajzoltad a tablatki tudod szamolni
persze minden mozgatas utan ujra kell rajzolnod a mozgatott elem kiindulo es erkezesi cellajat (vagy ha jobban tetszik, irhatsz egy eljarast, ami az egesz tablat ujrarajzolja a tomb ertekei alapjan)
ezen kivul figyelned kell meg egy billentyut, ami kapcsolokent mukodik - egy logikai valtozot billent at leutesre, amely valtozo erteketol fugg, hogy csak a kurzort mozgatod, vagy az alatta levo mezo tartalmat is
Új hozzászólás Aktív témák
- ASZTALI GÉP / ALKATRÉSZ beárazás
- Újjászületés: szombattól új szerverkörnyezetben a PROHARDVER! lapcsalád
- Xbox Series X|S
- Autós topik
- Mibe tegyem a megtakarításaimat?
- Kínai és egyéb olcsó órák topikja
- Milyen billentyűzetet vegyek?
- Apple MacBook
- Huawei Watch GT 6 és GT 6 Pro duplateszt
- Hobby elektronika
- További aktív témák...
- Samsung Galaxy S24 Ultra 512 GB (Ezüst) Prémium ajándékcsomaggal Típusváltás miatt eladó
- Ghost of Yotei + előrendelői kód
- Gigabyte RTX 4080 XTreme WaterForce 16GB GDDR6X Videokártya! BeszámítOK
- XBOX Series Shock Blue kontroller - Gar.: 2026.04 hó
- Mini PC - HP EliteDesk 800 G3 DM / i5-6500T / DDR4 / NVME M.2 / USB Type-C / több db / 27% számla
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest