#COMPILE EXE #DIM ALL %True = 1 %False = 0 FUNCTION PBMAIN () AS LONG LOCAL i AS INTEGER LOCAL J AS INTEGER LOCAL noten() AS INTEGER LOCAL test AS INTEGER LOCAL reeks() AS INTEGER DIM noten(0 TO 11) AS INTEGER DIM reeks(0 TO 11) AS INTEGER start: CLS RANDOMIZE TIMER 'geneereert niet telkens dezelfde reeks DO FOR i = 0 TO 11 'genereer een willekeurige reeks met getallen van 0 tot 11 reeks(i) = RND *12 noten(i) = %False NEXT i 'kijk of deze gok goed is: FOR i = 0 TO 11 'nootnaamteller FOR j = 0 TO 11 'reeksvolgorde teller IF i = reeks(j) MOD 12 THEN noten(i) = %True NEXT j NEXT i 'output konditie: test = %False FOR i = 0 TO 11 IF noten(i) THEN INCR test IF test = 12 THEN EXIT DO END IF NEXT IF INKEY$= "*" THEN EXIT LOOP LOOP FOR i = 0 TO 11 PRINT reeks(i)MOD 12; NEXT i PRINT PRINT PRINT "Druk op een toets om door te gaan..." WAITKEY$ GOTO start END FUNCTION