π
<-
Chat plein-écran
[^]

[Résolu] Boucles : questions de noob

:32ti73: :32ti73e: :32ti73e2: :32ti76f: :32ti80: :32ti81: :32ti82: :32ti85: :32ti86: :32ti82s: :32ti82sf: :32ti82sfn: :32ti83: :32ti83p: :32ti83pb: :32ti83pr: :32ti83pfr: :32ti83pse: :32ti84p: :32ti84pse: :32ti84ppse: :32ti84pfr: :32ti84pcse: :32ti83pfrusb: :32ti82p: :32ti82a: :32ti84pce: :32ti83pce:

[Résolu] Boucles : questions de noob

Unread postby Procrastination » 27 Jun 2019, 11:24

Salutations. Je suis noob.
Je commence à programmer sur TI 83 Premium CE.

J'ai commencé un PiFeCi (Pierre Feuille Ciseau) : il en existe déjà sur le site mais je voulais programmer le mien (et en profiter pour répondre à quelques questions) :


1. Boucles : comment distinguer un EndIf d'un EndWhile ?
Soit M le nombre de manches donné par le joueur, A son score, B celui de la Ti. Le programme compte donc un While (While A+ B < M) et des If en fonction de ce qui est joué.
2. Arrêt du programme : comment l'éviter ?
Mon programme fonctionne au début puis à une étape (indiquée ci-dessous) marque "done".
3.Réinitialiser
Le programme s'arrêtant avant l'étape où les données sont réinitialisées, je ne sais pas si c'est un problème. Pierre=1, Feuille=2, Ciseaux=3, le joueur entre N (1,2, ou 3) et la ti prend un entier aléatoire entre 1 et 3, puis l'affiche (O). A chaque tour, O et N varient. Ecrire O-O sto O ou 0 sto O fonctionne t il (idem pour N) ? Si oui, où faut il l'écrire ? (cela rejoint la questions des boucles).


Voici mon programme avec entre paranthèses les questions. Je précise qu'il n'y a aucune erreur de syntaxe.

Programme PIFECI

Code: Select all
Disp "Pierre Feuille Ciseaux"
Disp "Pi 1", "Fe 2", "Ci 3"
0 sto A
0 sto B
Disp "manches ?"
Prompt M
While A+B < M (1)
Prompt N
nbrAleatEnt (1,3,1) sto O
Disp O (2. Le programme marque "done" et s'arrête.)
If O=1
Then
Disp "Pi"
(idem pour les autres FE et CI)
If O=N
Then
Disp "éga"
If O-N = 1 ou O-N= -2
Then
Disp "Je gagne camarade"
B+1 sto B
Else
Disp "Bravo"
A+1 sto A
End  (3. sensé être un EndIf)
N-N sto N (3)
O-O sto O
End  (3.sensé être un EndWhile)
If A > B
Then
Disp "Bravo"

ect avec les 3 cas de figure


Merci d'avance
Last edited by Procrastination on 29 Jun 2019, 18:06, edited 1 time in total.
User avatar
Procrastination
Niveau 3: MH (Membre Habitué)
Niveau 3: MH (Membre Habitué)
Level up: 50%
 
Posts: 3
Joined: 26 Jun 2019, 14:54
Gender: Not specified
Class: TS puis prepa litteraire (oui litteraire)

Re: Boucles : questions de noob

Unread postby edgar13 » 27 Jun 2019, 14:31

Aucunne différence entre un endwhile et un endif
Image Image
User avatar
edgar13Rédac.
Niveau 10: GR (Guide de Référence)
Niveau 10: GR (Guide de Référence)
Level up: 34.7%
 
Posts: 189
Images: 7
Joined: 04 Jan 2019, 20:31
Location: Saint aubin de médoc 33160
Gender: Male
Calculator(s):
Class: seconde

Re: Boucles : questions de noob

Unread postby UnCurieux » 27 Jun 2019, 14:43

Salut,
alors en effet juste un End simple sur TI83PCE,
mets nbrAleatEnt (1,3) sto O au lieu de nbrAleatEnt (1,3,1) sto O
Mets
If O=N:Then
au lieu de
If O=N
Then
Et pour finir l'origine du problème : il faut 1 End pour chaque If : il te manque donc beaucoup de End ;)
Maths
,
fractales
,
géométrie
, packs de
levels Oiram
, jeux, physique, ... : ici


ImageImage
User avatar
UnCurieuxProg.
Niveau 11: LV (Légende Vivante)
Niveau 11: LV (Légende Vivante)
Level up: 21.2%
 
Posts: 365
Images: 2
Joined: 19 May 2017, 18:20
Gender: Male
Calculator(s):

Re: Boucles : questions de noob

Unread postby Adriweb » 27 Jun 2019, 14:45

... puisque tous les deux s'écrivent End. Mais ca justement c'était ce que tu savais - donc on ne peut pas les distinguer directement, il faut examiner le code pour savoir à quel début If ou While (etc.) il est associé.
Si tu utilise des réindenteurs de code, par exemple l'outil de prévisualisation des codes-sources TI-Basic dans nos archives, ca réindentera tout seul le code et tu verras tout de suite quel truc est lié à quel truc.
User avatar
AdriwebAdmin.
Niveau 16: CC2 (Commandeur des Calculatrices)
Niveau 16: CC2 (Commandeur des Calculatrices)
Level up: 51.1%
 
Posts: 12505
Images: 1080
Joined: 01 Jun 2007, 00:00
Location: France
Gender: Male
Calculator(s):
Class: (ingénieur)
Twitter: adriweb
GitHub: adriweb

Re: Boucles : questions de noob

Unread postby Astrostellar » 28 Jun 2019, 17:44

Petite précision sur les If : lorsque tu as une seule action à réaliser, tu peux simplifier la syntaxe en une ligne. Ici, ça donne :
Code: Select all
If O=1:Disp « Pi »

:warning: Il ne faut pas mettre de End si tu utilises cette syntaxe.
Ensuite, pour la réinitialisation de tes variables, ce n’est pas nécessaire, en effet, dès que le jeu reprend, la première utilisation de N est son incrémentation, et pareil pour O. Il n’est donc pas ici utile de remettre 0 dans tes variables à chaque tour. (La syntaxe
Code: Select all
0 sto O
fonctionne ;) )
Enfin, si tu mets tout les End nécessaires comme précisé ci-dessus, ton programme ne s’arrêtera plus...
Image
Tous mes jeux sont ici. Donnez-moi vos avis, vos conseils !

