bewerking=bewerking1.proc
!if $taal=nl
    hint=geen hint vandaag<br>helaas nog geen tijd voor gehad...
    somtekst1=Zet de volgende hoeken om van graden naar radialen.<br>\
    Veelvouden van 30<sup>o</sup> en van 45<sup>o</sup> moet je <b>exact</b> \
    omrekenen.<br>De andere hoeken <b>moet</b> je afronden op <b>twee</b> decimalen .<br>
    
    nivo_title=Van graden naar radialen.<br>Niet te lastig...
    radialen=radialen
!else
    hint=no hints today<br>haven't had time for that...
    somtekst1=Convert the next angles from degrees to radians.<br>\
    Multiples of 30<sup>o</sup> and of 45<sup>o</sup> must be converted <b>exactly</b>.<br>\
    All other angles <b>must</b> be rounded of at <b>two</b> decimals.<br>
    nivo_title=From degrees to Radians. <br>Not too difficult...
    radialen=radians
!endif


!for q=1 to 20
    G=$[30*$q]	
    GR=$[45*$q]
    GRADEN=!append item $G to $GRADEN
    GRADEN=!append item $GR to $GRADEN
!next q

graden=30,45,60,90,120,135,150,180,210,240,270,300,330,360
graden=!shuffle $graden
!for n=1 to $aantal_sommen
	    graden$n=!item $n of $graden
	    som$n=$(graden$n)<sup>o</sup>&nbsp; 

	!if $(graden$n) isitemof $GRADEN
	    K$n=!exec pari $(graden$n)/180
	    GOED$n=$(K$n) pi
	!else
	    b=pi/180
	    radialen$n=$[$b*$(graden$n)]
	    GOED$n=!exec pari round($(radialen$n)*100)
	    GOED$n=$[$(GOED$n)/100]
	!endif	
	    mijn_antwoord$n=$(GOED$n) $radialen
!next n

