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 Page: 1, ,      >>
Le Pendu 2 !
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Dim 07 Oct 2007, 18:28   Citer 

Voici mon programme de Pendu ! (2ième version)

Pour économiser de la place, j'ai fait deux programmes séparés.
Pensez à bien nommer le second programme "PSTR" !
LE PROGRAMME PRINCIPAL ICI

LE DICO DU PROGRAMME





L1 s'obtient avec [2nd] + [1]
et
[PETIT "L"] avec [2nd] + [0] + [L] + [ENTER]


Code
1 -> dim([PETIT «L»]TSP
If not([PETIT «L»]TSP(1
prgmPSTR
While 1
ClrHome
Menu("PDU2 COC5(C)2007","UN JOUEUR",5,"DEUX JOUEURS",2,"QUITTER",R
Lbl 5
randInt(1,length(Str5)-12 -> B
For(I,0,1
While sub(Str5,B,1)ø"
B+1 -> B
End
B+1 -> B
If not(I
B -> C
End
sub(Str5,C,B-C-1 -> Str1
Goto 3
Lbl 2
ClrHome
Input "MOT SECRET      ",Str1
Menu("AJOUTER AU DICO ?","OUI",8,"NON",3
Lbl 8
Str5+" "+Str1 -> Str5
Lbl 3
DelVar L1
length(Str1 -> dim(L1
ClrHome
1 -> N
0 -> T
For(I,1,length(Str1
Output(2,I,"*
End
Repeat G or N=11
Disp "ESSAIE N°  /10","","","","
If N>1:Output(8,11,"---
If N>2:Then
For(I,4,7
Output(I,12,"!
End
End
If N>3:Output(3,11,"-----
If N>4:Output(4,13,"/
If N>5:Output(4,15,"!
If N>6:Output(5,15,"[PETIT «L»]
If N>7:Output(6,14,"- -
If N>8:Output(6,15,"X
If N>9:Then
Disp "ATTENTION !
Output(7,15,"Ä
End
Output(1,11-(N>9),N
Output(8,1,"0=QUITTER
Input "",Str2
1 -> G
If Str2="0.
Then
ClrHome
Disp ".34/340",.0001,"5/.5
Pause 10
N-1 -> N
End
If Str2="0
Then
Lbl R
ClrHome
" "
Stop
End
If Str2=Str1
Goto 1
ClrHome
sub(Str2,1,1 -> Str2
1 -> T
For(L,1,length(Str1
If not(L1(L)) and Str2=sub(Str1,L,1
Then
0 -> T
1 -> L1(L
End
If L1(L
Then
sub(Str1,L,1
Else
0 -> G
"*
End
Output(2,L,Ans
End
N+T -> N
End
Lbl 1
ClrHome
If G
Disp "GAGNE !","LE MOT SECRET"," ETAIT BIEN :
If not(G:Disp "PERDU !","DOMMAGE, LE MOT","SECRET ETAIT :
Pause Str1
End




ATTENTION /!\ --> Bien nommer ce programme "PSTR"


Code

1->[PETIT "L"]TSP(1
Disp "PENSEZ A","SUPPRIMER LE
Pause "PROGRAMME -PSTR-
"  PENDU LAVABO JOINDRE CRIER CHAT NONOBSTANT FORTIFIANT ECLAIRAGE MANIERE FRIGIDE SIROTER CHARISMATIQUE LUNDI LOGICIEL INTROUVABLE BUT SOTTISE SAUCISSON VANDALE TILLEUL HETRE CHENE MEDIEVAL HALLOWEEN LYNX PIRATE CALCUL DAIM ENCENS NASAL EUROPE HEAUME GARDIEN PROLETAIRE BOLCHEVIK MAILLE TENSION ESTONIEN PATRICIEN ARBALETE CUISSON VOLUME SEC OPIUM SEPULCRE CHIMPANZE CANON MARTEAU WAGON JOUFFLU YAOURT HAUBERT GLORIEUX LIBERAL SCIE CHEVAL OURS CARDINAL INQUISITION CHOLERA HECATOMBE CLAIRIERE MONTAGNE VALLEE LANCE COUPE CASSEROLE ADRIATIQUE VAUTOUR MESSIE RACHITIQUE CARREAU OSCILLATION PENDULE SPAGHETTI REVOLUTION DRAPEAU CRAYON XYLOPHONE TELEPHONE PRUNE POMME RAMADAN PRESIDENT CAMEMBERT NEIGE PSYCHOLOGIQUE SUBCONSCIENT CHEVRE CHINOIS INCANDESCENT ASCENSEUR AN JOIE SERIEUX CHOUX CRI SANGLOT FREQUENCE  -> Str5



----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Dim 07 Oct 2007, 19:10   Citer 

encore une fois, t'as fait un programme que j'ia déjà fait mais en 2xplus complexe et 3xplus gros godgrace.gif

 Adresse email Haut de page Bas de page 
 
vibra
Avatar

Autorisation : Membre
Nb de messages : 595
Inscrit le : Mer 04 Avr 2007, 13:29
Posté le : Dim 07 Oct 2007, 19:18   Citer 

T'es productif en ce moment !

----------------------
Vive la programmation et vive le vibraphone !!!
 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Dim 07 Oct 2007, 21:19   Citer 


Citer : Baby
encore une fois, t'as fait un programme que j'ia déjà fait mais en 2xplus complexe et 3xplus gros godgrace.gif



Je peux pas savoir, je vais pas m'amuser à chercher tout ce que t'as fait comme programme, et puis les possibilités d'une Ti en jeux ne sont pas énormes, et personne n'en a l'exclusivité karate.gif

C'est pas comme si j'avais mis un code source identique. As-tu mit un dico avec recherche aléatoire ?

==> Vibra

Enfait j'ai fait pas mal de jeu pendant mes cours, mais je les mets un par un parce - que tout en même temps... karate.gif

En attente : Worms (il me prend du temps celui-là), demieur deuxième version (bien moins horrible que l'autre, naviguateur de chaîne (fini celui-là)...

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Lun 08 Oct 2007, 11:37   Citer 

c'était pa sun reproche

je sais que des gens l'ont fait avant moi et le feront aprés moi

et comme j'ai dit le tiens est plus complexe

 Adresse email Haut de page Bas de page 
 
exasky



Autorisation : Membre
Nb de messages : 29
Inscrit le : Mar 16 Oct 2007, 20:19
Posté le : Mer 17 Oct 2007, 17:53   Citer 

à la ligne "While sub(Str5,B,1) (different De] "
il me marque "dim invalide" au niveau du deuxieme ")" sachant que j'ai une ti 82 stats.fr et que j'ai traduit "sub" par "sous-chaine" et "Str5" par "Chaine5"
comment ça se fait que ça marche pas?

 Adresse email Haut de page Bas de page 
 
exasky



Autorisation : Membre
Nb de messages : 29
Inscrit le : Mar 16 Oct 2007, 20:19
Posté le : Mer 17 Oct 2007, 18:06   Citer 

aussi non, le jeu à deux joueurs marche super! winkle.gif bigmouth.gif

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mer 17 Oct 2007, 20:51   Citer 


Citer
à la ligne "While sub(Str5,B,1) (different De] "
il me marque "dim invalide" au niveau du deuxieme ")" sachant que j'ai une ti 82 stats.fr et que j'ai traduit "sub" par "sous-chaine" et "Str5" par "Chaine5"
comment ça se fait que ça marche pas?



Il y a plusieurs possiblités.

D'abord, Tu as peut-être oublié de recopier le code du dico dans un autre programme, la chaine5 n'existe donc pas, et toute recherche dans cette chaîne pose naturellement des problèmes karate.gif

Ou alors tu as fait une erreur dans le code du début, sur la variable B.

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mer 17 Oct 2007, 20:53   Citer 

le pb avec le dico c'est que c'est super lourd, et que si on a recopié les mots on les connait à peu pres...

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mer 17 Oct 2007, 20:55   Citer 

Tu as une autre possiblité ?
Je pourrais mettre des chiffres puis les faires convertir mais je crois que copier 500 chiffres à la suite est encore plus ennuyeux^^

Avec le cable il n'y a pas ce problème eyeonly.gif

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Stupid



Autorisation : Membre
Nb de messages : 769
Inscrit le : Jeu 28 Sep 2006, 18:42
Posté le : Mer 17 Oct 2007, 20:59   Citer 

c'est vrai mais bon 100 mots qui sortent aléatoirement ça passe pas longtemps en plus 800 octets c'est immense.

Le facteur economie d'octets est super important pour les ti

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Mer 17 Oct 2007, 21:43   Citer 

Il n'y a pas d'autres solutions malheureusement angry.gif
Et puis tu as mal compter je crois, tous les mots ne font pas une moyenne de 7 lettres happy.gif ( 100(7+1)=800 )

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
exasky



Autorisation : Membre
Nb de messages : 29
Inscrit le : Mar 16 Oct 2007, 20:19
Posté le : Jeu 18 Oct 2007, 18:58   Citer 

euhh au niveau de
"B+1->B
end
B+1->B"
t'es sur qu'il n'y a pas un "-" à la place d'un "+" ??

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Ven 19 Oct 2007, 16:41   Citer 

Non mon code est bon, je l'ai sur ma calto et ça marche très bien karate.gif
Tu n'as pas oublié le dico ?

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
exasky



Autorisation : Membre
Nb de messages : 29
Inscrit le : Mar 16 Oct 2007, 20:19
Posté le : Ven 19 Oct 2007, 18:34   Citer 

non, j'ai bien rentré la chaine 6, le programme PST, donc noralement , ça devrit marher, bé ça marche pas ^^

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 887
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Ven 19 Oct 2007, 18:51   Citer 

C'est chaîne 5 et PSTR...

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
exasky



Autorisation : Membre
Nb de messages : 29
Inscrit le : Mar 16 Oct 2007, 20:19
Posté le : Ven 19 Oct 2007, 19:17   Citer 

oui dsl
PSTR et la chane 5

 Adresse email Haut de page Bas de page 
 
adury38
Invité
Posté le : Lun 19 Nov 2007, 19:21   Citer 


Citer : coc5

"*



à quoi correspond le * svp parce que si je met le * càd le multiplié dans mon programme il me dit erreur...

  Haut de page Bas de page 
 
Ratuss



Autorisation : Membre
Nb de messages : 1572
Inscrit le : Mer 01 Mar 2006, 20:41
Posté le : Lun 19 Nov 2007, 19:31   Citer 

a priori l'erreur ne vient pas du * . Quel type d'erreur la calcu te renvoie ?

----------------------
--- LISTE DES JEUX POUR TI ---
 Adresse email Haut de page Bas de page 
 
Stupid



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

ça t'apprendras à recopier un pendu plus lourd que le mien^^

 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse Page: 1, ,      >>





  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