Fej vagy írás

Ha egy érmét megpörgetve feldobunk, a dobás eredménye egyenlő eséllyel lesz fej vagy vagy írás. Írj programot, melynek segítségével a számítógép meghatározott számú „pénzfeldobást” végez!
Véletlenszám-generálás (Random objektum használata)
Formázott eredménykiíratás
A fej vagy írás játék algoritmusa mondatszerű leírással:
Program fejvagyiras:
Be: dbDobas
Ciklusváltozó i = 1-től dbDobas-ig
Ha veletlenszam(0,1) = 0 akkor
Ki: dobás sorszáma, eredménye 'Írás
egyébként
Ki: dobás sorszáma, eredménye 'Fej
Elágazás vége
Ciklus vége
Program vége.
Fej vagy írás 2.0
Az előző program kiegészítése a fej és az írás dobások megszámlálásával.
Programozási tételek: Megszámlálás tétele
Változó értékének növelése eggyel
A módosított játék algoritmusának mondatszerű leírása:
Program fejvagyiras2.0:
dbFej = 0
Be: dbDobas
Ciklusváltozó i = 1-től dbDobas-ig
Ha veletlenszam(0,1) = 0 akkor
Ki: dobás sorszáma, eredménye 'Írás
egyébként
Ki: dobás sorszáma, eredménye 'Fej
dbFej = dbFej + 1
Elágazás vége
Ciklus vége
Ki: dbFej,
Ki: dbDobas-dbFej 'írások száma
Program vége.