Poster un nouveau sujet Poster une réponse
idée d'utilisation du get key
Auteur Message
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 13 Nov 2009, 20:16   Citer 

C'est peut-être déjà fait par quelqu'un d'autre, qui saît.
C'est un fragment de code injectable dans des programmes.
Le but est d'entrer des valeurs séparément sans limite de nombre ni besoin de prévision du nombre d'entrées bigmouth.gif . Les valeurs sont stockées dans une liste. A perfectionner si besoin est.

virgule du bas : stop
entrer : continuer
Les commandes spéciales sont à entrer entre deux valeurs. Donc "enter" pour valider le input, puis "enter" ou "virgule".


Code
EffListe L1
0->N
Lbl 1
0->K
input "Z ",Z
N+1->N
Z->L1(N)
Repeat K=103
codetouche->K
If K=105
goto 1
End

Et votre exploitation des valeurs à la suite. Une base sur For (ici ce serait sûrement For(A,1,N) ) est presque indispensable.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
WoK
Invité
Posté le : Ven 13 Nov 2009, 21:33   Citer 

Bonne idée happy.gif
T'as un(des) ex dans quels progs sa pourrait etre utilisé? happy.gif
Et a quel moment bigmouth.gif

  Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 13 Nov 2009, 23:05   Citer 

J'ai 2 ou 3 programmes là dessus.
Voici celui qui calcule la résistance équivalente à partir des résistances.
La deuxième partie est le traitement par somme des inverses puis inverse du total.

Code
0->V
EffListe L1
Lbl 1
V+1->V
input "R ",R
0->K
R->L1(V)
repeat K=103
codetouche->K
If K=105
goto 1
End

0->P
For(W,1,V
P+1/L1(W)->P
End
Disp 1/P



----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
WoKeRnOZ



Autorisation : Membre
Nb de messages : 57
Inscrit le : Ven 13 Nov 2009, 22:24
Posté le : Sam 14 Nov 2009, 17:34   Citer 

Ah ouai :o
J'suis en train de le faire en ce moment en MPI :p

----------------------
Calculatrice Ti-82 stats fr(sans cable)
Et Ti-82 basique (sans cable non plus :o)

Programmeur novice à la recherche du programme parfait (h)
 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