!set n=$teller
kans=1
!if $graad=0
    R=$teller
!else
    R=$graad
!endif  
opgave$n=$empty
bewerking=bewerking1.proc
nivo_title=Oneerlijke dobbelstenen en bereken de Kans op ?
!if $R>0
    # twee dobbelstenen
    PP=!randitem 2/9:1/9,2/11:5/33,5/23:8/69,5/24:1/8,5/26:11/78,5/27:4/27,5/28:13/84,5/29:14/87
    PP=!replace internal : by , in $PP
    P=!item 1 of $PP
    PL=!replace internal / by : in $P
    p=!item 2 of $PP
    pl=!replace internal / by : in $P
    ZES=!randitem 1,2,3,4,5,6
    zes=!item $ZES of $telwoorden 
    EEN=$[7-$ZES]
    een=!item $EEN of $telwoorden
    GOED$n=$p
    somtekst$n=Ik heb een <font color=red><b>oneerlijke</b></font> dobbelsteen<br>\
    <table cellpadding=10><td>De kans op een <b>$zes</b> bij deze dobbelsteen is:</td><td><img src=$module_dir/gifs/$PL.gif></td><tr>\
    <td>de kans op de andere ogen , behalve $een , is gewoon:</td><td><img src=$module_dir/gifs/1:6.gif></td></table>\
    <p>Hoe groot is de kans op een <b>$een</b> bij deze dobbelsteen?<br>
    opgave$n=$empty
 !exit
!endif
