Page 1 of 1

Expérience aléatoire simple

Unread postPosted: 22 May 2016, 16:00
by theop8
Bonjour
Je suis en 2nde et je ne sais pas bien programmer avec ma calculatrice.
Je cherche à faire une expérience aléatoire simple. Voici le sujet:
Un archer touche le centre d'une cible 6 fois sur 10.
Faire la simulation pour 100 tirs.
A quelle fréquence l'archer touch-t-il sa cible ?


J'ai tenté de créer le programme moi-même, voilà ce que ça donne:

Code: Select all
Define experience(n,d,c,i)=
Prgm
Local n
c:=0
For i,1,n
d:=randInt(1,10,n)
EndFor
If d≤6
c:=c+1
Return c
EndPrgm


-> Pas assez d'arguments

Merci pour votre aide !

Re: Expérience aléatoire simple

Unread postPosted: 22 May 2016, 16:21
by Hamza.S
salut,

randInt(1,10,n) renvoie une liste, ce n'est pas ce que tu souhaites avoir à mon avis.
pas assez d'arguments, c'est normal, tu places des arguments inconnus entres les parenthèses difficile d'utiliser le programme avec ça.
ton test avec la variable "d" se passe après la boucle je pense qu'il devrait être dans la boucle.

Re: Expérience aléatoire simple

Unread postPosted: 22 May 2016, 19:56
by Hamza.S
ce genre d'exercice, le mieux est de créer une fonction, vu qu'il n'y a qu'une ligne à afficher.
un exemple :
Code: Select all
Define experience(n)=
Func
Local d,c,i © déclaration de variable en Local Func n'aime pas les variables globales
c:=0
For i,1,n
  d:=randInt(1,10) © on fait calcul par calcul au lieu d'une liste avec randInt(1,10,n)
  If d≤6
  c:=c+1
EndFor
Return c
EndFunc

(sans le texte gris)
et pour l'exécuter c'est experience(100)