Expérience aléatoire simple

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

[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.

[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)