Une sorte de fall |
Auteur |
Message |
thegeek34
Autorisation : Membre
Nb de messages : 8
Inscrit le : Sam 02 Mai 2015, 8:17
|
Posté le : Sam 02 Mai 2015, 8:36
|
|
|
Et salut je vous présente aujourd'hui un fall que FullyZing a réalisé :
Code | 0->S:3->V:11->X:80->F:1->Y:1->G
Lbl 0
ClrHome
Disp "SCORE:"
Disp ""
Disp "VIES:"
1->Z
For(P,1,8)
Output(Z,7,")")
Z+1->Z:End
Lbl 2
randInt(8,16->Z
S+1->S
G+1->G
If G=10:Then
0->G:V+1->V
F-10->F
End
Output(2,1,S)
Output(4,2,V)
Lbl 1
Output(8,X,"==")
Output(Y,Z,"*")
For(Q,1,F)
End
Y+1->Y
Output(Y-1,Z," ")
If Y=8:Goto 3
getKey->T
If T [différent de] 0
Output(8,X," ") <== 2 espaces
If T=24:X-1->X
If T=26:X+1->X
If T=24 et X=7:16->X
If T=26 et X=16:8->X
Goto 1
Lbl 3
1->Y
If X=Z or X+1=Z:Goto 2
Lbl 4
Output(4,11,"PERDU")
Pause
V-1->V
If V=-1:Then
Output(3,11,"Game")
Output(4.11,"Over")
Pause:Stop
End
S-1->S
Goto 0
|
Ce jeu est une copie améliorée de celui de FulliZing
|
|
|
|
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Sam 02 Mai 2015, 22:00
|
|
|
Quelques améliorations :
Code | DelVar S3->V:11->X:80->F:1->Y:1->G
Repeat V=-1
ClrHome
Disp "SCORE:","","VIES:
For(Z,1,8
Output(Z,7,"
End
Lbl 2
randInt(8,16->Z
S+1->S
G+1->G
If G=10:Then
F-G->F
DelVar GV+1->V
End
Output(2,1,S
Output(4,2,V
Lbl 1
Output(8,X,"==
Output(Y,Z,"*
For(Q,1,F
End
Y+1->Y
Output(Y-1,Z,"
If Y=8:Goto 3
getKey->T
If T
Output(8,X,"
X-(T=24)+(T=26->X
X+9(X<8)-9(X>16->X
Goto 1
Lbl 3
1->Y
If X=Z or X+1=Z:Goto 2
Lbl 4
Output(4,11,"PERDU
Pause
V-1->V
S-1->S
End
Output(3,11,"Game
Output(4,11,"Over |
---------------------- Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
|
|
|
thegeek34
Autorisation : Membre
Nb de messages : 8
Inscrit le : Sam 02 Mai 2015, 8:17
|
Posté le : Sam 02 Mai 2015, 22:01
|
|
|
D'accord merci
|
|
|
|
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Sam 02 Mai 2015, 22:02
|
|
|
Il doit y avoir d'autres trucs à faire, mais j'ai l'esprit un peu trop embrûmé pour chercher correctement là
---------------------- Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
|
|
|
thegeek34
Autorisation : Membre
Nb de messages : 8
Inscrit le : Sam 02 Mai 2015, 8:17
|
Posté le : Sam 02 Mai 2015, 22:43
|
|
|
oui j'imagine le topo discret au lit la
|
|
|
|
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Dim 03 Mai 2015, 1:50
|
|
|
T'imagines bien
Le code m'a l'air bien sinon, à moins de changer totalement le principe on devrait pas aller vraiment plus bas. Si il y a quelque chose à faire j'éditerai mon message précédent de toute manière
---------------------- Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
|
|
|
thegeek34
Autorisation : Membre
Nb de messages : 8
Inscrit le : Sam 02 Mai 2015, 8:17
|
Posté le : Dim 03 Mai 2015, 7:26
|
|
|
D'accord mrc
|
|
|
|
Spouki35
Invité
|
Posté le : Lun 25 Mai 2015, 18:47
|
|
|
Bonjour ou bonsoir ,
J'ai une ti-82 non stat et je trouve pas la fonction RandInt( j'aimerai savoir si elle existe et si elle existe pas peut on la suprimer ou changer ?
Merci
|
|
|
|
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Mar 26 Mai 2015, 18:02
|
|
|
Cette fonction n'existe pas sur la 82n mais on peut tenter de la remplacer. Par exemple, pour un nombre aléatoire entre 8 et 16, comme dans le code :
Pour expliquer ce qui s'est passé :
- On démarre le comptage à 8 : 8+...
- rand : un nombre réel aléatoire compris entre 0 et 1
- rand8 : parce qu'il y a 8 unités d'écart entre la début et la fin du comptage.
- round(...,0 : on arrondit pour avoir un nombre naturel.
---------------------- Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
|
|
|
m@thieu41
Autorisation : Membre
Nb de messages : 856
Inscrit le : Mer 18 Juil 2012, 18:44
|
Posté le : Mar 26 Mai 2015, 19:18
|
|
|
Tu n'as pas un tirage equiprobable ainsi.
Il vaut mieux utiliser int/partEnt:
A+int((B-A+1)rand
Pour Un nombre aléatoire entre A et B (inclus).
---------------------- Pour vous aidez dans vos débuts (et même ensuite ^^) :
*Tuto Algo->Ti Basic (par Linkakro) : Traduisez vos algo (de type algobox) en prgm pour votre TI!
*Catalogue des emplacements et traductions (anglais/français) des fonctions sur la TI.
*Faites vos propres programmes de maths (par ash)
Et au fait: la politesse n'a jamais tué personne |
|
|
|
spouki35
Invité
|
Posté le : Mar 26 Mai 2015, 20:43
|
|
|
Merci beaucoup
|
|
|
|
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Mar 26 Mai 2015, 20:55
|
|
|
Ah oui, en effet. Je pensais pas qu'un arrondi changerait la répartition comme ca. Tant mieux puisqu'on gagne 2 octets
---------------------- Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
|
|
|
Spouki35
Invité
|
Posté le : Mar 09 Jui 2015, 21:55
|
|
|
Cela ne fonctionne pas
Avez vous d'autre solution ou alors j'ai mal compris :/
Merci
|
|
|
|
m@thieu41
Autorisation : Membre
Nb de messages : 856
Inscrit le : Mer 18 Juil 2012, 18:44
|
Posté le : Mer 10 Jui 2015, 9:14
|
|
|
Qu'est ce qui ne fonctionne pas ? Il y a une erreur ? Résultat non convaincant ?
---------------------- Pour vous aidez dans vos débuts (et même ensuite ^^) :
*Tuto Algo->Ti Basic (par Linkakro) : Traduisez vos algo (de type algobox) en prgm pour votre TI!
*Catalogue des emplacements et traductions (anglais/français) des fonctions sur la TI.
*Faites vos propres programmes de maths (par ash)
Et au fait: la politesse n'a jamais tué personne |
|
|
|
Spouki35
Invité
|
Posté le : Mer 10 Jui 2015, 18:20
|
|
|
J'ai une ti-82 non stats et je n'arrive pas a faire la commande Randint( vu qu'elle n'existe pas , des solution on été dite mais soit je les comprend pas soit elle marche pas
Merci de votre réponse
|
|
|
|
Mingerton
Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
|
Posté le : Jeu 11 Jui 2015, 20:34
|
|
|
RandInt(A,B) choisit un entier aléatoire entre A et B. Su TI-82, A+int((B-A+1)rand a le même effet. A adapter avec les variables correctes selon le contexte.
---------------------- Mes articles
Mes programmes en ligne (je termine peu de projets)
Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN |
|
|
|
Google_AdSense
|
Publicité
|
|
|
|
|
m@thieu41
Autorisation : Membre
Nb de messages : 856
Inscrit le : Mer 18 Juil 2012, 18:44
|
Posté le : Sam 13 Jui 2015, 17:10
|
|
|
Explique nous ce que tu entends par "ne marche pas".
---------------------- Pour vous aidez dans vos débuts (et même ensuite ^^) :
*Tuto Algo->Ti Basic (par Linkakro) : Traduisez vos algo (de type algobox) en prgm pour votre TI!
*Catalogue des emplacements et traductions (anglais/français) des fonctions sur la TI.
*Faites vos propres programmes de maths (par ash)
Et au fait: la politesse n'a jamais tué personne |
|
|
|