Portail
Rechercher
Connexion
Chatbox externe
Derniers sujets
Partenaires
| TI-Planet | Espace-TI : Forum |
|
|
|
Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)
Les posteurs les plus actifs du mois
| Aucun utilisateur |
PrgmPFC
5 participants
Page 1 sur 1
PrgmPFC
par xiug Mer 3 Juil 2013 - 3:33
Voila mon programme Pierre feuille cisseaux !
@ = alpha + 3
Prgm@0
Alors Vous faite sa 2nde + sto->+Prgm+>+>+prgmPFC
Vous Modifier les ligne qui faut alors !
Voir En Haut (l? = Correction ! )
- PrgmPFC:
PrgmPFC
Menu("P-F-C","1 JOUEUR",Y,"2 JOUEUR",X
Lbl Y
prgm@0
Lbl X
EffEcr
Lbl 0
0->A:0->B:0->C:0->D
Menu("P-F-C","REGLE",R,"JOUER",J,"QUITTER",Q
Lbl J
EffEcr
Output(4,2'"JOUEUR 1" //// J1 voir en bas pour Prgm@0
Input O //// J2 Idem
Lbl 3
Output(4,4,"1 2 3 !!!"
69!
69!
69!
C+1->C
If C=6
Goto 1
Lbl 1
EffEcr
Lbl 2
Output(2,2,"PIERRE"
69!
69!
B+1->B
A+1->A
If A=3
Output(4,4,"FEUILLE"
If B=6
Output(6,6,"CISSEAUX"
If B=13
Goto 4
Goto 2
Lbl 4
If U=1 et O=1
1->E
If U=1 et O=2
3->E
If U=1 et O=3
2->E
If U=2 et O=1
2->E
If U=2 et O=2
1->E
If U=2 et O=3
3->E
If U=3 et O=1
3->E
If U=3 et O=2
2->E
If U=3 et O=3
1->E
EffEcr
If U=1
Output(2,1,"PIERRE"
If U=2
Output(2,1,"FEUILLE"
If U=3
Output(2,1,"CISSEAUX"
If O=1
Output(7,11,"PIERRE"
If O=2
Output(7,10,"FEUILLE"
If O=3
Output(7,9,"CISSEAUX"
If E=1
Output(4,4,"EGALITE"
If E=2
Output(4,1,"J1 A GAGNER" //////// J3
If E=3
Output(4,1,"J2 A GAGNER" //////// J4
Output(2,9,"<- J1" //////// J5
Output(7,1,"J2 ->" //////// J6
Pause
Goto0
Lbl R
EffEcr
Output(1,1,"1 = PIERRE"
Output(3,1,"2 = FEUILLE"
Output(5,1,"3 = CISSEAUX"
Output(7,1,"ENTRER = MENU"
Pause
Goto 0
Lbl Q
Stop
@ = alpha + 3
Prgm@0
Alors Vous faite sa 2nde + sto->+Prgm+>+>+prgmPFC
Vous Modifier les ligne qui faut alors !
Voir En Haut (l? = Correction ! )
- Prgm@0:
Suprimer jusqua le premier lbl 0
J1 = Output(4,4,"UTILISATEUR ?"
J2 = Input Chaine0
Ajouter sa ///// 2Nde suppr entrer
EffEcr
Input U
EffEcr
entAléat(1,3->O
Puis Reprendre
J3 = Output(4,1,"VOUS AVEZ GAGNER"
J4 = Output(4,1,"VOUS AVEZ PERDUE"
J5 = Output(2,9,Chaine0
J6 = Output(7,1,"AI ->"
xiug- Nouveau Venu
- Messages : 8
Points Concours : 0
Productivité : 0
Date d'inscription : 02/07/2013
Localisation : 123 rue du paradis !
Calculatrice(s) :- TI-82 Stats.fr
. :
-
Wistaro- Passioné
- Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :- TI-82
- TI-82 Stats
- TI-82 Stats.fr
. : -
Re: PrgmPFC
par noelthebest Lun 8 Juil 2013 - 10:50
Pas la peine de fermer les guillemets, ça alourdit et ça ralentit le programme.
Et les lignes du genre :
If U=1 et O=1
1→E
Tu remplaces par :
U=1 et O=1→E
et par exemple ça:
If U=1 et O=2
3→E
tu remplaces par :
3(U=1 et O=2→E
Et les lignes du genre :
If U=1 et O=1
1→E
Tu remplaces par :
U=1 et O=1→E
et par exemple ça:
If U=1 et O=2
3→E
tu remplaces par :
3(U=1 et O=2→E
noelthebest- Intéressé
- Messages : 83
Points Concours : 0
Productivité : 0
Date d'inscription : 02/06/2013
Re: PrgmPFC
par m@thieu41 Lun 8 Juil 2013 - 16:40
Attention, chaque calcul va écraser le résultat précédent...
Il vaut mieux que tu additiones tout les résultats obtenus avec la technique de noel, ce qui donne:
(If U=2 et O=2 ou If U=3 et O=3 ou U=1 et O=1) + 2(U=2 et O=1 ou U=3 et O=2 etc -> E
Et tu peux même en déduire des tests plus simple (If U=2 et O=2 ou If U=3 et O=3 ou U=1 et O=1 revient à mettre If U=O)
Il vaut mieux que tu additiones tout les résultats obtenus avec la technique de noel, ce qui donne:
(If U=2 et O=2 ou If U=3 et O=3 ou U=1 et O=1) + 2(U=2 et O=1 ou U=3 et O=2 etc -> E
Et tu peux même en déduire des tests plus simple (If U=2 et O=2 ou If U=3 et O=3 ou U=1 et O=1 revient à mettre If U=O)
m@thieu41- ----------------------
- Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :- TI-82 Stats.fr
. :
Wistaro- Passioné
- Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :- TI-82
- TI-82 Stats
- TI-82 Stats.fr
. : -
m@thieu41- ----------------------
- Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :- TI-82 Stats.fr
. :
blg_flg- Connaisseur
- Messages : 249
Points Concours : 45
Productivité : 6
Date d'inscription : 04/06/2013
Localisation : Pantruche
Calculatrice(s) :- TI-82 Stats.fr
. :
Re: PrgmPFC
par m@thieu41 Mer 10 Juil 2013 - 8:39
12 octets il y a pire non? 
Mais c'est vrai qu'une boucle for vide par exemple aurait été plus légère ...
Mais c'est vrai qu'une boucle for vide par exemple aurait été plus légère ...
m@thieu41- ----------------------
- Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :- TI-82 Stats.fr
. :
Re: PrgmPFC
par Wistaro Mer 10 Juil 2013 - 12:54
Ou augmenter la valeur de l'incrementation des secondes (A)
Wistaro- Passioné
- Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :- TI-82
- TI-82 Stats
- TI-82 Stats.fr
. : -
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum|
|
|
» Bonne année 2018!
» Lancement du TI-Concours 2017 !
» Chaînes Youtube des membres
» cacul du taux d'intêret
» [Projet] Un mario by tout82
» Cherche documentation assembleur TI82stat
» Probleme Ti-82 Stats fr
» ROM 82 stats.fr