XProfan

Titre de la fenêtre "Lineare Häufigkeitsverteilung dans k% Klassen im Bereich low% jusqu'à high%"
font 2:randomize:cls rnd(8^8)
' source: un vom Wind aus direction Westen herbeigetragener Zettel
var k%=20 : var low%=10 : var high%=99
declare h%[k%-1]

WhileLoop 0,k%-1

    h%[&Boucle]=rnd(high%-low%+1) + low%
    imprimer &Boucle,h%[&Boucle]

Endwhile

Waitinput