Kockadobó játék 2 kockával

A dobások eredménye mindig 2 és 12 közé esik, és az egyes értékek bekövetkezésének valószínűsége nem egyenlő.

Számtípus formázott kiírása tizedesjegyek, százalék, pénznem, dátum-idő

Program ketkocka:

db7 = 0

Be: dbDobas

Ciklusváltozó = 1-től dbDobas-ig

d1 = veletlenszam(1,6)

d2 = veletlenszam(1,6)

Ki: d1, d2

Ha d1 + d2 = 7 akkor

db7 = db7 + 1

Elágazás vége

Ciklus vége

Ki: db7/dbDobas 'százalék formátumban

Program vége.