Fej vagy írás

logo

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.