Aide pour programmer - Forum Alvasoft.net

Auteur
wako	29 Apr 2008 - 13:57:04
3 Posts	Salut ! je souhaite programmer sur ma TI 89 un petit programme. Comme ça fait a peu près 10 ans que j'y ai pas touché" ben je suis une quiche donc si quelqu'un peut m'aider ça serait cool. Voilà mon idée: je voudrais un programme qui me permette de calculer les statistiques de sorties de deux dès. Le but est de rentrer la valeur de ces dès à chaque lancer pour ensuite au bout de plusieurs lancer, afficher le nombre de sorties de chaque valeur, puis le pourcentage de chaque valeur par rapport au nombre total de lancers. On verra ensuite pour la suite !! Merci beaucoup ! PS: j'ai essayé de commencer mais je galère trop ....
3 Posts
ProgVal	01 May 2008 - 12:31:23
158 Posts	{}->list //initialisation Try //Va à Else quand erreur Loop //boucle continue Input "valeur du dé",var //demande de la valeur du dé augment(list,{var})->list //mémorisation EndLoop //retour à Loop Else //arrivée ici quand erreur EndTry //fin du bloc Try newList(max(list))->list2 //nouvelle liste For i,1,dim(list) //boucle incrémentielle list2[list]+1->list2[list] //ajout de 1 à l'élément correspondant EndFor //fin boucle incrémentielle sum(list)->total //total de la liste For i,1,dim(list2) //boucle incrémentielle Disp string(i)&": "&string(list2)&"; "&string(list2/total*100)&"%" //afichage EndFor//fin boucle incrémentielle Pour terminer les demande de valeurs, appuyer sur ON. En espèrant t'avoir aidé, ProgVal PS: Je n'ai pas vérifié si le programme fonctionnait, à toi de le faire... Modifié le 01 May 2008 - 13:17
158 Posts
wako	02 May 2008 - 11:56:43
3 Posts	Merci je vais essayer ça je te donne des news
3 Posts
ProgVal	03 May 2008 - 15:00:54
158 Posts	Alors? Quoi de neuf?
158 Posts
wako	04 May 2008 - 17:54:41
3 Posts	Ben ça bug, après avoir rentré la valeur du dès il met erreur Data type sur la ligne : newList(max(list))->list2 et comme je comprends pas beaucoup le programme je suis pas en mesure de réparer ... Modifié le 04 May 2008 - 17:56
3 Posts
ProgVal	05 May 2008 - 11:56:08
158 Posts	J'ai oublié l'initialisation de la liste, alors forcément, ça bug dans le Try, l'erreur est transmise dans le max()... Voici le code complet: Version compatible TI-Edit: () Prgm {}list Try ©Va à Else quand erreur Loop ©boucle continue Input "valeur du dé",var ©demande de la valeur du dé augment(list,{var})list ©mémorisation EndLoop ©retour à Loop Else ©arrivée ici quand erreur EndTry ©fin du bloc Try newList(max(list))list2 ©nouvelle liste For i,1,dim(list) ©boucle incrémentielle list2 +1list2 ©ajout de 1 à l'élément correspondant EndFor ©fin boucle incrémentielle sum(list)total ©total de la liste For i,1,dim(list2) ©boucle incrémentielle Disp string(i)&": "&string(list2)&"; "&string(list2/total100)&"%" ©afichage EndFor ©fin boucle incrémentielle EndPrgm Version compatible HTML: {}->list //initialisation Try //Va à Else quand erreur Loop //boucle continue Input "valeur du dé",var //demande de la valeur du dé augment(list,{var})->list //mémorisation EndLoop //retour à Loop Else //arrivée ici quand erreur EndTry //fin du bloc Try newList(max(list))->list2 //nouvelle liste For i,1,dim(list) //boucle incrémentielle list2 +1->list2 //ajout de 1 à l'élément correspondant EndFor //fin boucle incrémentielle sum(list)->total //total de la liste For i,1,dim(list2) //boucle incrémentielle Disp string(i)&": "&string(list2)&"; "&string(list2/total100)&"%" //afichage EndFor//fin boucle incrémentielle Modifié le 05 May 2008 - 11:57
158 Posts
Prévenir un modérateur