Ajuta la rezolvarea problemei lupului, caprei, varza. Trebuie să fii transportat spre celălalt mal
cineva - alegem, apoi alege cine va veni lângă acest țărm și din nou
aleg pe cine să transporte și așa în ciclul la fiecare pas considerăm pierderi, dacă există (lupul mănâncă
capră, capră mănâncă varză). Pe acel țărm, există întotdeauna 2 - care a fost înainte și numai
care a fost transportat.
Am încercat să pun în aplicare prin intermediul bazei de date, dar nu prea înțeleg, puteți trece prin ea
listele, dar același lucru nu funcționează. (((
domenii
Koza, Kapusta, Volk, s = șir
suma = întreg
baza de date - lev
animal (i)
baza de date - prav
animale1 (e)
predicate
dialog
na4alo
deschis
repeta
clauze
repeta.repeat: -repeați.
deschis: -consult ("lev.dbo", lev).
dialog: -
repet,
scrie ("Kogo vi hotite perevezti:"), nl,
consultați ("lev.dbo", lev),
readln (S),
retrage (animale (S), lev),
afirmă (animale1 (S), prav),
scrie ("Kto adaugă sleduschej?"), nl,
readln (X),
assertz (animale (X)),
salvați ("lev.dbo", lev),
salvați ("prav.dbo", prav),
scrie ("Vi hotite prodolzhit? Y / N"), nl,
readln (Z),
Z = "N".
Dar aici este necesar să se termine verificarea că tipul de capră de varză mănâncă, lupul este o capră, ciclul din mine
se repetă până când este timpul să apăs de stop și să înregistrez pierderile la fiecare pas.
Ajută-mă pliz.