Prológus 2
Segít megoldani a puzzle a farkas, kecske, káposzta. Meg kell mozgatni a másik oldalon
valaki - úgy döntünk, majd válassza ki az, aki jön e mellett a strand újra
választani valakit, hogy készítsen, és így a hurok minden lépésben úgy érzi, a veszteség, ha van (a farkas eszik
kecske, kecske eszik káposzta). A másik oldalon, mindig van 2 - ami korábban csak
hogy a szállított.
Próbáltam, hogy végre az adatbázison keresztül, de nem egészen értem, ez lehetővé
listák, hanem a legtöbb lehetetlen. (((
domainek
Koza, Kapusta, Volk, s = karakterlánc
összege = egész
adatbázis - lev
állatok (s)
adatbázis - prav
állatoknak1 (s)
predikátumok
párbeszéd
na4alo
nyílt
ismétlés
kikötések
repeat.repeat: Ismétlés.
nyitva: Kérjen segítséget ( "lev.dbo" lev).
párbeszéd: -
ismétlem,
write ( "Kogo vi hotite perevezti:"), nl,
kikéri ( "lev.dbo" lev)
readln (S),
visszahúzódik (állatok (S), Lev),
érvényesíteni (állatoknak1 (S), prav),
write ( "Kto pridet sleduschej?"), nl,
readln (X),
assertz (állatok (X)),
menteni ( "lev.dbo" lev)
menteni ( "prav.dbo" prav)
levelet ( "Vi hotite prodolzhit? I / N"), nl,
readln (Z),
"N" Z =.
De itt meg kell befejezni a csekket, hogy milyen típusú kecske megeszi a káposztát, a farkas - kecske, ciklus I.
Ez addig ismétlődik, amíg ez ideig még nem nyomja meg a Stop és megvizsgálja a veszteség minden egyes lépésnél.
Segítség pliz.