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

Contenu supprimé Contenu ajouté
Ligne 370 :
<source lang="smalltalk">
|figure gobelet de1 de2 s stats a b|
 
stats:=Array new: 12.
2 to: 12 do: [:i | stats at: i put: 0].
 
gobelet:=[(1 to: 6) atRandom].
 
 
 
figure := DrGeoCanvas new.
 
1 to: 10000 do: [:i|
de1:=gobelet value.
de2:=gobelet value.
s:=de1+de2.
stats at: s put: ((stats at: s)+1).
].
].
 
2 to: 12 do: [:i|
a s:=figure pointsegment: i@0 to: i@((stats at: i) /100).
s color: Color red.
a hide.
].
b:=figure point: i@((stats at: i) /100).
b hide.
s:=figure segment: a to: b.
s color: Color red.
].
</source>