!set n=$teller
kans=1
!if $graad=0
    R=$teller
!else
    R=$graad
!endif  
opgave$n=$empty
bewerking=bewerking1.proc
nivo_title=Bereken de Kans op ?
!if $R=1
    keuze=!randitem 1,2
    !if $keuze=1
	soort=!randitem rood,zwart
	GOED$n=1/2    
	goed$n=Er zijn maar twee kleuren...rood en zwart.<br>Van beide kleuren zitten er 26 in een pakje.<br>\
	De kans is dus fifty fifty. Dus de kans is 1/2.
    !else
	soort=!randitem klaver,harten,schoppen,ruiten
	GOED$n=1/4    
	goed$n=Er zitten vier soorten kaarten in een setje.<br>\
	Te weten: klaver,harten,schoppen en ruiten.<br>\
	Van alle vier soorten heb je er evenveel, nl. 13.<br>\
	De kans is dus 1/4. 
    !endif
    somtekst$n=Je hebt een volledig setje kaarten.<br>\
    Je schudt ze goed door elkaar en pakt vervolgens &eacute;&eacute;n kaart van het stapeltje.<br>\
    Hoe groot is de kans dat deze kaart $soort is ?
    tex$n=0
 !exit
!endif
!if $R=2
    t1=!randitem 3,4,5,6
    keuze=!randitem 1,2
    !if $keuze=1
	soort=!randitem rood,zwart
	G=1
	GG=1
	!for p=1 to $t1
	    G=$[$G*((27-$p)/(53-$p))]
	    GG=$GG*($[27-$p]/$[53-$p])
	!next p
	GOED$n=$G
	goed$n=<font size=+1>P</font>($t1 $soort)=$GG=$G
    !else
	soort=!randitem klaver,harten,schoppen,ruiten
	G=1
	GG=1
	!for p=1 to $t1
	    G=$[$G*((14-$p)/(53-$p))]
	    GG=$GG*($[14-$p]/$[53-$p])
	!next p
	GOED$n=$G
	goed$n=<font size=+1>P</font>($t1 $soort)=$GG=$G
    !endif
    ##!item $[$teller+1] of $telwoorden
    somtekst$n=Je hebt een volledig setje kaarten.<br>\
    Je schudt ze goed door elkaar en pakt vervolgens $t1 kaarten van het stapeltje.<br>\
    Hoe groot is de kans dat deze kaarten $soort zijn ?
    tex$n=0
 !exit
!endif
!if $R>2
    kleiner=!randitem groter,kleiner
    !if $kleiner=groter
	keuze=!randint 1,12
    !else
	keuze=!randint 2,13
    !endif	
    somtekst$n=Je heb een volledig pakje kaarten.<br>\
    Elke kaart telt als z'n nummer. <br>\
    Verder geldt: een Boer=11,Vrouw=12,Heer=13 en een Aas=1</em></small><br>\
    Je schud ze goed door elkaar en pak vervolgens &eacute;&eacute;n kaart van het stapeltje<br>\
    Hoe groot is de kans dat die kaart $kleiner is als $keuze ?
    !if $kleiner=kleiner
        GOED$n=$[4*($keuze -1)/52]    
        goed$n=Je hebt 4 keer $[$keuze -1] kaarten kleiner dan $keuze . <br> <font size=+1>P</font>(kaart&lt; $keuze)=$[4*($keuze -1)]/52= $(GOED$n)
    !else
        GOED$n=$[(52- 4*$keuze)/52]    
        goed$n=Je hebt 4 keer $[13 - $keuze] kaarten groter dan $keuze . <br> <font size=+1>P</font>(kaart&gt; $keuze)=$[4*(13- $keuze)]/52= $(GOED$n)
    !endif
    tex$n=0
 !exit
!endif
