Traduire un programme |
Auteur |
Message |
Gostknight
Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 13 Déc 2012, 19:09
|
Posté le : Jeu 13 Déc 2012, 19:31
|
|
|
Bonjour tout le monde,
J'aimerais mettre ce programme sur ma calculatrice mais je ne trouve pas tout les commandes. Le voici:
C←0
Demander n
Pour i variant de 1 à n
S←0
Pour k variant de 1 à 4
r←0 ou 1 au hasard
S←S+r
Fin du Pour
Si S≥ 2 alors C←C+1
Fin du Si
Fin du Pour
Afficher C/n
Merci d'avance
|
|
|
|
Gostknight
Autorisation : Membre
Nb de messages : 2
Inscrit le : Jeu 13 Déc 2012, 19:09
|
Posté le : Jeu 13 Déc 2012, 19:35
|
|
|
Je viens de voir que les signes ne s'affichent pas donc je recommence:
C(fleches vers la gauche)0
Demander n
Pour i variant de 1 à n
S(fleches vers la gauche)0
Pour k variant de 1 à 4
r(fleches vers la gauche)0 ou 1 au hasard
S(fleches vers la gauche)S+r
Fin du Pour
Si S(superieur ou egale a)2 alors C(fleches vers la gauche)C+1
Fin du Si
Fin du Pour
Afficher C/n
|
|
|
|
blg_flg
Autorisation : Membre
Nb de messages : 661
Inscrit le : Mer 23 Mai 2012, 17:28
|
Posté le : Jeu 13 Déc 2012, 20:08
|
|
|
Le voilà:
Code | :0->C
:Prompt N
:For(I,1,N
:0->S
:For(K,1,4
:EntAléat(0,1->R
:S+R->R
:End
:If S [supérieur ou égal à] 2
:C+1->C
:End
:Disp C/N |
|
|
|
|