Részeg Sam (véletlen mozgás)

A program Sam tántorgását szimulálja hídon. Tegyük fel, hogy Sam, aki valamilyen okból többet ivott a kelleténél, egy keskeny híd közepén áll. A negyven lépés hosszúságú hídon Sam hol az egyik, hol a másik irányba tántorog. Előre nem látható, hogy melyik irányba fog dőlni.

Hátultesztelős ciklus
Elöltesztelős ciklus

A játék algoritmusának mondatszerű leírása:

Program reszegsam:

dbLepes = 0

helyzet = 20

Ciklus

dbLepes += 1

Ha veletlenszam(0,1) = 0 akkor

helyzet = helyzet - 1

egyébként

helyzet = helyzet + 1

Elágazás vége

Mígnem (helyzet = 0) vagy (helyzet = 40)

Ciklus vége

Ha helyzet = 0 akkor

Ki: dbLepes, ”Sam elérte a jobb partot”

egyébként

Ki: dbLepes, ”Sam elérte a bal partot”

Elágazás vége

Program vége.