HELPplease le 06/09/2015 à 15:45

---

Bonjours, je voudrais de l'aide pour programmer la fonction random car j'essaye depuis une trois heures et ne trouve plus mes erreurs...

Je devais traduire ceci sur ma calculatrice :

DEBUT_ALGORITHME
K PREND_LA_VALEUR 0
AFFICHER "Parametre n"
Lire n
Afficher "parametre p"
Lire p
AFFICHER "combien de tests ?"
Lire nb_test
POUR i ALLANT_DE 1 A nb_test
DEBUT_POUR
X PREND_LA_VALEUR 0
POUR cpt ALLANT_DE 1 A n
DEBUT_POUR
SI (random()<=p) ALORS
DEBUT_SI
X PREND_LA_VALEUR x+1
FIN_SI
FIN_POUR
SI(x==4)ALORS
DEBUT_SI
K PREND_LA_VALEUR K+1
FIN_SI
FIN_POUR
AFFICHER "frequence du 4"
AFFICHERCALCUL K/nb_tets
FIN_ALGORITHME


Voilà, désolé que ce soit aussi long ^^ je vous met maintenant ce que j'ai donc tapé à la calculatrice:


0->K
Disp "PARAMETRE N"
Prompt N
Disp "PARAMETRE P"
Prompt P
Disp "COMBIEN DE TEST ?"
Prompt nb_test
For(I,1,nb_test)
0->X
For(CPT,1,N)
If(NbrAléat()<=p)
X+1->X
If (X==4)
K+1->K
EndIf
EndFor
Disp "FREQUENCE DU 4"
Disp "CALCUL K/nb_test
End



Voilà bonne chance à celui ou celle qui aura la gentillesse de ce lancer dans ma correction ^^ à noté que je ne savait pas à quoi corespondait "CPT" je l'ai donc ecris en lettre sur la calculatrice :/
bye

Mingerton le 20/09/2015 à 20:47

---

Réponse un peu tardive, mais si jamais tu repasses par ici elle sera là

Attention aux variables. Les nombres en Basic 83+ ne peuvent être stockés que dans des variables adaptées (souvent des lettres).

On a en basic une fonction Input bien pratique qui te permet de demander une variable avec un texte défini. Ca va simplifier ton code.

Les End sont uniques et universels en Basic. Pas de EndIf, EndFor, etc. On met End. Plus simple également.

Quel random veux-tu ? Des entiers ou pas ? Le code qui suit sera pour les entiers.

Ce qui nous donne :