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
Création Programme Aide
Auteur Message
Calculatrice-Player
Invité
Posté le : Lun 30 Nov 2009, 18:39   Citer 

Bonjour !
J'aimerais créer le programme suivant mais je n'y arrive pas :

ENTREE :
Demande 3 chiffres à l'utilisateur

INITIALISATION
Code à trouver : 378

TRAITEMENT :
3 FOIS :
Demande du code
Si code bon : Afficher "Porte Ouverte" et Fin programme
Si mauvais : Afficher "Porte non-ouverte"

SORTIE : Si code mauvais après 3 essais, afficher "VA VOIR AILLEURS"


J'espère que vous pourrez m'aider !

  Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Lun 30 Nov 2009, 19:19   Citer 

:386->N
:For(A,1,3
:Input "CODE:",X
:If X=N
:Goto A
:Disp "RATE
:End
:Disp "GTFO NIGGER
:Stop
:Lbl A
:Disp "BIEN JOUE

 Adresse email Haut de page Bas de page 
 
-Coco-



Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
Posté le : Mar 01 Déc 2009, 18:28   Citer 

Je vois pas trop mais je pense que tu devrais faire avec des variables différentes... ou au lieu d'un For tu mets un Label/Goto avec une variable que fait +1 a chaque fois, et quand la variable est égale a 3 tu fais un autre Goto "va te faire voir", par exemple... apres si tu veux absolument faire comme ça je peux rien pour toi ^^

 Adresse email Haut de page Bas de page 
 
-Coco-



Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
Posté le : Mar 01 Déc 2009, 18:34   Citer 

Donc, du style:


Code

386->N
0->G
Lbl 1
If G=3:Goto L
Input "CODE:",X
If X[pas égal à]N:Then
G+1->G
Disp "RATE!
Goto 1
End
If X=N:Goto 2
Lbl 2
Disp "BRAVO!
Stop
Lbl L
Disp "LOOSER!
Stop



Sinon, je vois pas trop l'interet de ton programme, mais voila loupe.gif

 Adresse email Haut de page Bas de page 
 
-Coco-



Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
Posté le : Mar 01 Déc 2009, 18:36   Citer 

Et apres tu changes l'intérieur des Disp ^^

 Adresse email Haut de page Bas de page 
 
dysto
Avatar

Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
Posté le : Mar 01 Déc 2009, 19:07   Citer 

Pourquoi mettre 386 dans une lettre ???
Je verrai plus simplement :If X[différent de]386 et :If X=386 !
Non ?
Sinon son programme n'a pas vraiment d'intérêt, du moins en l'état, mais peut-être est-ce un exercice demandé par un professeur ?

 Adresse email Haut de page Bas de page 
 
homer__simpsons



Autorisation : Membre
Nb de messages : 2
Inscrit le : Mer 22 Déc 2010, 11:26
Posté le : Mer 22 Déc 2010, 12:41   Citer 

Reponse Tardive...


Code

:0->C:378->A
:Repeat A=B or C=3
:Input "Code: ",B
:If B=A
:Then
:Disp "Porte ouverte
:Else
:Disp "Porte non-","Ouverte
:End
:C+1->C
:End
:If B≠A:Disp "Va voir ailleurs"



J'ai compressé le prgm au maximum... Dit ci il y a un truc que tu comprend pas!!

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
patate007
Avatar

Autorisation : Membre
Nb de messages : 118
Inscrit le : Mar 09 Fév 2010, 8:49
Posté le : Mer 22 Déc 2010, 14:28   Citer 

Ca me parrait pas mal ça, court et simple :

Code
:For(I,1,3
:Input "CODE:",A
:If A=378:Then
:Disp "PORTE OUVERTE
:Stop:End
:If A!=378:Disp "PORTE NON-","OUVERTE
:End
:Disp "VA VOIR AILLEUR



!= correspond au égal barré winkle.gif

----------------------
Joyeuse Pâques winkle.gif



 Adresse email Haut de page Bas de page 
 
Sangohan38



Autorisation : Membre
Nb de messages : 3391
Inscrit le : Sam 31 Déc 2005, 19:48
Posté le : Mer 22 Déc 2010, 22:59   Citer 

Sinon, ce sujet date d'un an, ça fait tache de remonter de vieux sujets.

Sangohan38

----------------------
 Adresse email Haut de page Bas de page 
 
Akmdad
Avatar

Autorisation : Membre
Nb de messages : 726
Inscrit le : Mar 22 Jui 2010, 21:03
Posté le : Mer 22 Déc 2010, 23:23   Citer 

oui, t'a raison sangohan, et je m'y connait dans ce rayon godgrace.gif

----------------------
retrouvez moi sur twitter!!!


j'ai une ti 82 stats fr et une ti89 titanium happy.gif
 Adresse email Haut de page Bas de page 
 
patate007
Avatar

Autorisation : Membre
Nb de messages : 118
Inscrit le : Mar 09 Fév 2010, 8:49
Posté le : Jeu 23 Déc 2010, 0:37   Citer 

OMG c'est vrai ! Oo'
Je suis désolé, ça m'arrive souvent =x

----------------------
Joyeuse Pâques winkle.gif



 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  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