Turbo pascal

[myriam83]

Bonjour à tous!

Merci de m'aider sur le sujet suivant que je n'arrive pas à programmer:

"Un animateur de télévision propose à un jouer une suite de tirages, avec remise, dans un sac contenant n papiers. Sur chaque papier est dessiné un lot.
Tous les papiers sont indiscernables à la vue et représentent des lots distincts. La suite des tirages s'arrête dès qu'un papier est tiré pour la deuxième fois. Le lot représenté par ce papier est alors gagné par le joueur. On désigne par Tn la variable aléatoire égale au nombre de tirages nécessaires pour gagner un lot.
Ecrire un programme en langage pascal permettant de simuler après lecture de n, la suite des tirages et d'obtenir la valeur prise par Tn."

Merci d'avance!

[nema]

Salut
je crois que tu dois déclarer un tableau nommé lot par exemple dans lequel tu vas mette les numéros des lots tirés ,Tn compteur initialisé à 0, n est une donnée à lire et puis tu fais le traitement suivant
repeat
Tn:=Tn+1 (pour incrémenter le compteur)
lot[Tn]:=aléa (n) ;
for j:=1 to Tn-1 do
begin
if lot[j]:= lot[Tn] then
fin_tirage:=true
else fin_tirage:=false;
end;

until fin_tirage=true
ensuite tu affiches les valeurs du tableau et Tn.