Yazı Tura Programı

CLS

Print "Yazi tura atan program"

INPUT "Paranin atılıcağı sayıyı girin"; Okul

TS = 0

YS = 0

DO

IF k = Okul THEN EXIT DO

k = k + 1

x = RND

IF x < 1 / 2 THEN YS = YS + 1 ELSE TS = TS + 1

IF x < 1 / 2 THEN

COLOR , 1

PRINT "Yazi"

ELSE

COLOR , 2

PRINT " Tura"

END IF

LOOP

COLOR , 0

PRINT

PRINT "Yazilarin Sayisi"; YS

PRINT "Turalarin Sayisi"; TS