Outils pour utilisateurs

Outils du site


readdle:ccf_galton

Différences

Ci-dessous, les différences entre deux révisions de la page.

Lien vers cette vue comparative

readdle:ccf_galton [2019/04/05 15:26] (Version actuelle)
195.221.62.1 créée
Ligne 1: Ligne 1:
 +# Entrainement CCF planche de Galton
 +
 +(MicroAlg "​ccf_galton-src"​)
 +(Affecter_a credit_iterations 100000)
 +
 +(Definir (GaucheDroite)
 +(Si (= (Entier@ 0 1) 0)
 +Alors
 +(Retourner 0.5)
 +Sinon
 +(Retourner -0.5)
 +)
 +)
 +
 +(Definir (Tirage n x) 
 +(Affecter_a cellules (Liste))
 +(Affecter_a j 1)
 +(Tant_que (<= j (+ nb_niveaux 1))
 +Faire 
 +(Ajouter_a cellules 0)
 +(Affecter_a j (+ j 1))
 +)
 +(Affecter_a i 1)
 +(Tant_que (<= i b)
 +Faire
 +   ​(Affecter_a res 0)
 +   ​(Affecter_a j 1)
 +   ​(Tant_que (<= j n)
 +      Faire
 +        (Affecter_a res (+ res (GaucheDroite)))
 +        (Affecter_a j (+ j 1))
 +)
 +(Afficher res)
 +(Affecter_a k (+ res (* nb_niveaux 0.5) 1))
 +(Affecter_a cellules (+ (Nieme cellules k) 1) En_position k)
 +(Affecter_a i (+ i 1))
 +))
 +
 +(Declarer nb_niveaux b i j k res De_type "​nombre"​)
 +(Declarer cellules De_type "​liste"​)
 +
 +(Afficher "​Saisir le nombre de niveaux"​)
 +(Affecter_a nb_niveaux (Demander_un_nombre))
 +(Afficher "​Saisir le nombre de billes"​)
 +(Affecter_a b (Demander_un_nombre))
 +
 +(Tirage nb_niveaux b)
 +(Afficher cellules)
 +(/MicroAlg)
  
readdle/ccf_galton.txt · Dernière modification: 2019/04/05 15:26 par 195.221.62.1