Matematické Fórum

Zdravím,
problematiku známe (máme k dispozici loďku, do níž se vejde převozník a maximálně jeden předmět. Loďku musí vždy řídit převozník. Pokud zůstanou spolu na jednom břehu bez dozoru převozníka koza a vlk, tak vlk sežere kozu. Pokud zůstane spolu na jednom břehu bez dozoru převozníka koza a zelí, tak koza sežere zelí).

Řešení je následující:

Na začátku:
levý břeh: pastevec, vlk, koza, zelí
pravý břeh: ---

1.krok: pastevec převeze kozu na pravý břeh
levý břeh: vlk, zelí
pravý břeh: pastevec, koza

2.krok: pastevec se vrátí levý břeh
levý břeh: pastevec, vlk, zelí
pravý břeh: koza

3.krok: pastevec převeze vlka na pravý břeh
levý břeh: zelí
pravý břeh: pastevec, vlk, koza

4.krok: pastevec převeze kozu na levý břeh
levý břeh: pastevec, koza, zelí
pravý břeh: vlk

5.krok: pastevec převeze zelí na pravý břeh
levý břeh: koza
pravý břeh: pastevec, vlk, zelí

6.krok: pastevec se vrátí na levý břeh
levý břeh: pastevec, koza
pravý břeh: vlk, zelí

7.krok: pastevec převeze kozu na pravý břeh
levý břeh: ---
pravý břeh: pastevec, vlk, koza, zelí

Zde to máme implementované v Javě. Čistý, jednoduchý. Dokážeš to přepsat do pascalu? Problém bude samozřejmě jediný... ten kontejner (deque/list) si budeš muset napsat sám, nevím o ničem, co by bylo pro pascal just completed. ;-)