« Programmation objet et géométrie/Programmation avec DrGeoII » : différence entre les versions

Contenu supprimé Contenu ajouté
Hilaire (discussion | contributions)
→‎Lancer de deux dés : nettoyage (script superfétatoire en dehors des balises)
Ligne 346 :
Il est clair que le 7, qui est sorti 18 fois, est plus fréquent que le 3, qui n'est sorti que 4 fois.
 
 
|figure gobelet stats item|
stats:=Array new: 12 withAll: 0.
gobelet:=[(1 to: 6) atRandom].
figure := DrGeoCanvas new.
1 to: 10000 do: [:i | | somme |
somme := gobelet value + gobelet value.
stats at: somme put: ((stats at: somme) + 1)].
2 to: 12 do: [:i|
item :=figure segment: i@0 to: i@((stats at: i) / 100).
item color: Color red.
item := figure point: i@0.
item show; square; color: Color blue; name: i asString].
Pour avoir un diagramme en bâtons, on peut dessiner les segments à partir des éléments du tableau (abscisses: les indices; longueurs: les affectifs, divisés par 100 pour ne pas avoir de dessin trop allongé). Pour effectuer 10 000 lancers, on peut faire ainsi: