| Création Programme Aide |
| Auteur |
Message |
Calculatrice-Player
Invité
|
Posté le : Lun 30 Nov 2009, 18:39
|
|
 |
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 !
|
| |
  |
| |
Stupid
Autorisation : Membre
Nb de messages : 765
Inscrit le : Jeu 28 Sep 2006, 18:42
|
Posté le : Lun 30 Nov 2009, 19:19
|
|
|
: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
|
 |
|
| |
-Coco-
Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
|
Posté le : Mar 01 Déc 2009, 18:28
|
|
|
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 ^^
|
| |
|
| |
-Coco-
Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
|
Posté le : Mar 01 Déc 2009, 18:34
|
|
|
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 
|
| |
|
| |
-Coco-
Autorisation : Membre
Nb de messages : 149
Inscrit le : Sam 28 Nov 2009, 16:09
|
Posté le : Mar 01 Déc 2009, 18:36
|
|
|
Et apres tu changes l'intérieur des Disp ^^
|
| |
|
| |
dysto
Autorisation : Membre
Nb de messages : 200
Inscrit le : Mar 20 Oct 2009, 18:58
|
Posté le : Mar 01 Déc 2009, 19:07
|
|
|
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 ?
|
| |
|
| |
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
|
|
|
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!!
|
| |
|
| |
patate007
Autorisation : Membre
Nb de messages : 103
Inscrit le : Mar 09 Fév 2010, 8:49
|
Posté le : Mer 22 Déc 2010, 14:28
|
|
|
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é 
----------------------
Joyeuse Pâques |
| |
|
| |
Sangohan38
Autorisation : Membre
Nb de messages : 3293
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Mer 22 Déc 2010, 22:59
|
|
|
Sinon, ce sujet date d'un an, ça fait tache de remonter de vieux sujets.
Sangohan38
|
| |
|
| |
Akmdad
Autorisation : Membre
Nb de messages : 713
Inscrit le : Mar 22 Jui 2010, 21:03
|
Posté le : Mer 22 Déc 2010, 23:23
|
|
|
oui, t'a raison sangohan, et je m'y connait dans ce rayon 
----------------------
retrouvez moi sur twitter!!!
j'ai une ti 82 stats fr et une ti89 titanium  |
| |
|
| |
patate007
Autorisation : Membre
Nb de messages : 103
Inscrit le : Mar 09 Fév 2010, 8:49
|
Posté le : Jeu 23 Déc 2010, 0:37
|
|
|
OMG c'est vrai ! Oo'
Je suis désolé, ça m'arrive souvent =x
----------------------
Joyeuse Pâques |
| |
|
| |
