Bonjour

Sur une Casio graph ?

Non, sur une texas instrument 83+

Je suppose que le tirage se fait avec remise ! (sinon ce n'est pas possible)


:seq(0,N,1,500) -> L1         ici on met 500 zéros dans la liste
:For (J,1,500)                on tire 500 boules
:int(100 rand + 1) -> A       on choisit la couleur de 1 à 60 c'est blanc (codée 0)
:if A > 60 then 1-> L1[J]     de 61 à 90 c'est noir (codée 1)
:End
:if A < 0.1 then 2-> L1[J]    de 91 à 100 c'est rouge (codée 2)
:End
:Next


La liste 1 contiendra 500 entiers
0 .... blanc
1 .... noir
2 .... rouge


peut-être que sur la 83, la boucle s'écrit
:For J=1 to 500     ou     :For 1 -> J To 500


Comme je n'ai pas de TI, je n'ai pas testé !

merci beaucoup!!

Attention

Remplacer
:if A < 0.1 then 2-> L1[J]    de 91 à 100 c'est rouge (codée 2)

par
:if A > 90 then 2-> L1[J]    de 91 à 100 c'est rouge (codée 2)

mais il n'y a pas de "to" sur la TI

je suis sur qu'il y a un FOR
as-tu essayé    :For (J,1,500)   ?

c'est comme cela je crois sur les TI 82 ...