Gamme TI-82
Partager sur Facebook Fil RSS Imprimer la page
Cacher les résultats

Résultat de la recherche



Poster un nouveau sujet Poster une réponse <<   Page: , , , 4  
Un Bomberman trés réussit
Auteur Message
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 31 Juil 2012, 14:48   Citer 

C'est très bien. bigmouth.gif
Tu dépasses mes espérances, je n'avais pas creusé le problème à ce point là.

Cependant tu as commis une faute de frappe.
Code
:If K:Then:1->L1(B+16-1
 // corrigé par
:If K:Then:1->L1(B+16(A-1

D'autre part tu peux réécrire les booléen de cette manière, histoire que ce soit plus agréable à recopier :
Code
K=24 et B=/=1
K=24 et B-1



----------------------
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 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mar 31 Juil 2012, 15:05   Citer 

Ok merci je viens de corriger !
Mais comment à tu as fait pour trouver cette erreur ? D:
T'es trop fort ! crazy.gif
Il faut savoir que la ligne:
:Repeat L1(B+16(A-1
N'est pas correcte. Elle devrait être:
:While not(L1(B+16(A-1
Mais personnellement je préfère qu'il y ai une instruction en moins sur cette commande quitte à ce que la boucle se répète une fois de plus à la fin.

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3774
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Mar 31 Juil 2012, 20:51   Citer 

Repeat L1(B+16(A-1
est parfaitement juste puisque chaque case qu'on quitte est immédiatement modifiée.

J'ai diagnostiqué deux problèmes :
-l'abscence de remise à zéro de la liste au début peut causer un nombre d'obstacles faux
-l'abscence de vérification de case vierge avant affectation par l'aléatoire permet un nombre d'obstables parfois inférieur à l'objectif

J'ai utilisé une boucle autour du codeTouche, c'est plus simple qu'utiliser un Then.

Code
EffEcr
Input "NIVEAU ",N
EffListe L1
128->dim(L1
For(A,1,N
Repeat not(L1(Ans  // Revenez à la version précédente ici si vous ne trouvez
entAléat(2,128     // pas nécessaire d'assurer la présence systématique de
End                // N obstacles exactement.
1->L1(Ans          //
End
1->B:0->K
For(A,1,128
Output(B,A-K,sub("0+",L1(A)+1,1
If A=16B:Then:B+1->B:K+16->K
End:End
1->A:1->B
Repeat L1(B+16(A-1
Output(A,B,"e
Repeat K
codeTouche->K
End
1->L1(B+16(A-1
Output(A,B," "
B-(K=24 et B-1)+(K=26 et B-16->B
A-(K=25 et A-1)+(K=34 et A-8->A
End
Output(8,1,somme(L1)-N
Output(8,4,"/128 "
EffListe L1



----------------------
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 
 
ld
Avatar

Autorisation : Membre
Nb de messages : 373
Inscrit le : Jeu 23 Sep 2010, 16:05
Posté le : Mar 31 Juil 2012, 21:42   Citer 

Oui tu as raison, l'idée du ":RepeatK:codeTouche->K:End" me plait beaucoup.
Cependant "l'abscence de vérification de case vierge" je trouve que ce n'est pas ce qu'il y a de plus nécessaire. C'est une version soft alors bon...
C'est d'ailleurs pour cette raison que j'ai omis le démarrage et la l'affichage du score en pourcentage.
De plus le risque est faible pour N de 1 à 8. Au de là faut être un pro ! bigmouth.gif
Mon record est de 100% au niveau 6 !
Je vais quand même voir ce que je peux faire.
Je compte inverser les 0 avec les 1 dans la liste et ainsi trouver quelque chose qui resolverai le problème des cases vides et de l’efface liste au début en même temps winkle.gif

----------------------
Note Éphéméride Chrono Bombrman BlueFishEncryptor Labygénérateur Nord BandeauDeTexte LunarPhase Syracuse Papy-Jump Convertisseur ! SolveurDeSudoku VérificateurDeCodesBanquaire PrgmADiviser CryptageDeVigenere MiniSolv Reed-Solomon Code128Géodésie
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse <<   Page: , , , 4  





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2016 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink
 

Site hébergé par Free Page sous licence creative commons Page validée par le W3C (XHTML 1.0 Transitional) Feuille de style validée par le W3C Flux RSS 2.0 valide Page étiquetée par l'ICRA Page testée par Ocawa