Poster un nouveau sujet Poster une réponse
Programme TI-82
Auteur Message
L33t
Invité
Posté le : Jeu 23 Fév 2012, 18:38   Citer 

Bonjour, étant élève de seconde j'ai un algorythme à créé. Cependant je n'y arrive pas et je vous prie donc de m'aider.

Metre 0 dans les variables C et D
Pour I allant de 1 à 1000
EntierAléatoireentre(1;4)+EntierAléatoireentre(1;4)+EntierAléatoireentre(1;4) dans la variable S
Si S=6 alors metre C+1 dans la variable C. FinSI
Si S=7 alors metre D+1 dans la variable D. FinSI
FinPour
Afficher C/1000 et D/1000
Fin

  Haut de page Bas de page 
 
tapenad



Autorisation : Membre
Nb de messages : 197
Inscrit le : Jeu 17 Nov 2011, 13:20
Posté le : Jeu 23 Fév 2012, 18:53   Citer 


Code
:0->C
:0->D
:For(I,1,1000
:EntAleat(1,4)+EntAleat(1,4)+EntAleat(1,4)->S
:If S=6
:C+1->C
:If S=7
:D+1->D
:End
:DispC/1000,D/1000


et voila...

----------------------
L’erreur est humaine, mais pour provoquer une vraie catastrophe, il faut un ordinateur.

je suis premier!!!

je m'aime.
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Jeu 23 Fév 2012, 20:12   Citer 

Rien à redire sur l'exemple de tapenade. happy.gif

Toutefois il peut être bon d'expliquer l'abscence de traduction de FinSI.
Dans une Ti deux notations sont possibles. La première est toujours valable et la seconde s'utilise seulement quand il n'y a qu'une seule action après le If.

Code
If ... // condition
Then
... // actions
End


Code
If ... // condition
... // action unique



Il est possible d'effectuer quelques optimisations facultatives. (pas toujours conseillié en examen, ça dépend du niveau du prof)
En voici deux.

Code
:EffVar CEffVar D
:For(I,1,1000
:somme(EntAleat(1,4,3->S
:If S=6
:C+1->C
:If S=7
:D+1->D
:End
:Disp C/1000,D/1000



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 23 Fév 2012, 20:27   Citer 

Si tu tiens vraiment à optimiser, autant faire ça:

Code
:EffVar CEffVar DFor(I,1,E3               //le E des puissances de 10
:somme(EntAleat(1,4,3->S
:If S=6
:C+1->C
:If S=7
:D+1->D
:End
:Disp CE-3,DE-3          //le E des puissances de 10



Sandro
PS : je te déconseille d'optimiser comme ça si ton prof ne s'y connait pas trop en calculatrices.

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 6 requêtes