Tir à l'arc
21%
User avatar
AstrostellarProg.
Niveau 11: LV (Légende Vivante)
Niveau 11: LV (Légende Vivante)
Level up: 6.4%
 
Posts: 91
Joined: 11 Jul 2018, 08:07
Location: France, Europe, Terre, Système solaire, Voie lactée, Groupe local, Amas de la Vierge, Univers
Gender: Male
Calculator(s):
Class: 1ère S

Re: [Résolu] Boucles : questions de noob

Unread postby Procrastination » 29 Jun 2019, 18:20

Merci
J'ai édité le titre du post : PIFECI fonctionne. (en plus des problèmes dont j'ai parlé, j'ai aussi résolu la question du "Else".
Quand j'aurais des notions de plus j'ajouterai peut être des animations.
User avatar
Procrastination
Niveau 3: MH (Membre Habitué)
Niveau 3: MH (Membre Habitué)
Level up: 50%
 
Posts: 3
Joined: 26 Jun 2019, 14:54
Gender: Not specified
Class: TS puis prepa litteraire (oui litteraire)


Return to Problèmes divers / Aide débutants

Who is online

Users browsing this forum: No registered users and 2 guests

-
Search
-
Featured topics
Offre TI-Planet/Jarrety pour avoir la TI-83 Premium CE avec son chargeur pour 79,79€ port inclus !
Offre TI-Planet/Jarrety pour avoir la TI-Nspire CX CAS à seulement 130€ TTC port inclus!
Jailbreake ta TI-Nspire avec Ndless et profite des meilleurs jeux et applications !
123
-
Donations / Premium
For more contests, prizes, reviews, helping us pay the server and domains...

Discover the the advantages of a donor account !
JoinRejoignez the donors and/or premium!les donateurs et/ou premium !


Partner and ad
Notre partenaire Jarrety 
-
Stats.
391 utilisateurs:
>377 invités
>10 membres
>4 robots
Record simultané (sur 6 mois):
6892 utilisateurs (le 07/06/2017)
-
Other interesting websites
Texas Instruments Education
Global | France
 (English / Français)
Banque de programmes TI
ticalc.org
 (English)
La communauté TI-82
tout82.free.fr
 (Français)