Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> bowling

Page: 1, 2 >>

bowling

Auteur

Message

Persalteas

Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Sam 29 Mai 2010, 23:12

ce prog n'est pas de moi, mais celui qui l'a fait l'a fait beaucoup trop lourd.
je l'ai donc simplifié.

lBOW signifie liste "BOW" donc le l se trouve en faisant [2nde] [stats] [>] [^] [enter]

Code

:2->dim(lBOW
:2->M:0->C
:EffListe L1,L3
:12->dim(L1
:Remplir(99,L1
:23->dim(L3
:10->L3(21
:10->L3(23
:11->L3(22
:Lbl N
:Menu("----BOWLING-----","JEU",1,"QUIT",H
:Lbl 1
:Input "VITESSE? (1a5) ",N
:If 1>N ou N>5:Goto 1
:N->I
:If N=1:22->N
:If N=2:17->N
:If N=3:12->N
:If N=4:7->N
:If N=5:1->N
:9->L
:Lbl D
:EffEcr
:EffListe L2
:10->dim(L2
:1->H
:1->R
:For(A,1,8
:Output(A,3,"!"
:Output(A,13,"!"
:End
:If non(L2(1:Output(4,8,"O"
:If non(L2(2:Output(3,7,"O"
:If non(L2(3:Output(3,9,"O"
:If non(L2(4:Output(2,6,"O"
:If non(L2(5:Output(2,8,"O"
:If non(L2(6:Output(2,10,"O"
:If non(L2(7:Output(1,5,"O"
:If non(L2(8:Output(1,7,"O"
:If non(L2(9:Output(1,9,"O"
:If non(L2(10:Output(1,11,"O"
:Lbl A
:For(D,12,4,-1
:Output(8,D,"O"
:Output(8,D+1," "
:Output(8,13,"!"
:Output(8,4," "
:For(E,1,N):End
:If codetouche=105:Goto B
:End
:Goto A
:Lbl B
:C+1->C
:Output(8,D," "
:For(E,7,1,-1
:Output(E,D,"O"
:Output(E+1,D," "
:Output(E,D-1," "
:Output(E,D+1," "
:If D=8:Then
:Output(E,D+2," "
:Output(E,D-2," "
:Output(E,D+3," "
:Output(E,D-3," "
:Remplir(1,L2
:End
:If D=7:Then
:Output(4,8,"O"
:1->L2(2:1->L2(4:1->L2(5
:1->L2(7:1->L2(8:1->L2(9
:End
:If D=9:Then
:Output(4,8,"O"
:1->L2(3:1->L2(6:1->L2(5
:1->L2(8:1->L2(10:1->L2(9
:End
:If D6:Then
:Output(3,7,"O"
:1->L2(7:1->L2(8:1->L2(4
:End
:If D=10:Then
:Output(3,9,"O"
:1->L2(6:1->L2(10:1->L2(9
:End
:If D=5:Then
:Output(2,6,"O"
:1->L2(7
:End
:If D=11:Then
:Output(2,10,"O"
:1->L2(10)
:End
:If D=4:Then
:Output(G,3,"!"
:Output(1,5,"O"
:End
:If D=12:Then
:Output(G,13,"!"
:Output(1,11,"O"
:End
:End
:Output(1,D," "
:If D=7 ou D=9:Then
:Output(1,D-2," "
:Output(1,D+2," "
:End
:0->O
:For(E,1,10
:L2(E)+O->O
:End
:Goto P
:Lbl Q
:If H=2:C-1->C
:If H=2:Goto G
:If D=8:Then
:EffEcr
:Output(4,5,"STRIKE!"
:Pause:EffEcr
:11->O
:Goto J
:End
:H+1->H
:Goto A
:Lbl G
:If O=10:Then
:EffEcr
:Output(4,6,"SPARE!"
:Pause:EffEcr
:End
:Lbl J
:O->L1(C)
:
:Disp " -SCORES- ","----------------"," 1! 2! 3! 4! 5!"," ! ! ! ! !"," 6! 7! 8! 9! 10!"," ! ! ! ! !"
:Output(8,1,"----------------"
:4->B
:Lbl J2
:0->K
:For(F,2,15,3
:If R=10:F+1->F
:If L1(R)=11:Output(B,F,"X"
:If L1(R)=10:Output(B,F,"/"
:If L1(R)<10:Output(B,F,L1(R)
:R+1->R
:If R=11:Goto Z
:End
:If C>5 et B=4:Then
:7->B:2->K
:End
:If K=2:Goto J2
:Lbl Z
:Pause
:If C=10:Goto R
:Goto D
:Lbl P
:If H=1:Then
:O->L3(2C-1)
:11->L3(2C)
:End
:If H=2
:O-L3(2C-1)->L3(2C)
:Goto Q
:Lbl R
:EffEcr
:For(E,1,19,2
:Output(4,4,"PROCESSING"
:Output(5,6,"SCORE"
:If L3(E)=10 et L3(E+2)=10
:10+L3(E+4)+P->P
:If L3(E)=10 et L3(E+2)=/=10
:L3(E+2)+P+L3(E+3)->P
:If L3(E)+L3(E+1)=10
:L3(E+2)+P->P
:If L3(E)=/=10:Then
:L3(E)+L3(E+1)+P->P
:Else
:10+P->P
:End
:End
:EffEcr
:Output(4,4,"TOTAL "
:Output(4,10,P
:Pause:EffEcr
:Lbl S
:EffEcr
:Disp "YOU SCORED...","ON SPEED..."
:Output(1,14,P
:Output(2,12,I
:Pause:EffEcr
:Disp "THE OLD RECORD","IS...","ON SPEED..."
:Output(2,6,lBOW(1
:Output(4,12,lBOW(2
:Pause:EffEcr
:If PI>lBOW(1)*lBOW(2):Then
:P->lBOW(1
:I->lBOW(2
:Disp "YOU BROKE THE","RECORD AND","YOUR NEW RECORD","IS...","",ON SPEED..."
:Output(5,6,P
:Output(7,12,I
:Pause:EffEcr
:Goto N
:End
:EffEcr
:Output(4,4,"TRY AGAIN"
:Pause:EffEcr
:Menu("PLAY AGAIN ?","YES",N,"NO",H
:Lbl H
:EffListe L1,L2,L3
:EffVar AEffVar BEffVar CEffVar DEffVar EEffVar FEffVar HEffVar IEffVar J
:EffVar KEffVar LEffVar NEffVar PEffVar REffVar MEffVar O

Persalteas

Autorisation : Membre
Nb de messages : 2164
Inscrit le : Sam 23 Jan 2010, 20:09

Posté le : Sam 29 Mai 2010, 23:13

certes, on peut encore le simplifier, mais avant il faisait 5 Ko, maintenant il en fait 2.5.

je n'ai pas tout compris dans le comptage des points, mais le jeu fonctionne, c'est le principal.

Mika
Invité

Posté le : Dim 16 Sep 2012, 22:01

Bonjour
Voila je possède une calculette ti 82 stars fr noir.
Je voulais quelque renseignement sur comment faire la lettre "l" avant BOW malgrer pas mal de recherche je ne trouve pas le "l" sur ma calculette et jai fais la manipulation Ke vous proposer mais cela n'aboutie pas Allor pourriez vous mexpliquer plus en détail la manipulation a effectuer svp
J'ai écrit tout le programme sur ma calculette et c la seul erreur de syntaxe qui me bloque pou réussir et exécuter le programme de se jeux
Merci davance pour votre compréhension et j'attends votre Reponse au plus vite

m@thieu41

Autorisation : Membre
Nb de messages : 856
Inscrit le : Mer 18 Juil 2012, 18:44

Posté le : Dim 16 Sep 2012, 22:50

Bonsoir!
Va dans Liste (2nd+stats)
Fleche de droite, fleche du haut et tu y es ^^

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

rickie
Invité

Posté le : Lun 17 Sep 2012, 19:54

Bonjour, j'ai une TI82 Stats.fr noire et je ne sais pas comment faire le "a" de "(1a5)".
Merci d'avance !

linkakro

Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Lun 17 Sep 2012, 19:57

Met le A majuscule ou le a du menu var>stat, c'est seulement du texte à cet endoit.

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

Mika
Invité

Posté le : Mar 18 Sep 2012, 21:17

Bonsoir
Merci Mathieu pour la manip c super sympa

Mika
Invité

Posté le : Mar 18 Sep 2012, 21:32

Bonsoir je revient embêter un peu

Voila kan je lance le programme il me mais erreur syntaxe au niveau de la première ligne et il me montre se signe la ">" et kan je le suprime il me mais erreur indéfini tj sur la première ligne a la fin de lBOW (je n'ai pas de chance xP)
Voila voila
Je demande votre aide en toute gratitude et vous remerci d' avance

Keralis
Invité

Posté le : Mar 18 Sep 2012, 21:38

salut je n'arrive pas a mettre le * dans un programme, je mets le fois mais il me dis erreur
merci.

blg_flg

Autorisation : Membre
Nb de messages : 661
Inscrit le : Mer 23 Mai 2012, 17:28

Posté le : Mar 18 Sep 2012, 21:42

Pour le ">": le signe "->" est sto (au dessus de on).

Google_AdSense

tapenad

Autorisation : Membre
Nb de messages : 225
Inscrit le : Jeu 17 Nov 2011, 13:20

Posté le : Mer 19 Sep 2012, 14:03

@keralis: l'etoile c'est le bouton de la multiplication

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

je suis premier!!!

je m'aime.

Mika
Invité

Posté le : Mer 19 Sep 2012, 14:27

Bonjour
Voila je voulai vous remercier pour votre aider
Et vous inciter a confier votre forum et vraiment super
Merci encore

Rickie
Invité

Posté le : Mer 19 Sep 2012, 18:20

Personnellement ça bugue quand il y a un "=/="
Que dois-je faire ?
Merci d'avance

Sangohan38

Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48

Posté le : Mer 19 Sep 2012, 18:31

Ces touches représentent le symbole [différent de] que tu trouvera dans le menu TEST (touches 2nd puis MATH).

Sangohan38

eArnoow

Autorisation : Membre
Nb de messages : 93
Inscrit le : Dim 16 Sep 2012, 14:20

Posté le : Mer 19 Sep 2012, 20:04

xD les mecs vous avez suivi un tuto ou pas ?

The K

Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07

Posté le : Mer 19 Sep 2012, 21:36

Justement tout le monde ne le fait pas.

Est-ce que tu lis madame Bovary en entier quand seul une page t'intéresse pour un texte en français ?

Non ^^ et la c'est le même principe.

----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...

Rickie
Invité

Posté le : Mer 19 Sep 2012, 21:51

Personnellement non, j'apprends sur le tas

Qu'est-ce qu'une erreur de domaine ?

Google_AdSense

linkakro

Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25

Posté le : Mer 19 Sep 2012, 22:00

Une valeur fausse mène à une opération impossible.
Par exemple diviser par zéro est impossibleau même titre que d'afficher du texte en dehors de l'écran.
D'où une erreur de domaine.

EDIT: par la suite Le Grec m'a signalé une erreur : diviser par zéro provoque une erreur DIV PAR 0 ...
L'exemple serait plus judicieux en disant racine carré de -1 (dans les réels...) ou log(-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

eArnoow
Invité

Posté le : Mer 19 Sep 2012, 22:09

Oui c'est ce que j'ai fait pour les listes, chaînes et en gros toute la partie 2 du tutoriel de lanfeust, et quand j'ai eu besoin il y a quelques jours, j'ai lu.
Mais quand même, sto, multiplier et différent de, il faut lire les bases

Rickie
Invité

Posté le : Sam 22 Sep 2012, 15:56

Citer : linkakro

Une valeur fausse mène à une opération impossible.
Par exemple diviser par zéro est impossibleau même titre que d'afficher du texte en dehors de l'écran.
D'où une erreur de domaine.

Et bien ma calculette en affiche une quand j'envoie la boule près du bord, là où il n'y a pas de quilles...
Ça arrête la partie, donc c'est assez énervant

Aidez- moi, merci

Page: 1, 2 >>

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> bowling

Flux RSS