Poster un nouveau sujet Poster une réponse
Trouve le nombre (ULTRA COMPACT !)
Auteur Message
hellknight71



Autorisation : Membre
Nb de messages : 48
Inscrit le : Lun 14 Déc 2015, 12:49
Posté le : Jeu 17 Déc 2015, 14:31   Citer 

Salut à tous bigmouth.gif
Ceci est un tout pitipitit programme dont le but est de trouver un nombre entre 1 et 1000. (140 octets)
Bref le voici :



Code

:EffEcr                                      // EffEcr ou ClrHome selon votre ti
:Disp "TROUVE UN NOMBRE","ENTRE 1 ET 1000
:0->V
:entAléat(1,1000->A
:While V=0
:Input "=",N
:If N<A:Disp "C'EST PLUS
:If N>A:Disp "C'EST MOINS
:If N=A:Disp "BRAVO !":1->V
:End



Je ne pense pas qu'on puisse faire plus court. godgrace.gif
Précisez moi si quelque chose ne va pas.

.

 Adresse email Haut de page Bas de page 
 
Ruadh



Autorisation : Membre
Nb de messages : 30
Inscrit le : Ven 06 Nov 2015, 14:08
Posté le : Jeu 17 Déc 2015, 16:58   Citer 

Bonjour !
Ton programme ne fonctionne pas et on peut faire beaucoup plus court. Je te laisse chercher bigmouth.gif

 Adresse email Haut de page Bas de page 
 
hellknight71



Autorisation : Membre
Nb de messages : 48
Inscrit le : Lun 14 Déc 2015, 12:49
Posté le : Jeu 17 Déc 2015, 18:00   Citer 

Tu l'as vraiment testé ? ahh.gif

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
hellknight71



Autorisation : Membre
Nb de messages : 48
Inscrit le : Lun 14 Déc 2015, 12:49
Posté le : Jeu 17 Déc 2015, 19:06   Citer 

Excuse moi j'ai mal formulé effectivement crazy.gif crazy.gif crazy.gif
Mais je veux bien connaître ton programme car je ne sais pas comment faire encore plus court ahh.gif

 Adresse email Haut de page Bas de page 
 
Ruadh



Autorisation : Membre
Nb de messages : 30
Inscrit le : Ven 06 Nov 2015, 14:08
Posté le : Jeu 17 Déc 2015, 21:14   Citer 

T'as vraiment essayé ton programme ? Comme je l'ai dit plus haut, il ne fonctionne pas.
C'est cette ligne là qui pose problème :


Code
:If N=A:Disp "BRAVO !":1->V



V prendra la valeur 1 que N soit égal à A ou non, donc ton programme s'arrêtera après une seule itération.

Voilà ton programme optimisé (105 octets) :


Code
:EffEcr
:Disp "TROUVE UN NOMBRE","ENTRE 1 ET 1000
:entAléat(1,E3     //Le E obtenu par 2nde+,
:Repeat Rép=N
:Prompt N
:If N>Rép
:Disp "C'EST MOINS
:If N<Rép
:Disp "C'EST PLUS
:End
:"BRAVO



 Adresse email Haut de page Bas de page 
 
hellknight71



Autorisation : Membre
Nb de messages : 48
Inscrit le : Lun 14 Déc 2015, 12:49
Posté le : Ven 18 Déc 2015, 10:05   Citer 

Oui je l'ai testé et effectivement j'ai mal tapé le programme. crazy.gif

En tout cas merci pour le programme de 105 octets, je ne savais pas qu'on pouvait faire aussi court.
Merci pour l'astuce car je ne savais pas utiliser le Rep. minied.gif

 Adresse email Haut de page Bas de page 
 
hellknight71



Autorisation : Membre
Nb de messages : 48
Inscrit le : Lun 14 Déc 2015, 12:49
Posté le : Jeu 11 Fév 2016, 8:33   Citer 

Slt je viens d'en trouver un de 87 octets bigmouth.gif bigmouth.gif en cherchant un peu... rollall.gif

prgmTrouve

Code

:Disp "1/1000
:entAléat(1,1000->N
:While A#N
:Prompt A
:If A>N:Disp "MOINS
:If A<N:Disp "PLUS
:If A=N:Then:Disp "BRAVO":End
:End



 Adresse email Haut de page Bas de page 
 
Ti82-Lexilus



Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
Posté le : Jeu 11 Fév 2016, 9:00   Citer 

Ey on peut faire encore mieux !!! godgrace.gif bigmouth.gif

Code


Effecr
Disp "1/e3
EntAleat(1,e3 ~>B
While B=/=A
Prompt B
If A<B
Pause "-"
If A>B
Pause "+"
End
"Bravo"









----------------------
La programmation : l'avenir d'hier ...........

mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER
 Adresse email Haut de page Bas de page 
 
hellknight71



Autorisation : Membre
Nb de messages : 48
Inscrit le : Lun 14 Déc 2015, 12:49
Posté le : Jeu 11 Fév 2016, 14:45   Citer 

Heuuu... Pour moi il marche pas. crazy.gif
Le nombre est tout le temps 0

 Adresse email Haut de page Bas de page 
 
Ti82-Lexilus



Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
Posté le : Jeu 11 Fév 2016, 16:10   Citer 

Salut
le "e" s obtient en appuyant les touches suivantes :
[2nd] + ,

Il signifie x 10 ^ ( n )

----------------------
La programmation : l'avenir d'hier ...........

mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER
 Adresse email Haut de page Bas de page 
 
hellknight71



Autorisation : Membre
Nb de messages : 48
Inscrit le : Lun 14 Déc 2015, 12:49
Posté le : Ven 12 Fév 2016, 8:31   Citer 

rollineyes.gif Ok mais alors il faudrait mettre 1e3 cupsmiley.gif

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
Mingerton



Autorisation : Membre
Nb de messages : 504
Inscrit le : Ven 07 Déc 2012, 20:09
Posté le : Sam 13 Fév 2016, 13:31   Citer 

Le 1 est inutile, ca serait comme écrire 1*1000 winkle.gif

----------------------
Mes articles
Mes programmes en ligne (je termine peu de projets)

Guide traduction Algo-Basic, par Linkakro
Catalogue des fonctions 82/83/84 FR/EN
 Adresse email Haut de page Bas de page 
 
Ti82-Lexilus



Autorisation : Membre
Nb de messages : 85
Inscrit le : Dim 13 Déc 2015, 16:27
Posté le : Sam 13 Fév 2016, 21:50   Citer 

Oui car e signifie 10 ^ ( n )

----------------------
La programmation : l'avenir d'hier ...........

mes prgm pour ti82 : PrgmHEURE , PrgmCHRONOMÈTRE , PrgmQUITTER
 Adresse email Haut de page Bas de page 
 
hellknight71



Autorisation : Membre
Nb de messages : 48
Inscrit le : Lun 14 Déc 2015, 12:49
Posté le : Dim 03 Avr 2016, 15:01   Citer 

Je viens d'en trouver un de 68 octets. bigmouth.gif bigmouth.gif bigmouth.gif
Le voici:

Code

:entAléat(1,e3->N
:While 1
:Prompt A
:If A>N:Disp "-
:If A<N:Disp "+
:If A=N:Then:Disp "BRAVO
:Stop
:End
:End


Cette fois ci, je pense que c'est le jeu le plus léger qu'on puisse faire sur TI. bigmouth.gif

 Adresse email Haut de page Bas de page 
 
Ruadh



Autorisation : Membre
Nb de messages : 30
Inscrit le : Ven 06 Nov 2015, 14:08
Posté le : Dim 03 Avr 2016, 16:57   Citer 

À force de chercher, tu finiras bien par trouver happy.gif J'arrive à économiser 12 octets en utilisant le même algorithme que celui que j'ai posté plus haut et en utilisant les mêmes textes que toi happy.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 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink