Inscription / Connexion Nouveau Sujet
Niveau autre
Partager :

turbo pascal

Posté par
myriam83
27-12-09 à 17:36

Bonjour à tous!

Merci de m'aider à programmer le sujet suivant:

"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!

Posté par
infophile
re : turbo pascal 27-12-09 à 19:42

Bonsoir

Je verrais bien un truc dans ce style : tu fais un readln(n), tu crées une fonction qui initialise un tableau T de taille n dont les coefficients sont tous nuls. Ensuite tu crées une boucle while, dedans tu génères aléatoirement un nombre i compris entre 1 et n, et tu incrémentes la valeur de la case T[i]. La boucle s'arrête dès qu'une case reçoit la valeur 2. (On ajoutera aussi dans la boucle un compteur pour donner la valeur de Tn à la fin).

Posté par
verdurin
re : turbo pascal 27-12-09 à 19:43

Bonsoir,
une méthode possible serait
\quad{}- créer un tableau T de booléens  de taille n
(c'est possible mais je ne me souviens pas comment faire, en tout cas une liste chainée par pointeur marche mais me semble excessivement lourde)

\quad{}- mettre tout les booléens à 0=faux

\quad{}- tirer un nombre k au hasard dans {1...n} et mettre T[k] à 1=vrai

\quad{}- répéter tant que T[k] est faux.

Il manque bien sur un compteur pour évaluer Tn
On peut aussi faire un tableau d'entier initialiser à 0 et mettre le numéro du tirage à chaque fois.



Vous devez être membre accéder à ce service...

Pas encore inscrit ?

1 compte par personne, multi-compte interdit !

Ou identifiez-vous :


Rester sur la page

Inscription gratuite

Fiches en rapport

parmi 1675 fiches de maths

Désolé, votre version d'Internet Explorer est plus que périmée ! Merci de le mettre à jour ou de télécharger Firefox ou Google Chrome pour utiliser le site. Votre ordinateur vous remerciera !