%!TEX pdflatex

\documentclass{article}
\usepackage{tikz}
\usepackage{randomlist}
\usepackage{pgffor}
\usepackage{color}
\usepackage{fp}
\FPseed\time
\usepackage{siunitx}
\usepackage{xstring}

\begin{document}

\FPeval\NBBOULESROUGES{round(1 + 6*random,0)} % Génération du nombre de boules rouges (entre 1 et 7)
\FPeval\NBBOULESVERTES{round(1 + 8*random,0)} % Génération du nombre de boules vertes (entre 1 et 9)
\FPeval\NBBOULESBLEUES{round(1 + 5*random,0)} % Génération du nombre de boules bleues (entre 1 et 6)
\FPeval\NBBOULESJAUNES{round(1 + 7*random,0)} % Génération du nombre de boules jaunes (entre 1 et 8)
\FPeval\NBBOULESORANGES{round(1 + 9*random,0)} % Génération du nombre de boules oranges (entre 1 et 10)
\FPeval\NBBOULESTOTAL{round(\NBBOULESROUGES+\NBBOULESVERTES+\NBBOULESBLEUES+\NBBOULESJAUNES+\NBBOULESORANGES,0)}
\FPeval\dernierindice{round(\NBBOULESTOTAL-1,0)}

%Pour vérifier les valeurs
%\NBBOULESROUGES{} R + \NBBOULESVERTES{} V + \NBBOULESBLEUES{} B + \NBBOULESJAUNES{} J + \NBBOULESORANGES{} O
%
%\NBBOULESTOTAL{} et \dernierindice{}

\pgfmathdeclarerandomlist{Couleurs}{%
	{Rouge}
	{Verte}%
	{Bleue}%
	{Jaune}%
	{Orange}%
}
\pgfmathrandomitem{\RandomColor}{Couleurs}


%URNES
\NewList{urne}
\newcount\nbr
\nbr=\NBBOULESROUGES
\loop
	\InsertRandomItem{urne}{red}
	\advance \nbr -1
	\ifnum \nbr>0
\repeat
\newcount\nbv
\nbv=\NBBOULESVERTES
\loop
	\InsertRandomItem{urne}{green}
	\advance \nbv -1
	\ifnum \nbv>0
\repeat
\newcount\nbb
\nbb=\NBBOULESBLEUES
\loop
	\InsertRandomItem{urne}{blue}
	\advance \nbb -1
	\ifnum \nbb>0
\repeat
\newcount\nbj
\nbj=\NBBOULESJAUNES
\loop
	\InsertRandomItem{urne}{yellow}
	\advance \nbj -1
	\ifnum \nbj>0
\repeat
\newcount\nbo
\nbo=\NBBOULESORANGES
\loop
	\InsertRandomItem{urne}{orange}
	\advance \nbo -1
	\ifnum \nbo>0
\repeat
%\ShowList{urne}

Dans une urne on a \num{\NBBOULESROUGES} boules rouges, \num{\NBBOULESVERTES} boules vertes, \num{\NBBOULESBLEUES} boules bleues, \num{\NBBOULESJAUNES} boules jaunes et \num{\NBBOULESORANGES} boules oranges.
Quelle est la probabilité $P(\StrLeft{\RandomColor}{1})$ de tirer une boule de couleur {\RandomColor} ?

\medskip

\begin{center}
	\begin{tikzpicture}[scale=0.33]
	\foreach \i in {0,1,...,\dernierindice}{%
		\FPeval{\q}{trunc(\i/9,0)}
		\FPeval{\r}{trunc(\i-9*\q,0)}
		\draw[fill={\urne[\i]}] (\r,\q) circle[radius=0.45] ;%
	}
	\FPeval\nblignes{trunc(\dernierindice/9,0)}
	\draw[thick] (-0.6,-0.6) rectangle (8.6,{\nblignes+0.6}) ;
\end{tikzpicture}
\end{center}


\end{document}